Simplified something like

    
sub my_func {
    local *OtherPackage::routine = sub {
    ... 
    }

    # now use OtherPackage
}
[download]

local will assure that the old code is restored when the scope is left and you have to keep full control over the code inside the scope.

This is not 100% safe because an exception could occur in the middle and a SIG handler could theoretically use OtherPackage.

in my case this is pretty impossible, but to be safe you could additionally check caller inside the patched routine.

$_extend from Object::Util:

my $object = OtherPackage->new(...);
$object->$_extend({
   some_method  => sub { ... },
   other_method => sub { ... },
});
return $object->some_method( $object->other_method );
[download]

?

Only code and no message?

anyway, from the doc:

> Object::Util - a selection of utility methods that can be called on blessed objects

I'm not using it on blessed objects or classes, just plain packages, in case you meant it as an alternative.

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!}

Thank you very much Rolf. Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

Maye Sub::Override or some such helper takes care of that possibility autofeaturely?

please elaborate how this is achieved in Sub::Override ...

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!}