[gitmo/Moose.git] / t / 109_reader_precedence_bug.t

#!/usr/bin/perl

use strict;
use warnings;
use Moose;

use Test::More tests => 3;

{
    package Foo;
    use Moose;    
    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");
}
Commit	Line	Data
df492bba	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