use Object::MultiType;

my $scalar = 'abcd';
my $obj = Object::MultiType->new( scalar => $scalar );
print %{$obj} ? 'hash' : 'empty hash', "\n";
__END__
empty hash