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;
}