summaryrefslogtreecommitdiff
path: root/t/lib/Class/Load
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/Class/Load')
-rw-r--r--t/lib/Class/Load/Error/DieAfterBeginIsa.pm11
-rw-r--r--t/lib/Class/Load/Error/DieAfterIsa.pm14
-rw-r--r--t/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm11
-rw-r--r--t/lib/Class/Load/OK.pm9
-rw-r--r--t/lib/Class/Load/Stash.pm7
-rw-r--r--t/lib/Class/Load/Stash/Sub.pm7
-rw-r--r--t/lib/Class/Load/SyntaxError.pm7
-rw-r--r--t/lib/Class/Load/VersionCheck.pm11
-rw-r--r--t/lib/Class/Load/VersionCheck2.pm11
9 files changed, 88 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;
+