ok( !PBP4->can('get_bare'), 'is => bare attribute is respected' );
ok( !PBP4->can('set_bare'), 'is => bare attribute is respected' );
-{
- package PBP::Role;
- use Moose::Role;
- use MooseX::FollowPBP;
- has foo => (is => 'rw');
-}
-
-{
- package PBP::WithRole;
- use Moose;
- with 'PBP::Role';
-}
-
-ok( PBP::WithRole->can('get_foo'), "works in a role" );
-ok( PBP::WithRole->can('set_foo'), "works in a role" );
-ok( !PBP::WithRole->can('foo'), "works in a role" );
-
done_testing();