10 package MyFramework::Base;
13 package MyFramework::Meta::Base;
16 extends 'Moose::Meta::Class';
20 use Moose::Deprecated -api_version => '0.55';
23 my $CALLER = caller();
28 return if $CALLER eq 'main';
29 Moose::init_meta( $CALLER, 'MyFramework::Base', 'MyFramework::Meta::Base' );
30 Moose->import({ into => $CALLER });
38 BEGIN { MyFramework->import }
40 has 'foo' => (is => 'rw');
43 can_ok( 'MyClass', 'meta' );
45 isa_ok(MyClass->meta, 'MyFramework::Meta::Base');
46 isa_ok(MyClass->meta, 'Moose::Meta::Class');
48 my $obj = MyClass->new(foo => 10);
49 isa_ok($obj, 'MyClass');
50 isa_ok($obj, 'MyFramework::Base');
51 isa_ok($obj, 'Moose::Object');
53 is($obj->foo, 10, '... got the right value');