4 use Test::More 'no_plan';#tests => 6;
9 use_ok('MooseX::Storage');
16 with Storage( traits => [qw|OnlyWhenBuilt|] );
18 has 'x' => (is => 'rw', lazy_build => 1 );
19 has 'y' => (is => 'rw', lazy_build => 1 );
20 has 'z' => (is => 'rw', builder => '_build_z' );
29 my $p = Point->new( 'x' => $$ );
30 ok( $p, "New object created" );
34 ok( $href, " Object packed" );
35 is( $href->{'x'}, $$, " x => $$" );
36 is( $href->{'z'}, 'z', " z => z" );
37 ok( not(exists($href->{'y'})), " y does not exist" );
41 { '__CLASS__' => 'Point',
44 }, " Deep check passed" );