Select Code to Download

Select or download this

use Scalar::Util qw(blessed dualvar isweak readonly refaddr reftype ta
+inted
                        weaken isvstring looks_like_number set_prototy
+pe);

Select or download this

    $addr = refaddr "string";           # undef
    $addr = refaddr \$var;              # eg 12345678
    $addr = refaddr [];                 # eg 23456784

    $obj  = bless {}, "Foo";
    $addr = refaddr $obj;               # eg 88123488