2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
14 has 'foo' => ( is => 'ro', reader => 'get_foo' );
18 my $foo = Foo->new(foo => 10);
19 my $reader = $foo->meta->get_attribute('foo')->reader;
20 is($reader, 'get_foo',
21 'reader => "get_foo" has correct presedence');
22 can_ok($foo, 'get_foo');
23 is($foo->$reader, 10, "Reader works as expected");