3 use Test::More tests => 5;
9 sub eat { 'delicious' }
10 has food => ( is => 'ro' );
23 sub bark { 'bow-wow' }
26 ok !Animal->can('food');
29 my $c = Chihuahua->new(food => 'bone');
30 is $c->eat(), 'delicious';
31 is $c->food(), 'bone';
32 is $c->bark(), 'bow-wow';