4 use Test::More tests => 5;
11 #two checks because the inlined methods are different when
12 #there is a TC present.
13 has 'foos' => ( is => 'rw', default => 'DEFAULT' );
14 has 'bars' => ( is => 'rw', default => 300100 );
15 has 'bazs' => ( is => 'rw', default => sub { +{} } );
19 lives_ok { Foo->meta->make_immutable }
20 'Immutable meta with single BUILD';
24 is $f->foos, 'DEFAULT', 'str default';
25 is $f->bars, 300100, 'int default';
26 is ref($f->bazs), 'HASH', 'code default';