Re: UNIVERSAL::ref might make ref( $mocked_obj ) sane

[Yuval Kogman]

BTW, pure perl blessed() will work:

        sub UNIVERSAL::a_sub_not_likely_to_be_here { ref($_[0]) }

        sub blessed ($) {
          local($@, $SIG{__DIE__}, $SIG{__WARN__});
          length(ref($_[0]))
                ? eval { $_[0]->a_sub_not_likely_to_be_here }
                : undef
        }

<http://search.cpan.org/src/GBARR/Scalar-List-Utils-1.19/lib/Scalar/Util.pm>

I predict that the next anti duck perl idiom is going to be:

        eval { $x->UNIVERSAL::can("can") }

to determine "true blessedness" 

-- 
  Yuval Kogman <[EMAIL PROTECTED]>
http://nothingmuch.woobling.org  0xEBD27418

pgpcwAl4BpfTp.pgp
Description: PGP signature