Select Code to Download

my $obj = new PKG;
$obj->safe_sub({'foo' => 'bar'}, 'cool');

...

package PKG;
&safe_sub({'foo' => 'bar'}, 'cool');

package PKG;

...
sub new {
    bless {}, shift;
}