Re: Altering subroutine parameters using Hook::LexWrap

[BrowserUk]

Update: As tye points out below, I was wrong.

You have to return a reference to the modifed @_ from the pre wrapper sub, if you want that to be passed to the original sub.

use strict;
use Hook::LexWrap;

sub some_sub{
    print "@_";
}

sub before{
    # inject a new arg
    unshift @_, 'new arg';
    return \@_;
}

wrap some_sub, pre =>  \&before;

some_sub(1,2,3);

[tye]

This produces "1 2 3" for me using Hook-LexWrap-0.20. (That is, it doesn't work.)