projects
/
gitmo/Moo.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
improve docs for isa and coerce
[gitmo/Moo.git]
/
xt
/
moo-does-moose-role.t
1
use strictures 1;
2
use Test::More;
3
4
BEGIN {
5
package Splat;
6
7
use Moose::Role;
8
9
requires 'monkey';
10
11
sub punch { 1 }
12
13
sub jab { 0 }
14
15
around monkey => sub { 'OW' };
16
17
has trap => (is => 'ro', default => sub { -1 });
18
}
19
20
BEGIN {
21
package Splattered;
22
23
use Moo;
24
25
sub monkey { 'WHAT' }
26
27
with 'Splat';
28
29
sub jab { 3 }
30
}
31
32
my $s = Splattered->new;
33
34
is($s->punch, 1, 'punch');
35
is($s->jab, 3, 'jab');
36
is($s->monkey, 'OW', 'monkey');
37
is($s->trap, -1, 'trap');
38
39
done_testing;