Next | Hook::LexWrap | 15 |
$return = &$original; $dummy = scalar $wrapper{post}->(@_, $return) if $wrapper{post}; ... return $return;
This code was for scalar context calls
List context is handled similarly
$return = [ &$original ]; () = $wrapper{post}->(@_, $return) if $wrapper{post}; ... return ref $return eq 'ARRAY' ? @$return : ($return);
The postwrapper gets an extra listref argument
Next | Copyright © 2003 M. J. Dominus |