1#!/usr/bin/env perl
2use strict;
3use warnings;
4
5use Pod::Usage;
6
7my @tests = (
8  [ "NAME" , "ACTIONS", "ACTIONS/help" ],
9  'DESCRIPTION|OPTIONS|ENVIRONMENT/Caveats',
10);
11
12my $idx = shift(@ARGV) || 0;
13
14pod2usage(
15  -exitstatus => 0,
16  -verbose => 99,
17  -sections => $tests[$idx],
18  -noperldoc => 1
19);
201;
21
22__END__
23
24=head1 NAME
25
26trypodi - pod sections usage test
27
28=head1 ACTIONS
29
30Para for actions.
31
32=head2 help
33
34Help text.
35
36=head1 DESCRIPTION
37
38Description text.
39
40=head2 Caveats
41
42Description caveat text.
43
44=head2 Other
45
46Description other text.
47
48=head1 OPTIONS
49
50Options text.
51
52=head2 Caveats
53
54Options caveat text.
55
56=head2 Other
57
58Options other text.
59
60=head1 ENVIRONMENT
61
62Environment text.
63
64=head2 Caveats
65
66Environment caveat text.
67
68=head2 Other
69
70Environment other text.
71
72=cut
73
74