23 around monkey => sub { 'OW' };
25 has trap => (is => 'ro', default => sub { -1 });
51 around monkey => sub { 'OW' };
53 has trap => (is => 'ro', default => sub { -1 });
93 package Ker::Splattered;
105 package Ker::Splattered2;
109 sub monkey { 'WHAT' }
111 with qw/ Ker Splat2 /;
117 package KerSplattered;
121 sub monkey { 'WHAT' }
129 package KerSplattered2;
133 sub monkey { 'WHAT' }
135 with qw/ KerSplat2 /;
143 Ker::Splattered->new,
144 Ker::Splattered2->new,
149 and is($s->punch, 1, 'punch');
151 and is($s->jab, 3, 'jab');
152 ok($s->can('monkey'))
153 and is($s->monkey, 'OW', 'monkey');
155 and is($s->trap, -1, 'trap');
164 ok $c->can('has_ker');
165 ok $c->can('has_splat');