blob: a3d5b418379aef7b32a37e8883c1d980b4c30835 (
plain)
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
|
use strict;
use warnings;
use Test::More;
{
package Foo::Role;
use Moose::Role;
}
{
package Foo;
use Moose;
with 'Foo::Role';
}
{
package Foo::Sub;
use parent -norequire => 'Foo';
}
{
package Foo::Sub2;
use parent -norequire => 'Foo';
}
{
package Foo::Sub3;
use parent -norequire => 'Foo';
}
{
package Foo::Sub4;
use parent -norequire => 'Foo';
}
ok(Foo::Sub->does('Foo::Role'), "class does Foo::Role");
ok(Foo::Sub2->new->does('Foo::Role'), "object does Foo::Role");
ok(!Foo::Sub3->does('Bar::Role'), "class doesn't do Bar::Role");
ok(!Foo::Sub4->new->does('Bar::Role'), "object doesn't do Bar::Role");
done_testing;
|
