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 reply to Re: Showing the right POD via Pod::Usage
by Athanasius
in thread Showing the right POD via Pod::Usage
by skx
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |