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