File Coverage

tlib/AliasModule.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             AliasModule;
3             our $VERSION = '0.000001';
4              
5 1     1   140817 use 5.014;
  1         16  
6 1     1   5 use warnings;
  1         2  
  1         32  
7              
8             use Lexical::Failure
9 1         6 fail => 'error',
10 1     1   597 ON_FAILURE => 'on_error';
  1         3  
11              
12             our $DIE_LINE = -1;
13              
14             sub import {
15 11     11   98 my (undef, undef, $errors) = @_;
  11         11  
16 11         28 on_error($errors);
17             }
18              
19             sub dont_succeed {
20              
21 14     14 0 92773 $DIE_LINE = __FILE__ . ' line ' . (__LINE__ + 1);
  14         20  
22 14         49 error "Didn't succeed";
23              
24 0           return 'This value should never be returned';
25             }
26              
27             # Module implementation here
28              
29              
30             1; # Magic true value required at end of module