Select Code to Download

sub f {
   my ($x) = @_;
...

f(4);  # 4
f(5);  # 4!!

sub f {
   my ($x) = @_;
...

f(4);  # 4
f(5);  # 4!!

BEGIN {
   package Prefixer;
...
       $a_prefixer->prefix('2'),  # a2
       $b_prefixer->prefix('3'),  # b3
       $b_prefixer->prefix('4');  # b4

sub make_prefixer {
   my ($prefix) = @_;
...
       $a_prefixer->('2'),  # a2
       $b_prefixer->('3'),  # b3
       $b_prefixer->('4');  # b4

sub f {
   local our ($x) = @_;
...

f(4);  # 4
f(5);  # 5

sub f {
   local our ($x) = @_;
...

f(4);  # 4
f(5);  # 5