projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Fix a possible syntax error in generated constructor
[gitmo/Mouse.git]
/
t
/
404-role-overrides.t
1
#!/usr/bin/env perl
2
use strict;
3
use warnings;
4
use Test::More tests => 2;
5
6
do {
7
package My::Role;
8
use Mouse::Role;
9
10
sub foo { 'role' }
11
12
package Parent;
13
use Mouse;
14
15
sub foo { 'parent' }
16
17
package Child;
18
use Mouse;
19
extends 'Parent';
20
with 'My::Role';
21
};
22
23
is(Child->foo, 'role');
24
25
do {
26
package ChildOverride;
27
use Mouse;
28
extends 'Parent';
29
with 'My::Role';
30
31
sub foo { 'child' }
32
};
33
34
is(ChildOverride->foo, 'child');
35