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