git.maemo.org Git - dh-make-perl/blob - dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/lib/Fully/Qualified.pm

   1 package Fully::Qualified;
   2 use strict;
   3 use warnings;
   4
   5 use vars qw( $VERSION @EXPORT_OK );
   6 $VERSION=0.001;
   7
   8 use base 'Exporter';
   9 @EXPORT_OK = qw( &ex_sub2 );
  10
  11 =head1 NAME
  12
  13 Fully::Qualified - Test for Pod::Coverage
  14
  15 =head1 SYNOPSIS
  16
  17 none
  18
  19 =head1 DESCRIPTION
  20
  21 This package is to see that L<Pod::Coverage> sees fully qualified subnames as documented. (Not all the world is OO)
  22
  23 =over 4
  24
  25 =item C<Fully::Qualified::api_sub1 ( noargs )>
  26
  27 Okay, it is API; but not exported
  28
  29 =cut
  30
  31 sub api_sub1 { "in api_sub1" }
  32
  33 =item Fully::Qualified::ex_sub2
  34
  35 This sub can be exported.
  36
  37 =cut
  38
  39 sub ex_sub2 { "in ex_sub2" }
  40
  41 =back
  42
  43 =cut
  44