4 use Test::More tests => 10;
24 ok(!Class->can('x'), "No accessor is injected if 'is' has no value");
25 can_ok('Class', 'y', 'z');
27 my $object = Class->new;
29 ok(!$object->can('x'), "No accessor is injected if 'is' has no value");
30 can_ok($object, 'y', 'z');
32 is($object->y, undef);
36 } qr/Cannot assign a value to a read-only accessor/;
38 is($object->y, undef);
40 is($object->z, undef);
41 is($object->z(10), 10);