__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
#!/usr/bin/perl
use strict;
BEGIN { $^W = 1 }
use Test::More tests => 5;
BEGIN {
$Sub::Uplevel::CHECK_FRAMES = 1;
use_ok('Sub::Uplevel');
}
sub show_caller {
return scalar caller;
}
sub wrap_show_caller {
my $uplevel = shift;
return uplevel $uplevel, \&show_caller;
}
my $warning = '';
local $SIG{__WARN__} = sub { $warning = shift };
my $caller = wrap_show_caller(1);
is($caller, 'main', "wrapper returned correct caller");
is( $warning, '', "don't warn if ordinary uplevel" );
$warning = '';
$caller = wrap_show_caller(2);
my $file = __FILE__;
is($caller, undef, "wrapper returned correct caller");
like( $warning, qr/uplevel 2 is more than the caller stack/, "warn if too much uplevel" );
| 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 |
|