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