diff options
| author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-06-25 04:47:55 +0000 |
|---|---|---|
| committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-06-25 04:47:55 +0000 |
| commit | 7e7ddbe33ca34359d711aee1e0ddebaeb40c2a18 (patch) | |
| tree | 2a03e101e7b0302f5dcde62ed415a415ecca041d /t/lib/Class/Load/Error | |
| download | Class-Load-tarball-master.tar.gz | |
Class-Load-0.23HEADClass-Load-0.23master
Diffstat (limited to 't/lib/Class/Load/Error')
| -rw-r--r-- | t/lib/Class/Load/Error/DieAfterBeginIsa.pm | 11 | ||||
| -rw-r--r-- | t/lib/Class/Load/Error/DieAfterIsa.pm | 14 | ||||
| -rw-r--r-- | t/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm | 11 |
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 { |