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

my @mars_subs = qw (add increment);
for (@mars_subs) {
    wrap $_, pre => sub {
        my @caller = caller(0);
        for (@caller) {
            print $_, " " if defined $_;
        }
        print "\n";
    };
}

print add( 1, 2 ), "\n";

sub add {
    my ( $num1, $num2 ) = @_;
    increment($num1);
    return $num1 + $num2;
}

sub increment {
    my $num = shift;
    return ++$num;
}