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
|
#!/usr/bin/env perl
use lib 'lib', 't/role-basic/lib';
use MyTests;
# multiple roles with the same role
{
package RoleC;
use Role::Tiny;
sub baz { 'baz' }
package RoleB;
use Role::Tiny;
with 'RoleC';
sub bar { 'bar' }
package RoleA;
use Role::Tiny;
with 'RoleC';
sub foo { 'foo' }
package Foo;
use strict;
use warnings;
use Role::Tiny 'with';
::is( ::exception {
with 'RoleA', 'RoleB';
}, undef, 'Composing multiple roles which use the same role should not have conflicts' );
sub new { bless {} => shift }
my $object = Foo->new;
foreach my $method (qw/foo bar baz/) {
::can_ok $object, $method;
::is $object->$method, $method,
'... and all methods should be composed in correctly';
}
}
{
no warnings 'redefine';
local *UNIVERSAL::can = sub { 1 };
eval <<' END';
package Can::Can;
use Role::Tiny 'with';
with 'A::NonExistent::Role';
END
my $error = $@ || '';
like $error, qr{^Can't locate A/NonExistent/Role.pm},
'If ->can always returns true, we should still not think we loaded the role'
or diag "Error found: $error";
}
done_testing;
|
