Select Code to Download

% perl -MScalar::Util=reftype -we '$x=1; my $y=($x and reftype $x eq q
+(HASH))'
Use of uninitialized value in string eq at -e line 1.

...( reftype $x and reftype $x eq 'HASH' )...

{
  my $temporary_variable = reftype $x;
  ...( $temporary_variable and $temporary_variable eq 'HASH' )...
}