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