Help for this page

Select Code to Download


  1. or download this
    % 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.
  2. or download this
    ...( reftype $x and reftype $x eq 'HASH' )...
  3. or download this
    {
  my $temporary_variable = reftype $x;
  ...( $temporary_variable and $temporary_variable eq 'HASH' )...
}