Next Hook::LexWrap 14

Altering the Return Value: Postwrappers

 $return = &$original;
 $dummy = scalar $wrapper{post}->(@_, $return)
 if $wrapper{post};
 return $return;
 sub set_to_57 { $_[0] = 57 }
 my $x = 119;
 set_to_57($x);
 print "$x\n"; # prints 57!!


Next Copyright © 2003 M. J. Dominus

AltStyle によって変換されたページ (->オリジナル) /