vcs.maemo.org Git - pkg-perl/blob - deb-src/libpod-coverage-perl/libpod-coverage-perl-0.19/t/lib/Trustme.pm

   1 package Trustme;
   2
   3 # test module - four subs, one with embedded pod item, one with a head2, one
   4 # with a method call, one with nowt
   5
   6 sub foo {}
   7 sub bar {}
   8 sub baz {}
   9 sub naked {}
  10 sub private {}
  11 sub trustme {}
  12 sub trust_me {}
  13
  14
  15 1;
  16 __END__
  17
  18
  19 =head2 METHODS
  20
  21 =over 4
  22
  23 =item foo
  24
  25 foo does foo to things
  26
  27 =item bar
  28
  29 bar does bar to things
  30
  31 =item baz
  32
  33 baz does baz to things
  34
  35 =back
  36
  37 This paragraph should be considered to be the docs for any
  38 method containing the letter u in its name.
  39
  40 =cut