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