1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
use strict;
use Params::Validate qw(:types);
my $SCALAR = SCALAR; # So we don't have to keep importing it below
# Create some boilerplate classes
{
no strict 'refs';
foreach my $class (qw(Parent Boy Toy Daughter)) {
push @{$class.'::ISA'}, 'Class::Container';
}
}
# Define the relationships
{
package Parent;
push @Parent::ISA, 'Foo'; # Make sure it works with non-container superclasses
# Has one son and several daughters
__PACKAGE__->valid_params( parent_val => { type => $SCALAR },
son => {isa => 'Son'},
);
__PACKAGE__->contained_objects( son => 'Son',
daughter => {delayed => 1,
class => 'Daughter'});
}
{
package Boy;
__PACKAGE__->valid_params( eyes => { default => 'brown', type => $SCALAR },
toy => {isa => 'Toy'});
__PACKAGE__->contained_objects( toy => 'Slingshot',
other_toys => {class => 'Toy', delayed => 1},
);
}
{
package Son;
push @Son::ISA, 'Boy';
__PACKAGE__->valid_params( mood => { type => $SCALAR } );
}
{
package Slingshot;
push @Slingshot::ISA, 'Toy';
__PACKAGE__->valid_params( weapon => { default => 'rock', type => $SCALAR } );
}
{
package Daughter;
__PACKAGE__->valid_params( hair => { default => 'short' } );
}
{
package StepDaughter;
push @StepDaughter::ISA, 'Daughter';
__PACKAGE__->valid_params( toy => {isa => 'Toy'} );
__PACKAGE__->contained_objects( toy => { class => 'Toy'},
other_toys => {class => 'Toy', delayed => 1},
);
}
{
push @StepSon::ISA, 'Son';
push @Ball::ISA, 'Toy';
push @Streamer::ISA, 'Toy';
}
1;
|
