1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
use strict;
BEGIN { $^W = 1 }
use Test::More tests => 3;
BEGIN { use_ok('Sub::Uplevel'); }
sub get_caller_args {
package DB;
my @x = caller(1);
return @DB::args;
}
sub addition {
my $x;
$x += $_ for @_;
return $x;
}
sub wrap_addition {
my @args = get_caller_args();
my $sum = uplevel 1, \&addition, @_;
return ($sum, @args);
}
my ($sum, @args) = wrap_addition(1, 2, 3);
is($sum, 6, "wrapper returned value correct");
is_deeply( \@args, [1, 2, 3], "wrapper returned args correct" );
|
