Select Code to Download

      overload::StrVal($_[0]) =~ /0x(\w+)/;

  zen% cat t0
  package A; $x = bless {}; $y = bless [], $x; print "$y";
...
  zen% /opt/perl-5.8.0/bin/perl -wl t0
  Attempt to bless into a reference at t0 line 1.