?????????? ????????? - ??????????????? - /home/.cpan/build/Sub-Uplevel-0.2800-0/t/06_db_args.t
???????
#!/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" );
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????