Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libpod-coverage-perl / libpod-coverage-perl-0.19 / examples / script-covered

diff --git a/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/examples/script-covered b/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/examples/script-covered
new file mode 100644 (file)
index 0000000..8dd8a3a
--- /dev/null
+++ b/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/examples/script-covered
@@ -0,0 +1,27 @@
+#!/usr/bin/perl -w
+use strict;
+
+my $file = shift || die "need something to test";
+my $code;
+
+open F, $file;
+{
+    local $/;
+    $code = <F>;
+}
+close F;
+
+eval qq{
+package testme;
+
+$code;
+
+1;
+};
+$INC{'testme.pm'} = 1;
+
+print testme::foo();
+
+require Pod::Coverage;
+Pod::Coverage->import(pod_from => $file,
+                      package  => 'testme');