{ my $static; BEGIN { $static= "Initial value" } sub usesStatic { # ... } } #### sub usesStatic { my $static= "Initial value" BEGIN; # ... } #### sub usesStatic { my $static if 0; # ... } #### eval q{ conditional code; } if condition BEGIN;
## sub usesStatic { my $static= "Initial value" BEGIN; # ... } ##
## sub usesStatic { my $static if 0; # ... } ##
## eval q{ conditional code; } if condition BEGIN;