Add ARM files

[dh-make-perl] / dev / arm / libsub-uplevel-perl / libsub-uplevel-perl-0.1901 / t / lib / Foo.pm

diff --git a/dev/arm/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/t/lib/Foo.pm b/dev/arm/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/t/lib/Foo.pm
new file mode 100644 (file)
index 0000000..ea5f2bd
--- /dev/null
+++ b/dev/arm/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/t/lib/Foo.pm
@@ -0,0 +1,8 @@
+package Foo;
+
+# Hook::LexWrap does this, Sub::Uplevel appears to interfere.
+sub import { *{caller()."::fooble"} = \&fooble }
+
+sub fooble { 42 }
+
+1;