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: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |