use strict;
use warnings;
use Test::More;
BEGIN {
package My::Does::Basic;
$INC{'My/Does/Basic.pm'} = 1;
use Role::Tiny;
requires 'turbo_charger';
sub no_conflict {
return "My::Does::Basic::no_conflict";
}
}
BEGIN {
package My::Example;
$INC{'My/Example.pm'} = 1;
use Role::Tiny 'with';
with 'My::Does::Basic';
sub new { bless {} => shift }
sub turbo_charger {}
$My::Example::foo = 1;
sub foo() {}
}
use My::Example;
can_ok 'My::Example', 'no_conflict';
is +My::Example->no_conflict, 'My::Does::Basic::no_conflict',
'... and it should return the correct value';
done_testing;