#!perl -w use strict; use FindBin; use lib "$FindBin::Bin/lib"; use Test::More tests => 5; my $foo; ok($foo = MyOtherTest->new()); my @plugins; my @expected = qw(MyOtherTest::Plugin::Bar MyOtherTest::Plugin::Foo MyOtherTest::Plugin::Quux MyOtherTest::Plugin::Quux::Foo); ok(@plugins = sort $foo->plugins); is_deeply(\@plugins, \@expected, "is deeply"); @plugins = (); ok(@plugins = sort MyOtherTest->plugins); is_deeply(\@plugins, \@expected, "is deeply class"); package MyOtherTest; use strict; use Module::Pluggable; sub new { my $class = shift; return bless {}, $class; } 1;