7 use Test::Mouse qw(does_ok);
10 package MyMouseX::Foo::Method;
15 package MyMouseX::Bar::Method;
20 package MyMouseX::Foo;
22 use Mouse::Util::MetaRole;
24 Mouse::Exporter->setup_import_methods(
28 my(undef, %options) = @_;
30 my $meta = Mouse->init_meta(%options);
31 Mouse::Util::MetaRole::apply_metaroles(
32 for => $options{for_class},
34 method => ['MyMouseX::Foo::Method'],
39 $INC{'MyMouseX/Foo.pm'} = __FILE__;
41 package MyMouseX::Bar;
43 use Mouse::Util::MetaRole;
45 Mouse::Exporter->setup_import_methods(
49 my(undef, %options) = @_;
51 my $meta = Mouse->init_meta(%options);
52 Mouse::Util::MetaRole::apply_metaroles(
53 for => $options{for_class},
55 method => ['MyMouseX::Bar::Method'],
60 $INC{'MyMouseX/Bar.pm'} = __FILE__;
74 does_ok(ClassA->meta->get_method('a'), 'MyMouseX::Foo::Method');
75 does_ok(ClassB->meta->get_method('b'), 'MyMouseX::Bar::Method');