ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-Try-Tiny/t
/
usr
share
doc
perl-Try-Tiny
t
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
lib
-
chmod
Open
Rename
Delete
00-report-prereqs.dd
10.07 MB
chmod
View
DL
Edit
Rename
Delete
00-report-prereqs.t
5.83 MB
chmod
View
DL
Edit
Rename
Delete
basic.t
3 MB
chmod
View
DL
Edit
Rename
Delete
context.t
1.17 MB
chmod
View
DL
Edit
Rename
Delete
erroneous_usage.t
1.5 MB
chmod
View
DL
Edit
Rename
Delete
finally.t
2.5 MB
chmod
View
DL
Edit
Rename
Delete
given_when.t
694 B
chmod
View
DL
Edit
Rename
Delete
global_destruction_forked.t
953 B
chmod
View
DL
Edit
Rename
Delete
global_destruction_load.t
550 B
chmod
View
DL
Edit
Rename
Delete
named.t
685 B
chmod
View
DL
Edit
Rename
Delete
when.t
669 B
chmod
View
DL
Edit
Rename
Delete
zzz-check-breaks.t
1.06 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-Try-Tiny/t/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
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply