Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libpod-coverage-perl / libpod-coverage-perl-0.19 / t / lib / Tie.pm

diff --git a/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/lib/Tie.pm b/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/lib/Tie.pm
new file mode 100644 (file)
index 0000000..60d07f0
--- /dev/null
+++ b/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/lib/Tie.pm
@@ -0,0 +1,53 @@
+package Tie;
+
+=head1 NAME
+
+Tie - stubs to make sure that TIE* and friends are skipped
+
+=head1 METHODS
+
+=item foo
+
+blah blah
+
+=cut
+
+sub foo {
+    print "I like pie\n";
+}
+
+sub TIESCALAR { print "foo"; }
+sub TIEARRAY { print "foo"; }
+sub TIEHASH { print "foo"; }
+sub TIEHANDLE { print "foo"; }
+sub FETCH { print "foo"; }
+sub STORE { print "foo"; }
+sub UNTIE { print "foo"; }
+sub FETCHSIZE { print "foo"; }
+sub STORESIZE { print "foo"; }
+sub POP { print "foo"; }
+sub PUSH { print "foo"; }
+sub SHIFT { print "foo"; }
+sub UNSHIFT { print "foo"; }
+sub SPLICE { print "foo"; }
+sub DELETE { print "foo"; }
+sub EXISTS { print "foo"; }
+sub EXTEND { print "foo"; }
+sub CLEAR { print "foo"; }
+sub FIRSTKEY { print "foo"; }
+sub NEXTKEY { print "foo"; }
+sub PRINT { print "foo"; }
+sub PRINTF { print "foo"; }
+sub WRITE { print "foo"; }
+sub READLINE { print "foo"; }
+sub GETC { print "foo"; }
+sub READ { print "foo"; }
+sub CLOSE { print "foo"; }
+sub BINMODE { print "foo"; }
+sub OPEN { print "foo"; }
+sub EOF { print "foo"; }
+sub FILENO { print "foo"; }
+sub SEEK { print "foo"; }
+sub TELL { print "foo"; }
+
+1;