Select Code to Download

BEGIN {
    no strict 'refs';
...
        }
    }
}

BEGIN {
    no strict 'refs';
...
        *$property = sub : lvalue { $_[0]->{$property} };
    }
}

OLD SITUATION           NEW SITUATION

...
  $temp =~ s/foo/bar/;
  $foo->bar($temp);
}                       $foo->bar =~ s/foo/bar/