http://qs321.pair.com?node_id=1030698

johnguillory has asked for the wisdom of the Perl Monks concerning the following question:

Howdy Cowboys:

I can't get the "-sections" option to work when targeting pod sections. See abstracted code below. Thanks for insight.

use Pod::usage; use Getopt::Long; GetOptions("help"); =head1 SYNOPSIS here's the main usage stuff =head1 SPECIAL special usage stuff here... =cut # This prints SYNOPSIS above just fine as expected: pod2usage(-verbose => 0) if ($opt_help); # This only prints the '-message' and nothing else: pod2usage({-verbose = > 99, -sections => [qw(SPECIAL)], -message => "Here's special stuff...\n"; });