PageRenderTime 28ms CodeModel.GetById 22ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 0ms

/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;