3 #use base qw/Class::Accessor::Fast/;
5 with 'MooseX::Emulate::Class::Accessor::Fast';
7 sub anaccessor { 'wibble' }
9 #sub new { bless {}, 'SomeClass' }
13 use base qw/SomeClass/;
15 sub anotherone { 'flibble' }
16 __PACKAGE__->mk_accessors(qw/ anaccessor anotherone /);
19 use Test::More tests => 6;
22 my $someclass = SomeClass->new;
23 is $someclass->anaccessor, 'wibble';
24 $someclass->anaccessor('fnord');
25 is $someclass->anaccessor, 'wibble';
28 my $subclass = SubClass->new;
29 is $subclass->anaccessor, 'wibble';
30 $subclass->anaccessor('fnord');
31 is $subclass->anaccessor, 'wibble';
32 is $subclass->anotherone, 'flibble';
33 $subclass->anotherone('fnord');
34 is $subclass->anotherone, 'flibble';