t/109_reader_precedence_bug.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Moose;
   6
   7 use Test::More tests => 3;
   8
   9 {
  10     package Foo;
  11     use Moose;
  12     has 'foo' => ( is => 'ro', reader => 'get_foo' );
  13 }
  14
  15 {
  16     my $foo = Foo->new(foo => 10);
  17     my $reader = $foo->meta->get_attribute('foo')->reader;
  18     is($reader, 'get_foo',
  19        'reader => "get_foo" has correct presedence');
  20     can_ok($foo, 'get_foo');
  21     is($foo->$reader, 10, "Reader works as expected");
  22 }
  23
  24
  25
  26