3 use Test::More tests => 1;
4 use MooseX::Adopt::Class::Accessor::Fast;
7 package MyClass::Accessor::Chained::Fast;
9 use base 'Class::Accessor::Fast';
12 my($class, $field) = @_;
17 $self->{$field} = (@_ == 1 ? $_[0] : [@_]);
20 return $self->{$field};
27 use base qw/MyClass::Accessor::Chained::Fast/;
28 __PACKAGE__->mk_accessors('foo');
31 my $i = bless {}, 'TestPackage';
32 my $other_i = $i->foo('bar');
34 local $TODO = 'ENOWORKEY';
35 is($other_i, $i, 'Accessor returns instance as opposed to value.');