File Coverage

tlib/ExtrasModule.pm
Criterion Covered Total %
statement 18 19 94.7
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 24 26 92.3


line stmt bran cond sub pod time code
1             package
2             ExtrasModule;
3             our $VERSION = '0.000001';
4              
5 1     1   136192 use 5.014;
  1         12  
6 1     1   5 use warnings;
  1         2  
  1         23  
7 1     1   4 use Carp;
  1         2  
  1         72  
8              
9             use Lexical::Failure
10 1     1   529 handlers => { squawk => sub { carp 'Squawked as expected'; return 'squawk!' } };
  1         3  
  1         13  
  1         163  
  1         92  
11              
12             sub import {
13 2     2   17 my (undef, undef, $errors) = @_;
  2         3  
14 2         5 ON_FAILURE($errors);
15             }
16              
17             sub dont_succeed {
18 2     2 0 13678  
19 2         19 fail "Didn't succeed";
20 0           return 'This value should not be returned';
21             }
22              
23              
24             1; # Magic true value required at end of module
25              
26