/Class-InsideOut-1.10/t/Object/Animal/Jackalope.pm

 1package t::Object::Animal::Jackalope;
 2
 3BEGIN { 
 4    for ( 't::Object::Animal::Antelope', 't::Object::Animal::JackRabbit' ) {
 5        eval "require $_";
 6        push @t::Object::Animal::Jackalope::ISA, $_;
 7    }
 8}
 9
10use Class::InsideOut qw( private property id );
11
12# superclass is handling new()
13
14Class::InsideOut::options( { privacy => 'public' } );
15
16property kills    => my %kills;
17private  whiskers => my %whiskers; 
18private  sidekick => my %sidekick, { privacy => 'public' };
19
20use vars qw( $freezings $thawings );
21
22sub FREEZE {
23    my $self = shift;
24    $freezings++;
25}
26
27sub THAW {
28    my $self = shift;
29    $thawings++;
30}
31
321;