Nam: toe: Klasse:: MakeMethods:: De reeks is een module Perl om klassenmethodes tot stand te brengen om reeksen te beheren.

SYNOPSIS

pakket MyClass;

het gebruik nam: toe: Klasse:: MakeMethods:: Reeks
(
inheritable_set =>
[
required_name =>
{
add_implies => add_valid_name,
test_method name_is_required =>,
},
],

inherited_set =>
[
valid_name =>
{
test_method => name_is_valid,
},
],
);

…

pakket MySubClass;
ons @ISA = qw (MyClass);
…

MyClass->add_valid_names (A, B, C);
MyClass->add_required_name (D);

$v1 = treed toe (, MyClass->valid_names); # A, B, C, D;
$r1 = treed toe (, MyClass->required_names); # D

$v2 = treed toe (, MySubClass->valid_names); # A, B, C, D;
$r2 = treed toe (, MySubClass->required_names); # D

MySubClass->add_required_names (X, Y);

$v2 = treed toe (, MySubClass->valid_names); # A, B, C, D, X, Y;
$r2 = treed toe (, MySubClass->required_names); # D, X, Y

MySubClass->delete_valid_names (B, X);

$v1 = treed toe (, MyClass->valid_names); # A, B, C, D;
$r1 = treed toe (, MyClass->required_names); # D

$v2 = treed toe (, MySubClass->valid_names); # A, C, D, Y;
$r2 = treed toe (, MySubClass->required_names); # D, X, Y

MySubClass->delete_required_name (D);

$v1 = treed toe (, MyClass->valid_names); # A, B, C, D;
$r1 = treed toe (, MyClass->required_names); # D

$v2 = treed toe (, MySubClass->valid_names); # A, C, D, Y;
$r2 = treed toe (, MySubClass->required_names); # X, Y