Re^3: Understanding arguments to subroutines

Take a look at the source code perldoc -m Pod::Usage:

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;
    }
[download]

-verbose is used verbatim as a hash key.

Comment on Re^3: Understanding arguments to subroutines Select or Download Code


Do you know where your variables are?
	PerlMonks