t/Cheese.pm

   1 package Cheese;
   2
   3 use strict;
   4
   5 use vars qw($foo $quux);
   6 use Pod::Constants -debug => 1, -trim => 1,
   7     foo => \$foo,
   8     bar => sub { print "GOT HERE\n"; eval "use ReEntrancyTest";
   9                  print "GOT HERE TOO. \$\@ is `$@'\n"; },
  10     quux => \$quux,
  11 ;
  12
  13 =head1 foo
  14
  15 detcepxe
  16
  17 =head1 bar
  18
  19 =head2 quux
  20
  21 Blah.
  22
  23 =cut
  24
  25 1;