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