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: global_destruction_load.t
use strict; use warnings; use Test::More; BEGIN { plan skip_all => 'Capture::Tiny 0.12 required' unless eval { require Capture::Tiny; Capture::Tiny->VERSION(0.12); 1 }; plan tests => 3; Capture::Tiny->import(qw(capture_stderr)); } for my $func (qw(try catch finally)) { is capture_stderr { system $^X, qw(-It/lib -we), qq{sub DESTROY { require TryUser; TryUser->test_$func }} . q{our $o; $o = bless []}; }, '', "$func gets installed when loading Try::Tiny during global destruction"; }
Upload File
Create Folder