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