From 7e7ddbe33ca34359d711aee1e0ddebaeb40c2a18 Mon Sep 17 00:00:00 2001 From: Lorry Tar Creator Date: Thu, 25 Jun 2015 04:47:55 +0000 Subject: Class-Load-0.23 --- t/lib/Class/Load/Error/DieAfterBeginIsa.pm | 11 +++++++++++ t/lib/Class/Load/Error/DieAfterIsa.pm | 14 ++++++++++++++ t/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm | 11 +++++++++++ t/lib/Class/Load/OK.pm | 9 +++++++++ t/lib/Class/Load/Stash.pm | 7 +++++++ t/lib/Class/Load/Stash/Sub.pm | 7 +++++++ t/lib/Class/Load/SyntaxError.pm | 7 +++++++ t/lib/Class/Load/VersionCheck.pm | 11 +++++++++++ t/lib/Class/Load/VersionCheck2.pm | 11 +++++++++++ t/lib/Test/Class/Load.pm | 17 +++++++++++++++++ 10 files changed, 105 insertions(+) create mode 100644 t/lib/Class/Load/Error/DieAfterBeginIsa.pm create mode 100644 t/lib/Class/Load/Error/DieAfterIsa.pm create mode 100644 t/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm create mode 100644 t/lib/Class/Load/OK.pm create mode 100644 t/lib/Class/Load/Stash.pm create mode 100644 t/lib/Class/Load/Stash/Sub.pm create mode 100644 t/lib/Class/Load/SyntaxError.pm create mode 100644 t/lib/Class/Load/VersionCheck.pm create mode 100644 t/lib/Class/Load/VersionCheck2.pm create mode 100644 t/lib/Test/Class/Load.pm (limited to 't/lib') 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; -- cgit v1.2.1