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/Test-Exception-0.43-0/t/

View File Name : caller.t

#!/usr/bin/perl -Tw

# Make sure caller() is undisturbed.

use strict;
use warnings;

use Test::Exception;
use Test::More tests => 3;

eval { die caller() . "\n" };
is( $@, "main\n" );

throws_ok { die caller() . "\n" }  qr/^main$/;


# Make sure our override of caller() does not mess up @DB::args and thus Carp
# The test is rather strange, but there is no clearer way to trigger this
# error. For details see:
# http://rt.perl.org/rt3/Public/Bug/Display.html?id=52610#txn-713770

require Carp;
my $croaker = sub { Carp::croak ('No bizarre errors') };

for my $x (1..1) {
  eval { $croaker->($x) };
}

throws_ok (
  sub { $croaker->() },
  qr/No bizarre errors/,
  "Croak works properly (final)",
);