/Class-InsideOut-1.10/t/Object/Animal/Jackalope.pm
Perl | 32 lines | 22 code | 9 blank | 1 comment | 1 complexity | 493fc90e2b9bc28813519f9fa04ac62a MD5 | raw file
Possible License(s): Apache-2.0
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;