sub isArray  { eval { @{$_[0]}; 1 } }
sub isHash   { eval { %{$_[0]}; 1 } }
sub isScalar { eval { ${$_[0]}; 1 } }
sub isCode   { UNIVERSAL::isa( $_[0], "CODE" ) }