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   490650 use 5.014;
  4         54  
6 4     4   21 use warnings;
  4         7  
  4         107  
7              
8 4     4   2524 use Lexical::Failure;
  4         10  
  4         22  
9              
10             our $DIE_LINE = -1;
11              
12             sub import {
13 19     19   3266 my (undef, undef, $errors) = @_;
  19         22  
14 19         45 ON_FAILURE($errors);
15             }
16              
17             sub dont_succeed {
18              
19 26     26 0 178365 $DIE_LINE = __FILE__ . ' line ' . (__LINE__ + 1);
  26         48  
20 26         93 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