28 reader => 'get_three',
29 writer => 'set_three',
44 my $foo = Foo->new(one => 'lol');
45 my $bar = Bar->new(two => '...');
47 is( $foo->get_one, 'lol', 'reader works' );
48 $foo->set_one('rofl');
49 is( $foo->get_one, 'rofl', 'writer works' );
50 is( $foo->one, 'sub', 'reader+writer = no accessor' );
52 is( $foo->get_two, 2, 'lazy doesn\'t override reader' );
54 is( $foo->can('two'), undef, 'reader+ro = no accessor' );
56 ok( $foo->can('get_three'), 'rwp doesn\'t override reader');
57 ok( $foo->can('set_three'), 'rwp doesn\'t override writer');
59 ok( exception { $foo->get_one('blah') }, 'reader dies on write' );
61 is( $bar->TWO, '...', 'accessor works for reading' );
63 is( $bar->TWO, '!!!', 'accessor works for writing' );