4 use Test::More tests => 10;
17 my $obj = MyClass->new();
18 my $foo = $obj->meta->get_attribute('foo');
19 ok $foo, $obj->meta->is_immutable ? 'immutable' : 'mutable';
21 ok !$foo->has_value($obj), 'has_value';
23 $foo->set_value($obj, 'bar');
24 is $foo->get_value($obj), 'bar', 'set_value/get_value';
26 ok $foo->has_value($obj), 'has_value';
28 $foo->clear_value($obj);
30 ok!$foo->has_value($obj), 'clear_value';