On Fri, Jul 09, 2004 at 11:00:28AM -0400, Michael G Schwern wrote:
> wrap *Test::Builder::diag, pre => sub {
>     $_[1]   = color('red') . $_[1];
>     $_[-2]  =~ s/$/color 'reset'/e;
> };

Glancing at the Hook::LexWrap, I see it's possible to simulate an
"around" wrapper by calling the original function and putting the answer
in $_[-1].  Which makes me wonder why there isn't a native around
wrapper in Hook::LexWrap?

Andrew

Reply via email to