6 use Test::More tests => 7;
12 package MyFramework::Base;
15 package MyFramework::Meta::Base;
18 extends 'Mouse::Meta::Class';
24 my $CALLER = caller();
29 return if $CALLER eq 'main';
30 Mouse::init_meta( $CALLER, 'MyFramework::Base', 'MyFramework::Meta::Base' );
31 Mouse->import({ into => $CALLER });
39 BEGIN { MyFramework->import }
41 has 'foo' => (is => 'rw');
44 can_ok( 'MyClass', 'meta' );
46 isa_ok(MyClass->meta, 'MyFramework::Meta::Base');
47 isa_ok(MyClass->meta, 'Mouse::Meta::Class');
49 my $obj = MyClass->new(foo => 10);
50 isa_ok($obj, 'MyClass');
51 isa_ok($obj, 'MyFramework::Base');
52 isa_ok($obj, 'Mouse::Object');
54 is($obj->foo, 10, '... got the right value');