]>
Commit | Line | Data |
---|---|---|
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; |