http://www.perlmonks.org?node_id=1210845

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

Hi, i've copy this code from Perlmonks. file=perlmonks.pl
#! /usr/bin/perl #use strict; #use warnings; use Getopt::Long; use Pod::Usage; &GetOptions( 'h|help' => \$opt_help, 'man' => sub{ pod2usage({-verbose=>2, -exitval=>0}); }, 'q|quiet' => \$opt_quiet, 'c|config=s' => \@opt_config, 'p|project=s' => \$opt_proj ) || pod2usage(1); if($opt_help){ print "help---------------\n"; pod2usage(1); } __END__ =head1 NAME perlmonks.pl - Test for http://perlmonks.org/?node_id=664898 =head1 SYNOPSIS perlmonks.pl [options] Options: -h, --help brief help message --man full documentation =cut
By
./perlmonks.pl -h
this is displayed:
help--------------- Usage: perlmonks.pl [options] Options: -h, --help brief help message --man full documentation
But, the verbose 2 is not working,
./perlmonks.pl -m
this is displayed:
#! /usr/bin/perl #use strict; #use warnings; use Getopt::Long; use Pod::Usage; &GetOptions( 'h|help' => \$opt_help, 'man' => sub{ pod2usage({-verbose=>2, -exitval=>0}); }, 'q|quiet' => \$opt_quiet, 'c|config=s' => \@opt_config, 'p|project=s' => \$opt_proj ) || pod2usage(1); if($opt_help){ print "help---------------\n"; pod2usage(1); } __END__ =head1 NAME perlmonks.pl - Test for http://perlmonks.org/?node_id=664898 =head1 SYNOPSIS perlmonks.pl [options] Options: -h, --help brief help message --man full documentation =cut ./perlmonks.pl (END)
The complete source is shown. What do I have to do to correct the error? regards Henrik