8 plan skip_all => 'This test requires Moose 1.9900+'
9 unless $Moose::VERSION ge '1.9900';
15 use MooseX::FollowPBP;
17 has 'foo' => ( is => 'rw' );
18 has '_bar' => ( is => 'rw' );
28 has 'thing' => ( is => 'rw' );
29 has '_private' => ( is => 'rw' );
32 can_ok( 'Class', 'thing' );
33 ok( ! Class->can('set_thing') );
34 can_ok( 'Class', '_private' );
35 ok( ! Class->can('_set_private') );
37 can_ok( 'Class', qw( get_foo set_foo _get_bar _set_bar ) );