has 'thing2' => ( is => 'rw', writer => 'set_it' );
}
+{
+ package PBP4;
+
+ use Moose;
+ use MooseX::FollowPBP;
+
+ has 'bare' => ( is => 'bare' );
+}
+
ok( ! Standard->can('get_thing'), 'Standard->get_thing() does not exist' );
ok( ! Standard->can('set_thing'), 'Standard->set_thing() does not exist' );
ok( ! PBP3->can('get_thing2'), 'PBP3->get_thing2 does not exist' );
ok( ! PBP3->can('set_thing2'), 'PBP3->set_thing2 does not exist' );
+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();