in reply to Showing the right POD via Pod::Usage
The following is a kludge, but may be worth a try:
Change the second:
to (say):=head1 SYNOPSIS
=head1 MAIN
and then invoke pod2usage as:
Pod::Usage::pod2usage( pod2usage(-verbose => 99, -sections => [ qw(MAIN) ] ) ) if ( $CONFIG{ 'help' } );
See -sections in the “Arguments” section of Pod::Usage.
Hope that helps,
Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
In Section
Seekers of Perl Wisdom