git.maemo.org Git - dh-make-perl/blob - dev/arm/libtest-pod-coverage-perl/libtest-pod-coverage-perl-1.08/t/Privates.pm

   1 package Privates;
   2
   3 sub foo {}
   4 sub bar {}
   5 sub baz {}
   6 sub INTERNAL_THING {}
   7 sub INTERNAL_DOODAD {}
   8
   9 1;
  10 __END__
  11
  12 # test module - three subs, one without, one with an item, one with a head2
  13
  14 =head2 Methods
  15
  16 =over
  17
  18 =item foo
  19
  20 this is foo
  21
  22 =back
  23
  24 =head2 bar
  25
  26 The bar is just a throwaway.
  27
  28 =head2 baz
  29
  30 baz is very important
  31
  32 =cut
  33