File Coverage

blib/lib/Try/Tiny/NoDie.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Try::Tiny::NoDie;
2 1     1   14868 use 5.008_005;
  1         4  
3              
4             our $VERSION = '0.01';
5              
6 1     1   4 use strict;
  1         2  
  1         17  
7 1     1   3 use warnings;
  1         1  
  1         26  
8              
9 1     1   454 use Try::Tiny;
  1         1026  
  1         49  
10              
11 1     1   4 use Exporter 5.57 'import';
  1         11  
  1         65  
12             our @EXPORT = our @EXPORT_OK = qw(try_no_die try catch finally);
13              
14             sub try_no_die (&;@) {
15 1     1 0 448 local $SIG{__DIE__} = "IGNORE";
16 1         2 &Try::Tiny::try;
17             }
18              
19             1;
20             __END__