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

sub greet { print "Hello, $_[0]!!\n" }

# accessing $_[1] or $_[-1]
# in pre or post wrapper produces memory access error
#
# use only one of the following four lines for testing
  wrap 'greet', pre  => sub {print "before: $_[1]\n"};
# wrap 'greet', post => sub {print "after: $_[1]\n"};
# wrap 'greet', pre  => sub {print "before: $_[-1]\n"};
# wrap 'greet', post => sub {print "after: $_[-1]\n"};

greet('World');