File Coverage

tlib/DefaultModule.pm
Criterion Covered Total %
statement 11 12 91.6
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 17 88.2


line stmt bran cond sub pod time code
1             package
2             TestModule;
3             our $VERSION = '0.000001';
4              
5 1     1   136855 use 5.014;
  1         14  
6 1     1   5 use warnings;
  1         1  
  1         29  
7              
8 1     1   513 use Lexical::Failure default => 'failobj';
  1         2  
  1         6  
9              
10             our $DIE_LINE = -1;
11              
12             sub dont_succeed {
13              
14 1     1 0 2316 $DIE_LINE = __FILE__ . ' line ' . (__LINE__ + 1);
  1         2  
15 1         4 fail "Didn't succeed";
16              
17 0           return 'This value should never be returned';
18             }
19              
20             # Module implementation here
21              
22              
23             1; # Magic true value required at end of module
24