30 my $foo = Foo->new(one => 'lol');
31 my $bar = Bar->new(two => '...');
33 is( $foo->get_one, 'lol', 'reader works' );
34 $foo->set_one('rofl');
35 is( $foo->get_one, 'rofl', 'writer works' );
37 ok( exception { $foo->get_one('blah') }, 'reader dies on write' );
39 is( $bar->TWO, '...', 'accessor works for reading' );
41 is( $bar->TWO, '!!!', 'accessor works for writing' );