/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
- package t::Object::Animal::Jackalope;
- BEGIN {
- for ( 't::Object::Animal::Antelope', 't::Object::Animal::JackRabbit' ) {
- eval "require $_";
- push @t::Object::Animal::Jackalope::ISA, $_;
- }
- }
- use Class::InsideOut qw( private property id );
- # superclass is handling new()
- Class::InsideOut::options( { privacy => 'public' } );
- property kills => my %kills;
- private whiskers => my %whiskers;
- private sidekick => my %sidekick, { privacy => 'public' };
- use vars qw( $freezings $thawings );
- sub FREEZE {
- my $self = shift;
- $freezings++;
- }
- sub THAW {
- my $self = shift;
- $thawings++;
- }
- 1;