What version of Perl5 and of Pod::Usage are you using? I'm on a Solaris box with a
pre-5.6 persion of Perl and the example you gave works fine for me. (so rest assured
you aren't missing the point :-)
On Mon, Jun 24, 2002 at 09:09:22AM -0500, Cordingley, Robert wrote:
> Hi all,
>
> I've been reading this least for a few days, and I've not seen a link to a
> FAQ go by yet, so I haven't read that. I guess the first and most important
> question is: where's the FAQ? :)
>
> The second question is, why can I get no output from Pod::Usage? I've tried
> copying the little sample program verbatim out of the Pod::Usage man/pod
> page, and it too generates no output. I originally thought it was because I
> was running perl under cygwin on Win2K, so I copied the code to a Solaris
> 2.8 box and tried it there, again to no avail. Am I completely missing
> something, perhaps the point of Pod::Usage?
>
> Here's the script I've tested with:
>
> #!/usr/local/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);
> pod2usage(1) 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.
>
> =cut
--
Brad Appleton <[EMAIL PROTECTED]> http://www.bradapp.net/
"Education is the ability to listen to almost anything
without losing your temper or your self-confidence."
-- Robert Frost
