8 use Moose::Util ':all';
51 return 1 if $role eq 'Something::Else';
52 return $self->SUPER::does(@_);
58 ok(does_role('Bar', 'Foo'), '... Bar does Foo');
60 ok(!does_role('Baz', 'Foo'), '... Baz doesnt do Foo');
66 ok(does_role($bar, 'Foo'), '... $bar does Foo');
70 ok(!does_role($baz, 'Foo'), '... $baz doesnt do Foo');
74 ok(!does_role(undef,'Foo'), '... undef doesnt do Foo');
76 ok(!does_role(1,'Foo'), '... 1 doesnt do Foo');
80 ok(!does_role('Quux', 'Foo'), '... Quux doesnt do Foo (does not die tho)');
82 # overriding the does method works properly
84 ok(does_role('DoesMethod', 'Something::Else'), '... can override the does method');
88 ok(does_role('Foo', 'Foo'), '... Foo does do Foo');
92 ok(does_role('Foo::Foo', 'Foo'), '... Foo::Foo does do Foo');