File Coverage

tlib/SetterErrorModule.pm
Criterion Covered Total %
statement 13 16 81.2
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 18 22 81.8


line stmt bran cond sub pod time code
1             package
2             SetterErrorModule;
3             our $VERSION = '0.000001';
4              
5 1     1   139243 use 5.014;
  1         13  
6 1     1   5 use warnings;
  1         1  
  1         26  
7              
8 1     1   519 use Lexical::Failure;
  1         2  
  1         5  
9              
10              
11             sub import {
12 1     1   8 my (undef, undef, $errors) = @_;
  1         1  
13 1         3 ON_FAILURE($errors);
14             }
15              
16             our $CROAK_LINE = __FILE__ . ' line ' . (__LINE__ + 2);
17 1     1 0 4742 sub dont_succeed {
18 1         4 ON_FAILURE('carp');
19 0            
20 0           fail "The fail should never happen";
21 0           return 'This value should never be returned';
22             }
23              
24             # Module implementation here
25              
26              
27             1; # Magic true value required at end of module
28