1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
use strict;
use warnings;
use Test::More tests => 6;
{
package MouseClass;
use Carp; # import external functions (not our methods)
use Mouse;
sub foo { }
no Mouse;
}
{
package MouseClassImm;
use Carp; # import external functions (not our methods)
use Mouse;
sub foo { }
no Mouse;
__PACKAGE__->meta->make_immutable();
}
{
package MouseRole;
use Carp; # import external functions (not our methods)
use Mouse::Role;
sub bar { }
no Mouse::Role;
}
{
package MouseRoleWithoutNoMouseRole;
use Mouse::Role;
sub baz { }
# without no Mouse::Role;
}
{
package MouseClassWithRole;
use Mouse;
with 'MouseRole';
no Mouse;
}
{
package MouseClassWithRoles;
use Mouse;
with qw(MouseRole MouseRoleWithoutNoMouseRole);
}
is join(',', sort MouseClass->meta->get_method_list()), 'foo,meta', "mutable Mouse";
is join(',', sort MouseClassImm->meta->get_method_list()), 'DESTROY,foo,meta,new', "immutable Mouse";
is join(',', sort MouseRole->meta->get_method_list()), 'bar,meta', "role Mouse";
is join(',', sort MouseRoleWithoutNoMouseRole->meta->get_method_list()),
'baz,meta', "role Mouse";
is join(',', sort MouseClassWithRole->meta->get_method_list()),
'bar,meta', "Mouse with a role";
is join(',', sort MouseClassWithRoles->meta->get_method_list()),
'bar,baz,meta', "Mouse with roles";
|
