Move Module:Pluggable tests from t/Module_Pluggable to ext/Module_Pluggable/t

62 files changed, 1621 insertions, 0 deletions

diff --git a/ext/Module-Pluggable/t/01use.t b/ext/Module-Pluggable/t/01use.t
new file mode 100644
index 0000000000..be0b8481ac
--- /dev/null
+++ b/ext/Module-Pluggable/t/01use.t
@@ -0,0 +1,9 @@
+#!perl -w
+
+use strict;
+use Test::More tests => 3;
+
+use_ok('Module::Pluggable');
+use_ok('Module::Pluggable::Object');
+use_ok('Devel::InnerPackage');
+
diff --git a/ext/Module-Pluggable/t/02alsoworks.t b/ext/Module-Pluggable/t/02alsoworks.t
new file mode 100644
index 0000000000..131df29da0
--- /dev/null
+++ b/ext/Module-Pluggable/t/02alsoworks.t
@@ -0,0 +1,42 @@
+#!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;
+
diff --git a/ext/Module-Pluggable/t/02works.t b/ext/Module-Pluggable/t/02works.t
new file mode 100644
index 0000000000..f748344a7a
--- /dev/null
+++ b/ext/Module-Pluggable/t/02works.t
@@ -0,0 +1,42 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 5;
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(MyTest::Plugin::Bar MyTest::Plugin::Foo MyTest::Plugin::Quux::Foo);
+ok(@plugins = sort $foo->plugins);
+
+
+
+is_deeply(\@plugins, \@expected, "is deeply");
+
+@plugins = ();
+
+ok(@plugins = sort MyTest->plugins);
+
+
+
+
+is_deeply(\@plugins, \@expected, "is deeply class");
+
+
+
+package MyTest;
+
+use strict;
+use Module::Pluggable;
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/02works_taint.t b/ext/Module-Pluggable/t/02works_taint.t
new file mode 100644
index 0000000000..0e1baa3dc0
--- /dev/null
+++ b/ext/Module-Pluggable/t/02works_taint.t
@@ -0,0 +1,41 @@
+#!perl -wT
+
+# NOTE: Module::Pluggable is going into core
+# and CORE tests can't modify @INC under taint 
+# so this is a work around to make sure it
+# still works under taint checking.
+
+use strict;
+use Test::More tests => 5;
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(Module::Pluggable::Object);
+ok(@plugins = sort $foo->plugins);
+
+
+ok(grep {/Module::Pluggable::Object/} @plugins, "Contains Module::Pluggable::Object");
+
+@plugins = ();
+
+ok(@plugins = sort MyTest->plugins);
+
+ok(grep {/Module::Pluggable::Object/} @plugins, "Contains Module::Pluggable::Object under class method");
+
+
+
+package MyTest;
+
+use strict;
+use Module::Pluggable search_path => 'Module::Pluggable';
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/03diffname.t b/ext/Module-Pluggable/t/03diffname.t
new file mode 100644
index 0000000000..d449fd0e04
--- /dev/null
+++ b/ext/Module-Pluggable/t/03diffname.t
@@ -0,0 +1,30 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 3;
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(MyTest::Plugin::Bar MyTest::Plugin::Foo MyTest::Plugin::Quux::Foo);
+ok(@plugins = sort $foo->foo);
+is_deeply(\@plugins, \@expected);
+
+
+
+package MyTest;
+
+use strict;
+use Module::Pluggable ( sub_name => 'foo');
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/04acmedir.t b/ext/Module-Pluggable/t/04acmedir.t
new file mode 100644
index 0000000000..e2572feb48
--- /dev/null
+++ b/ext/Module-Pluggable/t/04acmedir.t
@@ -0,0 +1,30 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 3;
+
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(Acme::MyTest::Plugin::Foo);
+ok(@plugins = sort $foo->plugins);
+is_deeply(\@plugins, \@expected);
+
+
+package MyTest;
+use File::Spec::Functions qw(catdir);
+use strict;
+use Module::Pluggable search_path => ["Acme::MyTest::Plugin"], search_dirs => [ "t/acme" ];
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/04acmedir_single.t b/ext/Module-Pluggable/t/04acmedir_single.t
new file mode 100644
index 0000000000..adc5304b69
--- /dev/null
+++ b/ext/Module-Pluggable/t/04acmedir_single.t
@@ -0,0 +1,30 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 3;
+
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(Acme::MyTest::Plugin::Foo);
+ok(@plugins = sort $foo->plugins);
+is_deeply(\@plugins, \@expected);
+
+
+package MyTest;
+use File::Spec::Functions qw(catdir);
+use strict;
+use Module::Pluggable search_path => "Acme::MyTest::Plugin", search_dirs => "t/acme" ;
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/04acmepath.t b/ext/Module-Pluggable/t/04acmepath.t
new file mode 100644
index 0000000000..540158c496
--- /dev/null
+++ b/ext/Module-Pluggable/t/04acmepath.t
@@ -0,0 +1,30 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 3;
+
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(Acme::MyTest::Plugin::Foo);
+ok(@plugins = sort $foo->plugins);
+is_deeply(\@plugins, \@expected);
+
+
+package MyTest;
+use File::Spec::Functions qw(catdir);
+use strict;
+use Module::Pluggable (search_path => ["Acme::MyTest::Plugin"]);
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/04acmepath_single.t b/ext/Module-Pluggable/t/04acmepath_single.t
new file mode 100644
index 0000000000..976e77ec26
--- /dev/null
+++ b/ext/Module-Pluggable/t/04acmepath_single.t
@@ -0,0 +1,30 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 3;
+
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(Acme::MyTest::Plugin::Foo);
+ok(@plugins = sort $foo->plugins);
+is_deeply(\@plugins, \@expected);
+
+
+package MyTest;
+use File::Spec::Functions qw(catdir);
+use strict;
+use Module::Pluggable search_path => "Acme::MyTest::Plugin";
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/05postpath.t b/ext/Module-Pluggable/t/05postpath.t
new file mode 100644
index 0000000000..08c4052d26
--- /dev/null
+++ b/ext/Module-Pluggable/t/05postpath.t
@@ -0,0 +1,31 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 3;
+
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(MyTest::Extend::Plugin::Bar);
+ok(@plugins = sort $foo->plugins);
+is_deeply(\@plugins, \@expected);
+
+
+
+package MyTest;
+use File::Spec::Functions qw(catdir);
+use strict;
+use Module::Pluggable (search_path => ["MyTest::Extend::Plugin"]);
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/06multipath.t b/ext/Module-Pluggable/t/06multipath.t
new file mode 100644
index 0000000000..6f74591289
--- /dev/null
+++ b/ext/Module-Pluggable/t/06multipath.t
@@ -0,0 +1,33 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 3;
+
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(Acme::MyTest::Plugin::Foo MyTest::Extend::Plugin::Bar);
+ok(@plugins = sort $foo->plugins);
+
+is_deeply(\@plugins, \@expected);
+
+
+
+package MyTest;
+use File::Spec::Functions qw(catdir);
+use strict;
+use File::Spec::Functions qw(catdir);
+use Module::Pluggable (search_path => ["MyTest::Extend::Plugin", "Acme::MyTest::Plugin"]);
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/07instantiate.t b/ext/Module-Pluggable/t/07instantiate.t
new file mode 100644
index 0000000000..352d4d0926
--- /dev/null
+++ b/ext/Module-Pluggable/t/07instantiate.t
@@ -0,0 +1,40 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 6;
+
+my $foo;
+ok($foo = MyTest->new());
+
+
+
+my @plugins;
+ok(@plugins = sort $foo->booga(nork => 'fark'));
+is(ref $plugins[0],'MyTest::Extend::Plugin::Bar');
+is($plugins[0]->nork,'fark');
+
+
+@plugins = ();
+eval { @plugins = $foo->wooga( nork => 'fark') };
+is($@, '');
+is(scalar(@plugins),0);
+
+
+package MyTest;
+use File::Spec::Functions qw(catdir);
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Module::Pluggable (search_path => ["MyTest::Extend::Plugin"], sub_name => 'booga', instantiate => 'new');
+use Module::Pluggable (search_path => ["MyTest::Extend::Plugin"], sub_name => 'wooga', instantiate => 'nosomuchmethod');
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/08nothing.t b/ext/Module-Pluggable/t/08nothing.t
new file mode 100644
index 0000000000..f5c6487189
--- /dev/null
+++ b/ext/Module-Pluggable/t/08nothing.t
@@ -0,0 +1,30 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 2;
+
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @expected = ();
+my @plugins = sort $foo->plugins;
+is_deeply(\@plugins, \@expected);
+
+
+package MyTest;
+use File::Spec::Functions qw(catdir);
+use strict;
+use Module::Pluggable (search_path => ["No::Such::Modules"]);
+use base qw(Module::Pluggable);
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/09require.t b/ext/Module-Pluggable/t/09require.t
new file mode 100644
index 0000000000..af5de5fd92
--- /dev/null
+++ b/ext/Module-Pluggable/t/09require.t
@@ -0,0 +1,29 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 2;
+
+my $t = MyTest->new();
+
+
+ok($t->plugins());
+
+ok(keys %{MyTest::Plugin::Foo::});
+
+
+package MyTest;
+use File::Spec::Functions qw(catdir);
+use strict;
+use Module::Pluggable (require => 1);
+use base qw(Module::Pluggable);
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/10innerpack.t b/ext/Module-Pluggable/t/10innerpack.t
new file mode 100644
index 0000000000..0653fc84f1
--- /dev/null
+++ b/ext/Module-Pluggable/t/10innerpack.t
@@ -0,0 +1,35 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 4;
+
+
+
+my $t = InnerTest->new();
+
+my %plugins = map { $_ => 1 } $t->plugins;
+
+ok(keys %plugins, "Got some plugins");
+ok($plugins{'InnerTest::Plugin::Foo'}, "Got Foo");
+ok($plugins{'InnerTest::Plugin::Bar'}, "Got Bar - the inner package");
+ok($plugins{'InnerTest::Plugin::Quux'}, "Got Quux - the other inner package");
+
+
+
+package InnerTest;
+use strict;
+use Module::Pluggable require => 1;
+use base qw(Module::Pluggable);
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+
+1;
+
diff --git a/ext/Module-Pluggable/t/10innerpack_inner.t b/ext/Module-Pluggable/t/10innerpack_inner.t
new file mode 100644
index 0000000000..054d9b67d7
--- /dev/null
+++ b/ext/Module-Pluggable/t/10innerpack_inner.t
@@ -0,0 +1,34 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 3;
+
+
+
+my $t = InnerTest->new();
+
+my %plugins = map { $_ => 1 } $t->plugins;
+
+ok(keys %plugins, "Got some plugins");
+ok($plugins{'InnerTest::Plugin::Foo'}, "Got Foo");
+ok($plugins{'InnerTest::Plugin::Bar'}, "Got Bar - the inner package");
+
+
+
+package InnerTest;
+use strict;
+use Module::Pluggable inner => 1;
+use base qw(Module::Pluggable);
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+
+1;
+
diff --git a/ext/Module-Pluggable/t/10innerpack_noinner.t b/ext/Module-Pluggable/t/10innerpack_noinner.t
new file mode 100644
index 0000000000..1d670b02c3
--- /dev/null
+++ b/ext/Module-Pluggable/t/10innerpack_noinner.t
@@ -0,0 +1,34 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 3;
+
+
+
+my $t = InnerTest->new();
+
+my %plugins = map { $_ => 1 } $t->plugins;
+
+ok(keys %plugins, "Got some plugins");
+ok($plugins{'InnerTest::Plugin::Foo'}, "Got Foo");
+ok(!$plugins{'InnerTest::Plugin::Bar'}, "Didn't get Bar - the inner package");
+
+
+
+package InnerTest;
+use strict;
+use Module::Pluggable require => 1, inner => 0;
+use base qw(Module::Pluggable);
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+
+1;
+
diff --git a/ext/Module-Pluggable/t/10innerpack_onefile.t b/ext/Module-Pluggable/t/10innerpack_onefile.t
new file mode 100644
index 0000000000..01caf3738e
--- /dev/null
+++ b/ext/Module-Pluggable/t/10innerpack_onefile.t
@@ -0,0 +1,27 @@
+#!perl -wT
+
+use strict;
+use Test::More tests => 2;
+use Data::Dumper;
+
+my $mc  = MyClass->new();
+my $mc2 = MyClass2->new();
+
+
+is_deeply([$mc->plugins],  [qw(MyClass::Plugin::MyPlugin)], "Got inner plugin");
+is_deeply([$mc2->plugins], [],                              "Didn't get plugin");
+
+package MyClass::Plugin::MyPlugin;
+sub pretty { print "I am pretty" };
+
+package MyClass;
+use Module::Pluggable inner => 1;
+
+sub new { return bless {}, $_[0] }
+
+package MyClass2;
+use Module::Pluggable search_path => "MyClass::Plugin", inner => 0;
+
+sub new { return bless {}, $_[0] }
+1;
+
diff --git a/ext/Module-Pluggable/t/10innerpack_override.t b/ext/Module-Pluggable/t/10innerpack_override.t
new file mode 100644
index 0000000000..f9e863e930
--- /dev/null
+++ b/ext/Module-Pluggable/t/10innerpack_override.t
@@ -0,0 +1,34 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 3;
+
+
+
+my $t = InnerTest->new();
+
+my %plugins = map { $_ => 1 } $t->plugins;
+
+ok(keys %plugins, "Got some plugins");
+ok($plugins{'InnerTest::Plugin::Foo'}, "Got Foo");
+ok($plugins{'InnerTest::Plugin::Bar'}, "Got Bar - the inner package");
+
+
+
+package InnerTest;
+use strict;
+use Module::Pluggable require => 0, inner => 1;
+use base qw(Module::Pluggable);
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+
+1;
+
diff --git a/ext/Module-Pluggable/t/10innerpack_super.t b/ext/Module-Pluggable/t/10innerpack_super.t
new file mode 100644
index 0000000000..e9a58bd8fa
--- /dev/null
+++ b/ext/Module-Pluggable/t/10innerpack_super.t
@@ -0,0 +1,29 @@
+#!perl -wT
+
+use Test::More tests => 3;
+use strict;
+use_ok('Devel::InnerPackage');
+Bar->whee;
+is_deeply([Devel::InnerPackage::list_packages("Bar")],[], "Don't pick up ::SUPER pseudo stash"); 
+is_deeply([Devel::InnerPackage::list_packages("Foo")],['Foo::Bar'], "Still pick up other inner package");
+
+package Foo;
+
+sub whee {
+    1;
+}
+
+package Foo::Bar;
+
+sub whee {}
+
+package Bar;
+use base 'Foo';
+
+sub whee {
+    shift->SUPER::whee;
+    2;
+}
+
+
+1;
diff --git a/ext/Module-Pluggable/t/11usetwice.t b/ext/Module-Pluggable/t/11usetwice.t
new file mode 100644
index 0000000000..8240318a4a
--- /dev/null
+++ b/ext/Module-Pluggable/t/11usetwice.t
@@ -0,0 +1,44 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 3;
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(MyTest::Extend::Plugin::Bar MyTest::Plugin::Bar MyTest::Plugin::Foo MyTest::Plugin::Quux::Foo);
+
+push @plugins,  $foo->plugins;
+push @plugins, $foo->foo;
+
+@plugins = sort @plugins;
+is_deeply(\@plugins, \@expected);
+
+@plugins = ();
+
+push @plugins,  MyTest->plugins;
+push @plugins,  MyTest->foo; 
+@plugins = sort @plugins;
+is_deeply(\@plugins, \@expected);
+
+
+
+package MyTest;
+
+use strict;
+use Module::Pluggable;
+use Module::Pluggable ( search_path => [ "MyTest::Extend::Plugin" ] , sub_name => 'foo' );
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+
+1;
+
diff --git a/ext/Module-Pluggable/t/12only.t b/ext/Module-Pluggable/t/12only.t
new file mode 100644
index 0000000000..1150b60793
--- /dev/null
+++ b/ext/Module-Pluggable/t/12only.t
@@ -0,0 +1,64 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 10;
+
+{
+    my $foo;
+    ok($foo = MyTest->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Foo);
+    ok(@plugins = sort $foo->plugins);
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTest->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+{
+    my $foo;
+    ok($foo = MyTestSub->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Foo);
+    ok(@plugins = sort $foo->plugins);
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTestSub->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+package MyTest;
+
+use strict;
+use Module::Pluggable only => "MyTest::Plugin::Foo";
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+package MyTestSub;
+
+use strict;
+use Module::Pluggable search_path => "MyTest::Plugin";
+
+
+sub new {
+    my $class = shift;
+    my $self = bless {}, $class;
+
+    $self->only("MyTest::Plugin::Foo");
+
+    return $self;
+}
+1;
diff --git a/ext/Module-Pluggable/t/12onlyarray.t b/ext/Module-Pluggable/t/12onlyarray.t
new file mode 100644
index 0000000000..a37e7771d2
--- /dev/null
+++ b/ext/Module-Pluggable/t/12onlyarray.t
@@ -0,0 +1,65 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 10;
+
+{
+    my $foo;
+    ok($foo = MyTest->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Foo);
+    ok(@plugins = sort $foo->plugins);
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTest->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+{
+    my $foo;
+    ok($foo = MyTestSub->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Foo);
+    ok(@plugins = sort $foo->plugins);
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTestSub->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+package MyTest;
+
+use strict;
+use Module::Pluggable only => [ "MyTest::Plugin::Foo" ];
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+package MyTestSub;
+
+use strict;
+use Module::Pluggable search_path => "MyTest::Plugin";
+
+
+sub new {
+    my $class = shift;
+    my $self = bless {}, $class;
+
+    $self->only(["MyTest::Plugin::Foo"]);
+
+    return $self;
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/12onlyregex.t b/ext/Module-Pluggable/t/12onlyregex.t
new file mode 100644
index 0000000000..78a9bd554f
--- /dev/null
+++ b/ext/Module-Pluggable/t/12onlyregex.t
@@ -0,0 +1,65 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 10;
+
+{
+    my $foo;
+    ok($foo = MyTest->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Foo);
+    ok(@plugins = sort $foo->plugins);
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTest->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+{
+    my $foo;
+    ok($foo = MyTestSub->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Foo);
+    ok(@plugins = sort $foo->plugins);
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTestSub->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+package MyTest;
+
+use strict;
+use Module::Pluggable only => qr/MyTest::Plugin::Foo$/;
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+package MyTestSub;
+
+use strict;
+use Module::Pluggable search_path => "MyTest::Plugin";
+
+
+sub new {
+    my $class = shift;
+    my $self = bless {}, $class;
+
+    $self->only(qr/MyTest::Plugin::Foo$/);
+
+    return $self;
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/12onlyrequire.t b/ext/Module-Pluggable/t/12onlyrequire.t
new file mode 100644
index 0000000000..cf76b4dd03
--- /dev/null
+++ b/ext/Module-Pluggable/t/12onlyrequire.t
@@ -0,0 +1,21 @@
+#!perl -w
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 2;
+
+my @packages = eval { Zot->_dist_types };
+is($@, '',                "No warnings");
+is(scalar(@packages), 0,  "Correctly only got 1 package");
+
+
+package Zot;
+use strict;
+use Module::Pluggable (
+        sub_name => '_dist_types',
+        search_path => __PACKAGE__,
+        only => qr/Zot::\w+$/,
+        require => 1,
+    );
+
+1;
diff --git a/ext/Module-Pluggable/t/13except.t b/ext/Module-Pluggable/t/13except.t
new file mode 100644
index 0000000000..e08ffa905f
--- /dev/null
+++ b/ext/Module-Pluggable/t/13except.t
@@ -0,0 +1,68 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 10;
+
+{
+    my $foo;
+    ok($foo = MyTest->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Bar MyTest::Plugin::Quux::Foo);
+    ok(@plugins = sort $foo->plugins);
+
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTest->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+{
+    my $foo;
+    ok($foo = MyTestSub->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Bar MyTest::Plugin::Quux::Foo);
+    ok(@plugins = sort $foo->plugins);
+
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTestSub->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+package MyTest;
+
+use strict;
+use Module::Pluggable except => "MyTest::Plugin::Foo";
+
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+package MyTestSub;
+
+use strict;
+use Module::Pluggable search_path => "MyTest::Plugin";
+
+
+sub new {
+    my $class = shift;
+    my $self = bless {}, $class;
+
+    $self->except("MyTest::Plugin::Foo");
+
+    return $self;
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/13exceptarray.t b/ext/Module-Pluggable/t/13exceptarray.t
new file mode 100644
index 0000000000..ec61ff4dae
--- /dev/null
+++ b/ext/Module-Pluggable/t/13exceptarray.t
@@ -0,0 +1,68 @@
+#!perl -wT
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 10;
+
+{
+    my $foo;
+    ok($foo = MyTest->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Bar MyTest::Plugin::Quux::Foo);
+    ok(@plugins = sort $foo->plugins);
+
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTest->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+{
+    my $foo;
+    ok($foo = MyTestSub->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Bar MyTest::Plugin::Quux::Foo);
+    ok(@plugins = sort $foo->plugins);
+
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTestSub->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+package MyTest;
+
+use strict;
+use Module::Pluggable except => [ "MyTest::Plugin::Foo" ];
+
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+package MyTestSub;
+
+use strict;
+use Module::Pluggable search_path => "MyTest::Plugin";
+
+
+sub new {
+    my $class = shift;
+    my $self = bless {}, $class;
+
+    $self->except(["MyTest::Plugin::Foo"]);
+
+    return $self;
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/13exceptregex.t b/ext/Module-Pluggable/t/13exceptregex.t
new file mode 100644
index 0000000000..2d842b387f
--- /dev/null
+++ b/ext/Module-Pluggable/t/13exceptregex.t
@@ -0,0 +1,68 @@
+#!perl -wT
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 10;
+
+{
+    my $foo;
+    ok($foo = MyTest->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Bar MyTest::Plugin::Quux::Foo);
+    ok(@plugins = sort $foo->plugins);
+
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTest->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+{
+    my $foo;
+    ok($foo = MyTestSub->new());
+
+    my @plugins;
+    my @expected = qw(MyTest::Plugin::Bar MyTest::Plugin::Quux::Foo);
+    ok(@plugins = sort $foo->plugins);
+
+    is_deeply(\@plugins, \@expected);
+
+    @plugins = ();
+
+    ok(@plugins = sort MyTestSub->plugins);
+    is_deeply(\@plugins, \@expected);
+}
+
+package MyTest;
+
+use strict;
+use Module::Pluggable except => qr/MyTest::Plugin::Foo/;
+
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+package MyTestSub;
+
+use strict;
+use Module::Pluggable search_path => "MyTest::Plugin";
+
+
+sub new {
+    my $class = shift;
+    my $self = bless {}, $class;
+
+    $self->except(qr/MyTest::Plugin::Foo/);
+
+    return $self;
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/14package.t b/ext/Module-Pluggable/t/14package.t
new file mode 100644
index 0000000000..aaca94ceab
--- /dev/null
+++ b/ext/Module-Pluggable/t/14package.t
@@ -0,0 +1,34 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 5;
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(MyTest::Plugin::Bar MyTest::Plugin::Foo MyTest::Plugin::Quux::Foo);
+ok(@plugins = sort $foo->plugins);
+is_deeply(\@plugins, \@expected);
+
+@plugins = ();
+
+ok(@plugins = sort MyTest->plugins);
+is_deeply(\@plugins, \@expected);
+
+
+
+package MyTest;
+use strict;
+sub new { return bless {}, $_[0] }
+
+package MyOtherTest;
+use strict;
+use Module::Pluggable ( package => "MyTest" );
+sub new { return bless {}, $_[0] }
+
+
+1;
+
diff --git a/ext/Module-Pluggable/t/15topicsafe.t b/ext/Module-Pluggable/t/15topicsafe.t
new file mode 100644
index 0000000000..49305f2884
--- /dev/null
+++ b/ext/Module-Pluggable/t/15topicsafe.t
@@ -0,0 +1,16 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More 'no_plan';
+
+use Module::Pluggable search_path => 'Acme::MyTest';
+
+my $topic = "topic";
+
+for ($topic) {
+  main->plugins;
+}
+
+is($topic, 'topic', "we've got the right topic");
diff --git a/ext/Module-Pluggable/t/16different_extension.t b/ext/Module-Pluggable/t/16different_extension.t
new file mode 100644
index 0000000000..f628a7cd67
--- /dev/null
+++ b/ext/Module-Pluggable/t/16different_extension.t
@@ -0,0 +1,42 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Test::More tests => 5;
+
+my $foo;
+ok($foo = ExtTest->new());
+
+my @plugins;
+my @expected = qw(ExtTest::Plugin::Bar ExtTest::Plugin::Foo ExtTest::Plugin::Quux::Foo);
+ok(@plugins = sort $foo->plugins);
+
+
+
+is_deeply(\@plugins, \@expected, "is deeply");
+
+@plugins = ();
+
+ok(@plugins = sort ExtTest->plugins);
+
+
+
+
+is_deeply(\@plugins, \@expected, "is deeply class");
+
+
+
+package ExtTest;
+
+use strict;
+use Module::Pluggable file_regex => qr/\.plugin$/;
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
diff --git a/ext/Module-Pluggable/t/17devel_inner_package.t b/ext/Module-Pluggable/t/17devel_inner_package.t
new file mode 100644
index 0000000000..30f32560d8
--- /dev/null
+++ b/ext/Module-Pluggable/t/17devel_inner_package.t
@@ -0,0 +1,15 @@
+#!perl -w
+use Test::More tests => 3;
+
+use Devel::InnerPackage qw(list_packages);
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+
+my @packages;
+
+use_ok("TA::C::A::I");
+ok(@packages = list_packages("TA::C::A::I"));
+
+is_deeply([sort @packages], [qw(TA::C::A::I::A TA::C::A::I::A::B)]);
+
+
diff --git a/ext/Module-Pluggable/t/18skipped_package.t b/ext/Module-Pluggable/t/18skipped_package.t
new file mode 100644
index 0000000000..c580d68cbb
--- /dev/null
+++ b/ext/Module-Pluggable/t/18skipped_package.t
@@ -0,0 +1,11 @@
+#!perl -w
+
+use Test::More tests => 1;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+
+use Devel::InnerPackage qw(list_packages);
+use No::Middle;
+
+my @p = list_packages("No::Middle");
+is_deeply([ sort @p ], [ qw(No::Middle::Package::A No::Middle::Package::B) ]);
diff --git a/ext/Module-Pluggable/t/19can_ok_clobber.t b/ext/Module-Pluggable/t/19can_ok_clobber.t
new file mode 100644
index 0000000000..07c598b4ba
--- /dev/null
+++ b/ext/Module-Pluggable/t/19can_ok_clobber.t
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+use strict; 
+use warnings;
+use Data::Dumper;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+
+use Test::More tests=>5;
+
+#use_ok( 'MyTest' );
+#diag "Module::Pluggable::VERSION $Module::Pluggable::VERSION";
+
+my @plugins = MyTest->plugins;
+my @plugins_after;
+
+use_ok( 'MyTest::Plugin::Foo' );
+ok( my $foo = MyTest::Plugin::Foo->new() );
+
+@plugins_after = MyTest->plugins;
+is_deeply(
+    \@plugins_after,
+    \@plugins,
+    "plugins haven't been clobbered",
+);
+
+can_ok ($foo, 'frobnitz');
+
+@plugins_after = MyTest->plugins;
+is_deeply(
+    \@plugins_after,
+    \@plugins,
+    "plugins haven't been clobbered",
+) or diag Dumper ;
+
+
+
+package MyTest;
+
+use strict;
+use Module::Pluggable;
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
+
diff --git a/ext/Module-Pluggable/t/20dodgy_files.t b/ext/Module-Pluggable/t/20dodgy_files.t
new file mode 100644
index 0000000000..8c0eb8e76e
--- /dev/null
+++ b/ext/Module-Pluggable/t/20dodgy_files.t
@@ -0,0 +1,84 @@
+#!perl -w
+
+BEGIN {
+    if ($^O eq 'VMS' || $^O eq 'VOS') {
+        print "1..0 # Skip: can't handle misspelled plugin names\n";
+        exit;
+    }
+}
+
+use strict;
+use FindBin;
+use Test::More;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use File::Spec::Functions qw(catfile);
+
+
+my ($dodgy_file) = (catfile($FindBin::Bin, "lib", "OddTest", "Plugin", "-Dodgy.pm")=~/^(.*)$/);
+unless (-f $dodgy_file) {
+        plan skip_all => "Can't handle misspelled plugin names\n";
+} else {
+        plan tests => 5;
+}
+
+
+my $foo;
+ok($foo = OddTest->new());
+
+my @plugins;
+my @expected = ('OddTest::Plugin::-Dodgy', 'OddTest::Plugin::Foo');
+ok(@plugins = sort $foo->plugins);
+is_deeply(\@plugins, \@expected, "is deeply");
+
+my @odd_plugins;
+my @odd_expected = qw(OddTest::Plugin::Foo);
+ok(@odd_plugins = sort $foo->odd_plugins);
+is_deeply(\@odd_plugins, \@odd_expected, "is deeply");
+
+
+package OddTest::Pluggable;
+
+use Data::Dumper;
+use base qw(Module::Pluggable::Object);
+
+
+sub find_files { 
+    my $self = shift;
+    my @files = $self->SUPER::find_files(@_);
+    return grep { !/(^|\/)-/ } $self->SUPER::find_files(@_) ;
+}
+
+package OddTest;
+
+use strict;
+use Module::Pluggable;
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+sub odd_plugins {
+    my $self = shift;
+    my %opts;
+    my ($pkg, $file) = caller; 
+    # the default name for the method is 'plugins'
+    my $sub          = $opts{'sub_name'}  || 'plugins';
+    # get our package 
+    my ($package)    = $opts{'package'} || "OddTest";
+    $opts{filename}  = $file;
+    $opts{package}   = $package;
+
+
+
+    my $op   = OddTest::Pluggable->new( package => ref($self) );
+    return $op->plugins(@_);
+    
+
+}
+
+
+1;
+
diff --git a/ext/Module-Pluggable/t/21editor_junk.t b/ext/Module-Pluggable/t/21editor_junk.t
new file mode 100644
index 0000000000..5f4b52b32e
--- /dev/null
+++ b/ext/Module-Pluggable/t/21editor_junk.t
@@ -0,0 +1,53 @@
+#!perl -w
+
+use Test::More;
+use FindBin;
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
+use Module::Pluggable::Object;
+use File::Spec::Functions qw(catfile);
+
+my ($dodgy_file) = (catfile($FindBin::Bin,"lib", "EditorJunk", "Plugin", "#Bar.pm#")=~/^(.*)$/);
+unless (-f $dodgy_file) {
+        plan skip_all => "Can't handle plugin names with octothorpes\n";
+} else {
+        plan tests => 4;
+}
+
+
+
+my $foo;
+ok($foo = EditorJunk->new());
+
+my @plugins;
+my @expected = qw(EditorJunk::Plugin::Bar EditorJunk::Plugin::Foo);
+ok(@plugins = sort $foo->plugins);
+
+is_deeply(\@plugins, \@expected, "is deeply");
+
+
+my $mpo = Module::Pluggable::Object->new(
+    package             => 'EditorJunk',
+    filename            => __FILE__,
+    include_editor_junk => 1,
+);
+
+@expected = ('EditorJunk::Plugin::.#Bar', 'EditorJunk::Plugin::Bar', 'EditorJunk::Plugin::Foo');
+@plugins = sort $mpo->plugins();
+is_deeply(\@plugins, \@expected, "is deeply");
+
+
+
+package EditorJunk;
+
+use strict;
+use Module::Pluggable;
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+
+
diff --git a/ext/Module-Pluggable/t/acme/Acme/MyTest/Plugin/Foo.pm b/ext/Module-Pluggable/t/acme/Acme/MyTest/Plugin/Foo.pm
new file mode 100644
index 0000000000..29c888baf7
--- /dev/null
+++ b/ext/Module-Pluggable/t/acme/Acme/MyTest/Plugin/Foo.pm
@@ -0,0 +1,9 @@
+package Acme::MyTest::Plugin::Foo;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/Acme/Foo-Bar.pm b/ext/Module-Pluggable/t/lib/Acme/Foo-Bar.pm
new file mode 100644
index 0000000000..4fc48c6a18
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/Acme/Foo-Bar.pm
@@ -0,0 +1,6 @@
+package Acme::FooBar;
+
+our $quux = "hello";
+
+1;
+
diff --git a/ext/Module-Pluggable/t/lib/Acme/MyTest/Plugin/Foo.pm b/ext/Module-Pluggable/t/lib/Acme/MyTest/Plugin/Foo.pm
new file mode 100644
index 0000000000..29c888baf7
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/Acme/MyTest/Plugin/Foo.pm
@@ -0,0 +1,9 @@
+package Acme::MyTest::Plugin::Foo;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/.gitignore b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/.gitignore
new file mode 100644
index 0000000000..34796cc355
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/.gitignore
@@ -0,0 +1,2 @@
+[#]*
+.#*
diff --git a/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm
new file mode 100644
index 0000000000..dcc870c4e5
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm
@@ -0,0 +1,9 @@
+package EditorJunk::Bar;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm.swo b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm.swo
new file mode 100644
index 0000000000..dcc870c4e5
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm.swo
@@ -0,0 +1,9 @@
+package EditorJunk::Bar;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm.swp b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm.swp
new file mode 100644
index 0000000000..dcc870c4e5
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm.swp
@@ -0,0 +1,9 @@
+package EditorJunk::Bar;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm~ b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm~
new file mode 100644
index 0000000000..dcc870c4e5
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Bar.pm~
@@ -0,0 +1,9 @@
+package EditorJunk::Bar;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Foo.pm b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Foo.pm
new file mode 100644
index 0000000000..64b8bf4c7b
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/EditorJunk/Plugin/Foo.pm
@@ -0,0 +1,9 @@
+package EditorJunk::Foo;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/ExtTest/Plugin/Bar.plugin b/ext/Module-Pluggable/t/lib/ExtTest/Plugin/Bar.plugin
new file mode 100644
index 0000000000..2f9b6db0b0
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/ExtTest/Plugin/Bar.plugin
@@ -0,0 +1,9 @@
+package MyTest::Plugin::Bar;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/ExtTest/Plugin/Foo.plugin b/ext/Module-Pluggable/t/lib/ExtTest/Plugin/Foo.plugin
new file mode 100644
index 0000000000..5386ba5b80
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/ExtTest/Plugin/Foo.plugin
@@ -0,0 +1,9 @@
+package MyTest::Plugin::Foo;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/ExtTest/Plugin/Quux/Foo.plugin b/ext/Module-Pluggable/t/lib/ExtTest/Plugin/Quux/Foo.plugin
new file mode 100644
index 0000000000..bb6e08667b
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/ExtTest/Plugin/Quux/Foo.plugin
@@ -0,0 +1,9 @@
+package MyTest::Plugin::Quux::Foo;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/InnerTest/Plugin/Foo.pm b/ext/Module-Pluggable/t/lib/InnerTest/Plugin/Foo.pm
new file mode 100644
index 0000000000..4f5825ea65
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/InnerTest/Plugin/Foo.pm
@@ -0,0 +1,17 @@
+package InnerTest::Plugin::Foo;
+use strict;
+
+our $FOO = 1;
+
+package InnerTest::Plugin::Bar;
+use strict;
+
+sub bar {}
+
+package InnerTest::Plugin::Quux;
+use strict;
+use base qw(InnerTest::Plugin::Bar);
+
+
+
+1;
diff --git a/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Bar.pm b/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Bar.pm
new file mode 100644
index 0000000000..3c5d79dc9b
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Bar.pm
@@ -0,0 +1,5 @@
+package MyOtherTest::Plugin::Bar;
+use strict;
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Foo.pm b/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Foo.pm
new file mode 100644
index 0000000000..14825724b3
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Foo.pm
@@ -0,0 +1,5 @@
+package MyOtherTest::Plugin::Foo;
+use strict;
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Quux.pm b/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Quux.pm
new file mode 100644
index 0000000000..22fd55d3b9
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Quux.pm
@@ -0,0 +1,5 @@
+package MyOtherTest::Plugin::Quux;
+use strict;
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Quux/Foo.pm b/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Quux/Foo.pm
new file mode 100644
index 0000000000..a8ecd69f11
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/MyOtherTest/Plugin/Quux/Foo.pm
@@ -0,0 +1,5 @@
+package MyOtherTest::Plugin::Quux::Foo;
+use strict;
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/MyTest/Extend/Plugin/Bar.pm b/ext/Module-Pluggable/t/lib/MyTest/Extend/Plugin/Bar.pm
new file mode 100644
index 0000000000..6d112cf39f
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/MyTest/Extend/Plugin/Bar.pm
@@ -0,0 +1,17 @@
+package MyTest::Extend::Plugin::Bar;
+use strict;
+
+sub new {
+	my $class = shift;
+	my %self = @_;
+
+	return bless \%self, $class;
+}
+
+
+sub nork {
+	return $_[0]->{'nork'};
+}
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/MyTest/Plugin/Bar.pm b/ext/Module-Pluggable/t/lib/MyTest/Plugin/Bar.pm
new file mode 100644
index 0000000000..2f9b6db0b0
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/MyTest/Plugin/Bar.pm
@@ -0,0 +1,9 @@
+package MyTest::Plugin::Bar;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/MyTest/Plugin/Foo.pm b/ext/Module-Pluggable/t/lib/MyTest/Plugin/Foo.pm
new file mode 100644
index 0000000000..6ca8317507
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/MyTest/Plugin/Foo.pm
@@ -0,0 +1,10 @@
+package MyTest::Plugin::Foo;
+
+
+use strict;
+
+sub new { return bless {}, $_[0]; }
+sub frobnitz {}
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/MyTest/Plugin/Quux/Foo.pm b/ext/Module-Pluggable/t/lib/MyTest/Plugin/Quux/Foo.pm
new file mode 100644
index 0000000000..bb6e08667b
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/MyTest/Plugin/Quux/Foo.pm
@@ -0,0 +1,9 @@
+package MyTest::Plugin::Quux::Foo;
+
+
+use strict;
+
+
+1;
+
+
diff --git a/ext/Module-Pluggable/t/lib/No/Middle.pm b/ext/Module-Pluggable/t/lib/No/Middle.pm
new file mode 100644
index 0000000000..9d0e31ac12
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/No/Middle.pm
@@ -0,0 +1,14 @@
+package No::Middle;
+
+sub foo {}
+
+package No::Middle::Package::A;
+
+sub foo {}
+
+
+package No::Middle::Package::B;
+
+sub foo {}
+
+1;
diff --git a/ext/Module-Pluggable/t/lib/OddTest/Plugin/.gitignore b/ext/Module-Pluggable/t/lib/OddTest/Plugin/.gitignore
new file mode 100644
index 0000000000..8c9254e4d0
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/OddTest/Plugin/.gitignore
@@ -0,0 +1 @@
+/-Dodgy.pm
diff --git a/ext/Module-Pluggable/t/lib/OddTest/Plugin/Foo.pm b/ext/Module-Pluggable/t/lib/OddTest/Plugin/Foo.pm
new file mode 100644
index 0000000000..bcf37e34bf
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/OddTest/Plugin/Foo.pm
@@ -0,0 +1,5 @@
+package OddFiles/Plugin/Foo.pm
+
+sub new {}
+
+1;
diff --git a/ext/Module-Pluggable/t/lib/TA/C/A/I.pm b/ext/Module-Pluggable/t/lib/TA/C/A/I.pm
new file mode 100644
index 0000000000..35575dfdde
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/TA/C/A/I.pm
@@ -0,0 +1,13 @@
+package TA::C::A::I;
+
+sub foo { }
+
+package TA::C::A::I::A;
+
+sub foo { }
+
+package TA::C::A::I::A::B;
+
+sub foo { }
+
+1;
diff --git a/ext/Module-Pluggable/t/lib/Zot/.Zork.pm b/ext/Module-Pluggable/t/lib/Zot/.Zork.pm
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/ext/Module-Pluggable/t/lib/Zot/.Zork.pm