File Coverage

File:t/05-try-tiny.t
Coverage:100.0%

linestmtbrancondsubpodtimecode
1#!perl
2
3
1
1
1
27693
3
76
use strict;
4
1
1
1
4
2
40
use warnings;
5
6
1
1
1
594
19352
8
use Test::More tests => 3;
7
8
1
1
1
1555
3
54
use Util::Underscore;
9
10
1
183165
for my $sub (qw/try catch finally/) {
11
1
1
1
5
1
1842
    no strict 'refs';
12
3
3
3
1603
14
21
    ok \&{"_::$sub"} == \&{"Try::Tiny::$sub"},
13        "\\&_::$sub == \\&Try::Tiny::$sub";
14}