File Coverage

tlib/TestModule.pm
Criterion Covered Total %
statement 14 15 93.3
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 21 90.4


line stmt bran cond sub pod time code
1             package
2             TestModule;
3             our $VERSION = '0.000001';
4              
5 4     4   483773 use 5.014;
  4         53  
6 4     4   19 use warnings;
  4         7  
  4         113  
7              
8 4     4   2101 use Lexical::Failure;
  4         11  
  4         24  
9              
10             our $DIE_LINE = -1;
11              
12             sub import {
13 19     19   4234 my (undef, undef, $errors) = @_;
  19         27  
14 19         46 ON_FAILURE($errors);
15             }
16              
17             sub dont_succeed {
18              
19 26     26 0 177550 $DIE_LINE = __FILE__ . ' line ' . (__LINE__ + 1);
  26         38  
20 26         96 fail "Didn't succeed";
21              
22 0           return 'This value should never be returned';
23             }
24              
25             # Module implementation here
26              
27              
28             1; # Magic true value required at end of module