Select Code to Download

#!/usr/bin/perl -w
use strict;
sub mod_perl {
...
mod_perl(qw( Morning Morn ));
mod_perl(qw( Evening Eve ));
mod_perl();

Variable "$static1" will not stay shared at static.pl line 9.
<Hi> [Hello] (Hello) (Hi)
[undef] (Goodbye) (Bye)
[undef] (Morning) (Morn)
[undef] (Evening) (Eve)

sub uniqueNonBlanks {
    my( $avItems )= @_;
    my @return;
...
    }
    return wantarray ? @return : \@return;
}

my @a= uniqueNonBlanks("Why","","I","Why");
my @b= uniqueNonBlanks("Why","You","Be","I");
$"= ",";
print "(@a) (@b)\n";

sub validateOptions {
    my( $hvOptions, $hvUserOpts )= @_;
...
        # ...
    }
}

our %Open_defaults= ( Access=>READ_ONLY, Delimiter=>"/" );
sub Open {
    my( $keyName, $hvUserOpts )= @_;
...
    my $hvOpts= validOptions( {%Read_defaults}, $hvUserOpts );
    # ...
}

sub mod_perl {
    our $static= "Hi";
    sub sub1 {
...
    }
    # ...
}

sub mod_perl {
    {
        my $static1 BEGIN;
...
    }
    # ...
}

sub mod_perl {
    sub sub1 {
        my $static1= "Hi" STATIC;
...
    }
    # ...
}