Help for this page

Select Code to Download


  1. or download this
    *isa= UNIVERSAL::isa;
sub whatever {
    for my $ref (  @_  ) {
        if( isa( $ref, "HASH" ) ) {
# ...
  2. or download this
    sub whatever {
    for my $ref (  @_  ) {
...
        } elsif(  eval { my $x= $ref->{''}; 1 }  ) {
            # It can be used as a hash ref
# ...