32 my $foo = Foo->new(one => 'lol');
33 my $bar = Bar->new(two => '...');
35 is( $foo->get_one, 'lol', 'reader works' );
36 $foo->set_one('rofl');
37 is( $foo->get_one, 'rofl', 'writer works' );
38 is( $foo->one, 'sub', 'reader+writer = no accessor' );
40 ok( exception { $foo->get_one('blah') }, 'reader dies on write' );
42 is( $bar->TWO, '...', 'accessor works for reading' );
44 is( $bar->TWO, '!!!', 'accessor works for writing' );