Select Code to Download

use B::Deparse;

...

$code = B::Deparse->new->coderef2text(\&subref);
print "\nAfter editing &something:\n",$code;

Before editing &something:
{
...
    my($self, $param) = @_;
    return _stuff($param);
}