D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
usr
/
share
/
doc
/
perl-Try-Tiny
/
t
/
Filename :
named.t
back
Copy
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
Name
Size
Last Modified
Owner
Permissions
Actions
lib
Dir
July 28 2023 2:57:25
root
0755
00-report-prereqs.dd
10.072
KB
December 21 2017 7:23:09
root
0644
00-report-prereqs.t
5.825
KB
December 21 2017 7:23:09
root
0644
basic.t
2.995
KB
December 21 2017 7:23:09
root
0644
context.t
1.167
KB
December 21 2017 7:23:09
root
0644
erroneous_usage.t
1.503
KB
December 21 2017 7:23:09
root
0644
finally.t
2.502
KB
December 21 2017 7:23:09
root
0644
given_when.t
0.678
KB
December 21 2017 7:23:09
root
0644
global_destruction_forked.t
0.931
KB
December 21 2017 7:23:09
root
0644
global_destruction_load.t
0.537
KB
December 21 2017 7:23:09
root
0644
named.t
0.669
KB
December 21 2017 7:23:09
root
0644
when.t
0.653
KB
December 21 2017 7:23:09
root
0644
zzz-check-breaks.t
1.064
KB
December 21 2017 7:23:09
root
0644
2017 © D7net | D704T team