4 use Test::More tests => 2;
7 my $mc = MyClass->new();
8 my $mc2 = MyClass2->new();
11 is_deeply([$mc->plugins], [qw(MyClass::Plugin::MyPlugin)], "Got inner plugin");
12 is_deeply([$mc2->plugins], [], "Didn't get plugin");
14 package MyClass::Plugin::MyPlugin;
15 sub pretty { print "I am pretty" };
18 use Module::Pluggable inner => 1;
20 sub new { return bless {}, $_[0] }
23 use Module::Pluggable search_path => "MyClass::Plugin", inner => 0;
25 sub new { return bless {}, $_[0] }