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

[chromatic]

On Sunday 25 February 2007 23:04, Yuval Kogman wrote:

> Hmm.... I usually do
>
>         if ( ref $x ) {
>                 if ( my $class = blessed $x ) {
>
>                 } else {
>
>                 }
>         }
>
> in code that tries to be very duck friendly.

I wonder if pulling the new DOES() code out of universal.c into a module for 
5.9.4 and earlier would alleviate that pain somehow.

Pure-perl would be easy.  XS is fairly doable.

-- c