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: given_when.t
use strict; use warnings; use Test::More; BEGIN { plan skip_all => 'Perl 5.010 is required' unless "$]" >= '5.010'; plan skip_all => 'Tests skipped on perl 5.27.7+, pending resolution of smartmatch changes' if "$]" >= '5.027007'; plan tests => 2; } use Try::Tiny; use 5.010; no if "$]" >= 5.017011, warnings => 'experimental::smartmatch'; my ( $error, $topic ); given ("foo") { when (qr/./) { try { die "blah\n"; } catch { $topic = $_; $error = $_[0]; } }; } is( $error, "blah\n", "error caught" ); { local $TODO = "perhaps a workaround can be found" if "$]" < 5.017003; is( $topic, $error, 'error is also in $_' ); } # ex: set sw=4 et:
Upload File
Create Folder