Ok if I understand this then if
--help is called from the page then should display this
=head1 SYNOPSIS
sample [options] [file ...]
Options:
-help brief help message
-man full documentation
=head1 OPTIONS
If --man or infact if nothing is passed then the entire pod documents should
be displayed
GetOptions('help|?' => \$help, man => \$man) or pod2usage(2);
Which to me read if help or man is undefined then pod2usage(-verbose => 2)
Which is called before this line which states to display just the no files
given message.
pod2usage("$0: No files given.") if ((@ARGV == 0) && (-t STDIN));
now when I pass in --help I get nothing when I pass in nothing I get the no
files given message and when I pass in --man I get the entire document. This
code taken from the pod::usage docs.
#!/usr/bin/perl
use Getopt::Long;
use Pod::Usage;
my $man = 0;
my $help = 0;
## Parse options and print usage if there is a syntax error,
## or if usage was explicitly requested.
GetOptions('help|?' => \$help, man => \$man) or pod2usage(2);
print "$help\n";
print "$man\n";
pod2usage(-verbose => 0) if $help;
pod2usage(-verbose => 2) if $man;
## If no arguments were given, then allow STDIN to be used only
## if it's not connected to a terminal (otherwise print usage)
pod2usage("$0: No files given.") if ((@ARGV == 0) && (-t STDIN));
__END__
=head1 NAME
sample - Using GetOpt::Long and Pod::Usage
=head1 SYNOPSIS
sample [options] [file ...]
Options:
-help brief help message
-man full documentation
=head1 OPTIONS
=over 8
=item B<-help>
Print a brief help message and exits.
=item B<-man>
Prints the manual page and exits.
=back
=head1 DESCRIPTION
B<This program> will read the given input file(s) and do something
useful with the contents thereof.
=synompis
some text
=cut
Paul Kraus
-----------------------
PEL Supply Company
Network Administrator
-----------------------
800 321-1264 Toll Free
216 267-5775 Voice
216 267-6176 Fax
www.pelsupply.com
-----------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
