Class-Load-0.23HEADClass-Load-0.23master

10 files changed, 105 insertions, 0 deletions

diff --git a/t/lib/Class/Load/Error/DieAfterBeginIsa.pm b/t/lib/Class/Load/Error/DieAfterBeginIsa.pm
new file mode 100644
index 0000000..5ef3384
--- /dev/null
+++ b/t/lib/Class/Load/Error/DieAfterBeginIsa.pm
@@ -0,0 +1,11 @@
+package Class::Load::Error::DieAfterBeginIsa;
+
+use strict;
+use warnings;
+
+BEGIN {
+    our @ISA = qw( UNIVERSAL );
+}
+
+die "Not a syntax error";
+
diff --git a/t/lib/Class/Load/Error/DieAfterIsa.pm b/t/lib/Class/Load/Error/DieAfterIsa.pm
new file mode 100644
index 0000000..0a021cd
--- /dev/null
+++ b/t/lib/Class/Load/Error/DieAfterIsa.pm
@@ -0,0 +1,14 @@
+package Class::Load::Error::DieAfterIsa;
+
+use strict;
+use warnings;
+
+# This library emulates a bug that can occur under App::Cmd,
+#
+# A broken library use's another library ( App::Cmd::Setup ), and that library
+# injects @ISA during import->()
+
+our @ISA = qw( UNIVERSAL );
+
+die "Not a syntax error";
+
diff --git a/t/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm b/t/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm
new file mode 100644
index 0000000..a0ae426
--- /dev/null
+++ b/t/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm
@@ -0,0 +1,11 @@
+package Class::Load::Error::SyntaxErrorAfterIsa;
+use strict;
+use warnings;
+
+# This library emulates a bug that can occur under App::Cmd,
+#
+# A Broken library "use"'s annother library ( App::Cmd::Setup ), and
+# that library injects @ISA during import->()
+our @ISA = qw( UNIVERSAL );
+#}
+sub {
diff --git a/t/lib/Class/Load/OK.pm b/t/lib/Class/Load/OK.pm
new file mode 100644
index 0000000..230f9c9
--- /dev/null
+++ b/t/lib/Class/Load/OK.pm
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+package Class::Load::OK;
+use strict;
+use warnings;
+
+sub ok { 1 }
+
+1;
+
diff --git a/t/lib/Class/Load/Stash.pm b/t/lib/Class/Load/Stash.pm
new file mode 100644
index 0000000..22f7280
--- /dev/null
+++ b/t/lib/Class/Load/Stash.pm
@@ -0,0 +1,7 @@
+package Class::Load::Stash;
+use strict;
+use warnings;
+
+sub a_method { 'a_method' }
+
+1;
diff --git a/t/lib/Class/Load/Stash/Sub.pm b/t/lib/Class/Load/Stash/Sub.pm
new file mode 100644
index 0000000..95cfdf2
--- /dev/null
+++ b/t/lib/Class/Load/Stash/Sub.pm
@@ -0,0 +1,7 @@
+package Class::Load::Stash::Sub;
+use strict;
+use warnings;
+
+sub ver_test { return "Class::Load::Stash ver $Class::Load::Stash::VERSION" }
+
+1;
diff --git a/t/lib/Class/Load/SyntaxError.pm b/t/lib/Class/Load/SyntaxError.pm
new file mode 100644
index 0000000..54c3ab6
--- /dev/null
+++ b/t/lib/Class/Load/SyntaxError.pm
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+package Class::Load::SyntaxError;
+use strict;
+use warnings;
+
+sub {
+
diff --git a/t/lib/Class/Load/VersionCheck.pm b/t/lib/Class/Load/VersionCheck.pm
new file mode 100644
index 0000000..2e900f3
--- /dev/null
+++ b/t/lib/Class/Load/VersionCheck.pm
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+package Class::Load::VersionCheck;
+use strict;
+use warnings;
+
+our $VERSION = 42;
+
+sub ok { 1 }
+
+1;
+
diff --git a/t/lib/Class/Load/VersionCheck2.pm b/t/lib/Class/Load/VersionCheck2.pm
new file mode 100644
index 0000000..aee87e0
--- /dev/null
+++ b/t/lib/Class/Load/VersionCheck2.pm
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+package Class::Load::VersionCheck2;
+use strict;
+use warnings;
+
+our $VERSION = 42;
+
+sub ok { 1 }
+
+1;
+
diff --git a/t/lib/Test/Class/Load.pm b/t/lib/Test/Class/Load.pm
new file mode 100644
index 0000000..e87e286
--- /dev/null
+++ b/t/lib/Test/Class/Load.pm
@@ -0,0 +1,17 @@
+package # hide from PAUSE
+    Test::Class::Load;
+
+use strict;
+use warnings;
+
+use Class::Load::PP;
+
+$ENV{CLASS_LOAD_IMPLEMENTATION} = 'PP';
+
+require Class::Load;
+
+sub import {
+    Class::Load->export_to_level(1, @_);
+}
+
+1;