One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/Sub-Uplevel-0.2800-0/t/

View File Name : 07_uplevel_too_high.t

#!/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" );