Acme-Monkey
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Acme/Monkey.pm view on Meta::CPAN
if (ref($target) eq 'Acme::Monkey') {
$target->_happiness(+1);
}
else {
die "Target is not a monkey!\n";
}
}
sub dump {
my $self = shift;
use Data::Dumper;
print Dumper($self);
return;
}
=head2 see
Allows the monkey to see a function. See do
sub shoot {
print "Bang!\n";
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.797 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )