File Coverage

blib/lib/Archive/Zip/Parser/Exception.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Archive::Zip::Parser::Exception;
2              
3 2     2   12 use warnings;
  2         4  
  2         53  
4 2     2   9 use strict;
  2         4  
  2         51  
5 2     2   13 use Carp;
  2         4  
  2         308  
6              
7             sub _croak {
8 1     1   3 my ( $self, $error_message ) = @_;
9 1         6 my $caller_package = (caller)[0];
10              
11 1         87 croak "[$caller_package] $error_message";
12             }
13              
14             1;