diff options
Diffstat (limited to 't/lib')
-rw-r--r-- | t/lib/T/Impl1.pm | 16 | ||||
-rw-r--r-- | t/lib/T/Impl2.pm | 18 | ||||
-rw-r--r-- | t/lib/T/ImplFails1.pm | 16 | ||||
-rw-r--r-- | t/lib/T/ImplFails2.pm | 16 |
4 files changed, 66 insertions, 0 deletions
diff --git a/t/lib/T/Impl1.pm b/t/lib/T/Impl1.pm new file mode 100644 index 0000000..6ac7073 --- /dev/null +++ b/t/lib/T/Impl1.pm @@ -0,0 +1,16 @@ +package T::Impl1; + +use strict; +use warnings; + +sub return_42 { + return 42; +} + +sub return_package { + return __PACKAGE__; +} + +our $SCALAR = 42; +our @ARRAY = ( 1, 2, 3 ); +our %HASH = ( key => 'val' ); diff --git a/t/lib/T/Impl2.pm b/t/lib/T/Impl2.pm new file mode 100644 index 0000000..7de6c47 --- /dev/null +++ b/t/lib/T/Impl2.pm @@ -0,0 +1,18 @@ +package T::Impl2; + +use strict; +use warnings; + +sub return_42 { + return 42; +} + +sub return_package { + return __PACKAGE__; +} + +our $SCALAR = 42; +our @ARRAY = ( 1, 2, 3 ); +our %HASH = ( key => 'val' ); + +1; diff --git a/t/lib/T/ImplFails1.pm b/t/lib/T/ImplFails1.pm new file mode 100644 index 0000000..0f88cff --- /dev/null +++ b/t/lib/T/ImplFails1.pm @@ -0,0 +1,16 @@ +package T::ImplFails1; + +use strict; +use warnings; + +sub return_42 { + return 42; +} + +sub return_package { + return __PACKAGE__; +} + +die 'Error loading something or other'; + +1; diff --git a/t/lib/T/ImplFails2.pm b/t/lib/T/ImplFails2.pm new file mode 100644 index 0000000..c66b649 --- /dev/null +++ b/t/lib/T/ImplFails2.pm @@ -0,0 +1,16 @@ +package T::ImplFails2; + +use strict; +use warnings; + +sub return_42 { + return 42; +} + +sub return_package { + return __PACKAGE__; +} + +die 'Error loading something or other'; + +1; |