5 use Test::More tests => 6;
10 with 'MooseX::Emulate::Class::Accessor::Fast';
12 sub anaccessor { 'wibble' }
17 use base qw/SomeClass/;
19 sub anotherone { 'flibble' }
20 __PACKAGE__->mk_accessors(qw/ anaccessor anotherone /);
24 my $someclass = SomeClass->new;
25 is($someclass->anaccessor, 'wibble');
26 $someclass->anaccessor('fnord');
27 is($someclass->anaccessor, 'wibble');
30 my $subclass = SubClass->new;
31 ok( not defined $subclass->anaccessor );
32 $subclass->anaccessor('fnord');
33 is($subclass->anaccessor, 'fnord');
34 is($subclass->anotherone, 'flibble');
35 $subclass->anotherone('fnord');
36 is($subclass->anotherone, 'flibble');