t/pod/p2u_data.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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