Add ARM files

[dh-make-perl] / dev / arm / libtest-harness-perl / libtest-harness-perl-3.12 / t / lib / MyCustom.pm

diff --git a/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/lib/MyCustom.pm b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/lib/MyCustom.pm
new file mode 100644 (file)
index 0000000..2402312
--- /dev/null
+++ b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/lib/MyCustom.pm
@@ -0,0 +1,12 @@
+# avoid cut-n-paste exhaustion with this mixin
+
+package MyCustom;
+use strict;
+
+sub custom {
+    my $self = shift;
+    $main::CUSTOM{ ref($self) }++;
+    return $self;
+}
+
+1;