File Coverage

blib/lib/Error/Pure/AllError.pm
Criterion Covered Total %
statement 29 31 93.5
branch 3 4 75.0
condition 1 3 33.3
subroutine 9 9 100.0
pod 1 1 100.0
total 43 48 89.5


line stmt bran cond sub pod time code
1             package Error::Pure::AllError;
2              
3 3     3   79000 use base qw(Exporter);
  3         21  
  3         418  
4 3     3   20 use strict;
  3         9  
  3         72  
5 3     3   16 use warnings;
  3         6  
  3         104  
6              
7 3     3   1349 use Error::Pure::Utils qw(err_helper);
  3         11  
  3         61  
8 3     3   1923 use Error::Pure::Output::Text qw(err_bt_pretty);
  3         6394  
  3         68  
9 3     3   265 use List::Util qw(none);
  3         6  
  3         345  
10 3     3   21 use Readonly;
  3         6  
  3         781  
11              
12             # Constants.
13             Readonly::Array our @EXPORT_OK => qw(err);
14             Readonly::Scalar my $EVAL => 'eval {...}';
15              
16             our $VERSION = 0.30;
17              
18             # Process error.
19             sub err {
20 5     5 1 2066 my @msg = @_;
21              
22             # Get errors structure.
23 5         19 my @errors = err_helper(@msg);
24              
25             # Finalize in main on last err.
26 5         12 my $stack_ar = $errors[-1]->{'stack'};
27 5 50 33     27 if ($stack_ar->[-1]->{'class'} eq 'main'
28 10 100   10   46 && none { $_ eq $EVAL || $_ =~ m/^eval '/ms }
29 10         33 map { $_->{'sub'} } @{$stack_ar}) {
  5         13  
30              
31 0         0 die scalar err_bt_pretty(@errors);
32              
33             # Die for eval.
34             } else {
35 5         42 die "$errors[-1]->{'msg'}->[0]\n";
36             }
37              
38 0           return;
39             }
40              
41             1;
42              
43             __END__