Rose::Class::MakeMethods::Set 0.84

Rose::Class::MakeMethods::Set is a Perl module to create class methods to manage sets. SYNOPSIS package MyClass; use Rose::Class::MakeMethods::Set ( inheritable_set => [ required_name => { add_implies => add_valid_name, test_method => name_is_required, }, ], inherited_set => [ valid_name => { test_method => name_is_valid, }, ], ); ... package MySubClass; our @ISA = qw(MyClass); ... MyClass->add_valid_names(A, B, C); MyClass->add_required_name(D); $v1 = join(,, MyClass->valid_names); # A,B,C,D; $r1 = join(,, MyClass->required_names); # D $v2 = join(,, MySubClass->valid_names); # A,B,C,D; $r2 = join(,, MySubClass->required_names); # D MySubClass->add_required_names(X, Y); $v2 = join(,, MySubClass->valid_names); # A,B,C,D,X,Y; $r2 = join(,, MySubClass->required_names); # D,X,Y MySubClass->delete_valid_names(B, X); $v1 = join(,, MyClass->valid_names); # A,B,C,D; $r1 = join(,, MyClass->required_names); # D $v2 = join(,, MySubClass->valid_names); # A,C,D,Y; $r2 = join(,, MySubClass->required_names); # D,X,Y MySubClass->delete_required_name(D); $v1 = join(,, MyClass->valid_names); # A,B,C,D; $r1 = join(,, MyClass->required_names); # D $v2 = join(,, MySubClass->valid_names); # A,C,D,Y; $r2 = join(,, MySubClass->required_names); # X,Y.

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Class Methods,  Join,  Makemethods,  Myclass,  Mysubclass,  Name,  Names,  Perl Module,  Required,  Roseclassmakemethodsset,  To Create,  To Manage,  Valid
Users rating:	0/10