18 # note that 'Foo' is defined before this, to prevent Moose being loaded from
19 # affecting its definition
22 plan skip_all => "Moose required for this test" unless eval { require Moose };
36 my $foo = Foo->new( foo => 3 );
38 isa_ok( $foo, "Foo" );
40 isa_ok( $foo, "Mouse::Object" );
42 is( $foo->foo, 3, "accessor" );
45 my $bar = Bar->new( foo => 3 );
47 isa_ok( $bar, "Bar" );
48 isa_ok( $bar, "Moose::Object" );
50 is( $bar->foo, 3, "accessor" );