[pod-constants.git] / t / Cheese.pm

package Cheese;
use strict;
use warnings;

our ($foo, $quux);

sub handle_bar {
	print "GOT HERE\n";
	eval 'use ReEntrancyTest';
	print "GOT HERE TOO. \$\@ is `$@'\n";
}

use Pod::Constants -debug => 1, -trim => 1, foo => \$foo, bar => \&handle_bar, quux => \$quux;

=head1 foo

detcepxe

=head1 bar

=head2 quux

Blah.

=cut

1;
Commit	Line	Data
f46dd377	1	package Cheese;
f46dd377	2	use strict;
8d07cc75 MG	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	}
f46dd377	12
8d07cc75	13	use Pod::Constants -debug => 1, -trim => 1, foo => \$foo, bar => \&handle_bar, quux => \$quux;
f46dd377 MG	14
	15	=head1 foo
	16
	17	detcepxe
	18
	19	=head1 bar
	20
	21	=head2 quux
	22
	23	Blah.
	24
	25	=cut
	26
	27	1;