in reply to Re^2: Understanding arguments to subroutines
in thread Understanding arguments to subroutines
sub pod2usage { local($_) = shift; my %opts; # ... ## Now determine default -exitval and -verbose values to use if ((! defined $opts{'-exitval'}) && (! defined $opts{'-verbose'}) +) { $opts{'-exitval'} = 2; $opts{'-verbose'} = 0; }
-verbose is used verbatim as a hash key.
|
---|