trAvis - MANAGER
Edit File: 007_reader_precedence_bug.t
#!/usr/bin/perl # This is automatically generated by author/import-moose-test.pl. # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!! use t::lib::MooseCompat; use strict; use warnings; use Test::More; { package Foo; use Mouse; has 'foo' => ( is => 'ro', reader => 'get_foo' ); } { my $foo = Foo->new(foo => 10); my $reader = $foo->meta->get_attribute('foo')->reader; is($reader, 'get_foo', 'reader => "get_foo" has correct presedence'); can_ok($foo, 'get_foo'); is($foo->$reader, 10, "Reader works as expected"); } done_testing;