t/ReEntrancyTest.pm

   1
   2 package ReEntrancyTest;
   3
   4 use strict;
   5 use vars qw($wohoo $foo);
   6
   7 use Pod::Constants -debug => 1, -trim => 1, foobar => \$wohoo;
   8
   9 =head1 foobar
  10
  11 Re-entrancy works!
  12
  13 =cut
  14
  15 1;