[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.20
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
doc
/
perl-Try-Tiny
/
t
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
📁 lib
SET
[ DEL ]
📄 00-report-prereqs.dd
10,314 B
SET
[ EDIT ]
|
[ DEL ]
📄 00-report-prereqs.t
5,965 B
SET
[ EDIT ]
|
[ DEL ]
📄 basic.t
3,067 B
SET
[ EDIT ]
|
[ DEL ]
📄 context.t
1,195 B
SET
[ EDIT ]
|
[ DEL ]
📄 erroneous_usage.t
1,539 B
SET
[ EDIT ]
|
[ DEL ]
📄 finally.t
2,562 B
SET
[ EDIT ]
|
[ DEL ]
📄 given_when.t
694 B
SET
[ EDIT ]
|
[ DEL ]
📄 global_destruction_forked.t
953 B
SET
[ EDIT ]
|
[ DEL ]
📄 global_destruction_load.t
550 B
SET
[ EDIT ]
|
[ DEL ]
📄 named.t
685 B
SET
[ EDIT ]
|
[ DEL ]
📄 when.t
669 B
SET
[ EDIT ]
|
[ DEL ]
📄 zzz-check-breaks.t
1,090 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: named.t
use strict; use warnings; use Test::More; BEGIN { plan skip_all => "Sub::Util or Sub::Name required" unless eval { require Sub::Util; defined &Sub::Util::set_subname; } || eval { require Sub::Name; Sub::Name->VERSION(0.08) }; plan tests => 3; } use Try::Tiny; my $name; try { $name = (caller(0))[3]; }; is $name, "main::try {...} ", "try name"; # note extra space try { die "Boom"; } catch { $name = (caller(0))[3]; }; is $name, "main::catch {...} ", "catch name"; # note extra space try { die "Boom"; } catch { # noop } finally { $name = (caller(0))[3]; }; is $name, "main::finally {...} ", "finally name"; # note extra space