Hook::LexWrap doesn't capture return value of subroutine in post() wrapper

#!/usr/bin/perl -w
use strict;
use Hook::LexWrap;

sub get { return "Foo!" }
wrap get, post => sub { warn $_[-1] };
get();
[download]

This code should print 'Foo! at wrap.pl line 7.', but instead, outputs:

Use of uninitialized value in warn at wrap.pl line 6.
Warning: something's wrong at wrap.pl line 6.
[download]

Anyone know why?

---
"A Jedi uses the Force for knowledge and defense, never for attack."

Comment on Hook::LexWrap doesn't capture return value of subroutine in post() wrapper
Select or Download Code

Re: Hook::LexWrap doesn't capture return value of subroutine in post() wrapper
by Roger (Parson) on Dec 23, 2003 at 04:10 UTC

#!/usr/bin/perl -w
use strict;
use Hook::LexWrap;
use Data::Dumper;

sub get { return "Foo!" }
wrap get, post => sub { print Dumper(\@_) };
my @n = get();
my $n = get();
get();
[download]

$VAR1 = [
          [
            'Foo!'
          ]
        ];
$VAR1 = [
          'Foo!'
        ];
$VAR1 = [
          bless( sub { "DUMMY" }, 'Hook::LexWrap::Cleanup' )
        ];
[download]

In a post-wrapper, $_[-1] contains the return value produced by the wrapped subroutine. In a scalar return context, this value is the scalar return value. In an list return context, this value is a reference to the array of return values. $_[-1] may be assigned to in a post-wrapper, and this changes the return value accordingly.
[download]

$_[-1]

[reply]
[d/l]
[select]


Do you know where your variables are?
	PerlMonks

Hook::LexWrap doesn't capture return value of subroutine in post() wrapper

How many continents have you visited?