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

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

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

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