21 around monkey => sub { 'OW' };
23 has trap => (is => 'ro', default => sub { -1 });
37 around monkey => sub { 'OW' };
39 has trap => (is => 'ro', default => sub { -1 });
67 package Ker::Splattered;
79 package Ker::Splattered2;
85 with qw/ Ker Splat2 /;
91 foreach my $s (Splattered->new, Splattered2->new, Ker::Splattered->new, Ker::Splattered2->new) {
92 is($s->punch, 1, 'punch');
93 is($s->jab, 3, 'jab');
94 is($s->monkey, 'OW', 'monkey');
95 is($s->trap, -1, 'trap');