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   139070 use 5.014;
  1         17  
6 1     1   5 use warnings;
  1         2  
  1         36  
7              
8             use Lexical::Failure
9 1         7 fail => 'error',
10 1     1   530 ON_FAILURE => 'on_error';
  1         3  
11              
12             our $DIE_LINE = -1;
13              
14             sub import {
15 11     11   102 my (undef, undef, $errors) = @_;
  11         12  
16 11         25 on_error($errors);
17             }
18              
19             sub dont_succeed {
20              
21 14     14 0 91874 $DIE_LINE = __FILE__ . ' line ' . (__LINE__ + 1);
  14         22  
22 14         42 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