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

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

##</code><code>##

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