t/Cheese.pm

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