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');

##</code><code>##

package PKG;

sub safe_sub {
	# The next line contains the purpose of my post...
	shift if ref $_[0] or $_[0] =~ /^PKG/;
	# The below is just to make sure it's working (or not working :)
	my ($hash, $string) = @_;
	print "$hash->{foo}\n$string";
}

sub new {
	bless {}, shift;
}