[p5sagit/p5-mst-13.2.git] / t / pod / p2u_data.pl

use Pod::Usage;
pod2usage(-verbose => 2, -exit => 17, -input => \*DATA);

__DATA__
=head1 NAME

Test

=head1 SYNOPSIS

perl podusagetest.pl

=head1 DESCRIPTION

This is a test. 

=cut
Commit	Line	Data
267d5541	1	use Pod::Usage;
	2	pod2usage(-verbose => 2, -exit => 17, -input => \*DATA);
	3
	4	__DATA__
	5	=head1 NAME
	6
	7	Test
	8
	9	=head1 SYNOPSIS
	10
	11	perl podusagetest.pl
	12
	13	=head1 DESCRIPTION
	14
	15	This is a test.
	16
	17	=cut
	18