Help for this page

Select Code to Download


  1. or download this
    use Scalar::Util qw(blessed);

...
} else {
  print "Its not an object\n";
}
  2. or download this
    #!perl -l
use Scalar::Util qw(blessed reftype refaddr);
...
reftype  :HASH
refaddr  :28045496
----
  3. or download this
    Testing '$Evil_Hash'
ref      :ARRAY
...
reftype  :HASH
refaddr  :28045736
----