Select Code to Download

my $obj_var_a = 42;
my $o = bless \$obj_var_a, 'OverloadedClass';
my $ref = \$obj_var_a;
print "overloaded" if $ref->isa('OverloadedClass');