X7ROOT File Manager
Current Path:
/usr/share/doc/perl-Try-Tiny/t
usr
/
share
/
doc
/
perl-Try-Tiny
/
t
/
📁
..
📄
00-report-prereqs.dd
(10.07 KB)
📄
00-report-prereqs.t
(5.83 KB)
📄
basic.t
(3 KB)
📄
context.t
(1.17 KB)
📄
erroneous_usage.t
(1.5 KB)
📄
finally.t
(2.5 KB)
📄
given_when.t
(694 B)
📄
global_destruction_forked.t
(953 B)
📄
global_destruction_load.t
(550 B)
📁
lib
📄
named.t
(685 B)
📄
when.t
(669 B)
📄
zzz-check-breaks.t
(1.06 KB)
Editing: 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
Upload File
Create Folder