File Coverage

blib/lib/Error/Pure/ANSIColor/Die.pm
Criterion Covered Total %
statement 21 31 67.7
branch 0 4 0.0
condition 0 3 0.0
subroutine 7 9 77.7
pod 1 1 100.0
total 29 48 60.4


line stmt bran cond sub pod time code
1             package Error::Pure::ANSIColor::Die;
2              
3 2     2   71077 use base qw(Exporter);
  2         19  
  2         276  
4 2     2   15 use strict;
  2         4  
  2         58  
5 2     2   25 use warnings;
  2         5  
  2         71  
6              
7 2     2   1045 use Error::Pure::Output::ANSIColor qw(err_die);
  2         32875  
  2         46  
8 2     2   1187 use Error::Pure::Utils qw(err_helper);
  2         2992  
  2         35  
9 2     2   1306 use List::MoreUtils qw(none);
  2         29286  
  2         15  
10 2     2   2168 use Readonly;
  2         6  
  2         601  
11              
12             our $VERSION = 0.27;
13              
14             # Constants.
15             Readonly::Array our @EXPORT_OK => qw(err);
16             Readonly::Scalar my $EVAL => 'eval {...}';
17             Readonly::Scalar my $EMPTY_STR => q{};
18              
19             # Process error.
20             sub err {
21 0     0 1   my @msg = @_;
22              
23             # Get errors structure.
24 0           my @errors = err_helper(@msg);
25              
26             # Finalize in main on last err.
27 0           my $stack_ar = $errors[-1]->{'stack'};
28 0 0 0       if ($stack_ar->[-1]->{'class'} eq 'main'
29 0 0   0     && none { $_ eq $EVAL || $_ =~ /^eval '/ms }
30 0           map { $_->{'sub'} } @{$stack_ar}) {
  0            
31              
32 0           die err_die(@errors)."\n";
33              
34             # Die for eval.
35             } else {
36 0           die "$errors[-1]->{'msg'}->[0]\n";
37             }
38              
39 0           return;
40             }
41              
42             1;
43              
44             __END__