#1
if (eval{ $_[0]->{''}, 1 }) {

#2
use Scalar::Util qw(reftype);
if (reftype $_[0] eq 'HASH') {

#3
if (UNIVERSAL::isa($_[0],'HASH')) {