summaryrefslogtreecommitdiff
path: root/t/lib/Class/Load/Error
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/Class/Load/Error')
-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
3 files changed, 36 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 {