6 use Scalar::Util 'blessed', 'reftype';
8 use Test::More tests => 4;
16 This checks that the initializer is used to set the initial value.
24 Foo->meta->add_attribute('bar' =>
28 my ($self, $value, $name, $callback) = @_;
29 $callback->($value * 2);
34 can_ok('Foo', 'get_bar');
35 can_ok('Foo', 'set_bar');
37 my $foo = Foo->meta->construct_instance(bar => 10);
41 "initial argument was doubled as expected",