Add the original source packages to maemo, source lenny

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

diff --git a/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/lib/Fully/Qualified.pm b/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/lib/Fully/Qualified.pm
new file mode 100644 (file)
index 0000000..3a9275d
--- /dev/null
+++ b/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/lib/Fully/Qualified.pm
@@ -0,0 +1,44 @@
+package Fully::Qualified;
+use strict;
+use warnings;
+
+use vars qw( $VERSION @EXPORT_OK );
+$VERSION=0.001;
+
+use base 'Exporter';
+@EXPORT_OK = qw( &ex_sub2 );
+
+=head1 NAME
+
+Fully::Qualified - Test for Pod::Coverage
+
+=head1 SYNOPSIS
+
+none
+
+=head1 DESCRIPTION
+
+This package is to see that L<Pod::Coverage> sees fully qualified subnames as documented. (Not all the world is OO)
+
+=over 4
+
+=item C<Fully::Qualified::api_sub1 ( noargs )>
+
+Okay, it is API; but not exported
+
+=cut
+
+sub api_sub1 { "in api_sub1" }
+
+=item Fully::Qualified::ex_sub2
+
+This sub can be exported.
+
+=cut
+
+sub ex_sub2 { "in ex_sub2" }
+
+=back
+
+=cut
+