4 use Test::More tests => 10;
21 ok(!Class->can('x'), "No accessor is injected if 'is' has no value");
22 can_ok('Class', 'y', 'z');
24 my $object = Class->new;
26 ok(!$object->can('x'), "No accessor is injected if 'is' has no value");
27 can_ok($object, 'y', 'z');
29 is($object->y, undef);
30 is($object->y(10), undef);
31 is($object->y, undef);
33 is($object->z, undef);
34 is($object->z(10), 10);