Re^6: Who am I? Inheritance question

package Scalar::Util;

my $old_blessed = do {
    no strict 'refs';
    delete ${ "Scalar::Util::blessed" };
};
sub blessed {
    my $val = $old_blessed->(@_);
    if ( defined $val && $val eq 'Ye::Olde::Proxy' ) {
        return 'Real::Deal';
    }

    return $val;
}
[download]

Update: Fixed bug.

My criteria for good software:

Does it work?
Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

Comment on Re^6: Who am I? Inheritance question Download Code

Replies are listed 'Best First'.
Re^7: Who am I? Inheritance question by diotalevi (Canon) on Mar 17, 2006 at 14:16 UTC
Just an FYI, \&foo isn't a valid target for delete(). If your example even works, it's a bug. ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊	[reply]