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.
In reply to Re^3: Understanding arguments to subroutines
by toolic
in thread Understanding arguments to subroutines
by uday_sagar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |