#! /hwnet/activestate/perl-5.6/bin/perl -w # This script is used to verify syntax and format use Pod::Usage; use Getopt::Long; &GetOptions( 'help' => \$help, 'man' => \$man) || pod2usage(1); if($man){ pod2usage({-verbose=>2,-exitval=>0}); } if($help){ pod2usage(); exit(0); } print "----------------------------------------------\n"; exit ##############END OF SCRIPT######### __END__ =head1 NAME test.pl -- A simple script. =head1 SYNOPSIS test.pl [options] Options: -h or -help Display help. -man About the script. -c <config_name> Configuration name. -p <path> Path to Project Definition File. -m <n> or -maxerror <n> Maximum number of errors. -q or -quiet Do not print errors. =head1 OPTIONS =over 8 =item B<-h|help> Print a brief help message and exits. =item B<-man> Prints the manual page and exits. =item B<-c> <name> Configuration name. i.e: -c tg,mpg or -c tg -c mpg =item B<-p> <path> Path to Project Definition File. =item B<-m|maxerror> <number> Maximum number of errors. =item B<-q|quiet> Setting this switch will not print any error on stderr. =back =head1 DESCRIPTION The script parses the feature file & print errors.
In reply to pod2usage not displaying the pod document information for verbose level 0 & 1 on LINUX by isha
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |