2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
10 $TODO = q{Mouse is not yet completed};
15 package MyFramework::Base;
18 package MyFramework::Meta::Base;
21 extends 'Mouse::Meta::Class';
25 use Mouse::Deprecated -api_version => '0.55';
28 my $CALLER = caller();
33 return if $CALLER eq 'main';
34 Mouse::init_meta( $CALLER, 'MyFramework::Base', 'MyFramework::Meta::Base' );
35 Mouse->import({ into => $CALLER });
43 BEGIN { MyFramework->import }
45 has 'foo' => (is => 'rw');
48 can_ok( 'MyClass', 'meta' );
50 isa_ok(MyClass->meta, 'MyFramework::Meta::Base');
51 isa_ok(MyClass->meta, 'Mouse::Meta::Class');
53 my $obj = MyClass->new(foo => 10);
54 isa_ok($obj, 'MyClass');
55 isa_ok($obj, 'MyFramework::Base');
56 isa_ok($obj, 'Mouse::Object');
58 is($obj->foo, 10, '... got the right value');