File Coverage

blib/lib/Seis/Exception.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             package Seis::Exception;
2 2     2   1320 use strict;
  2         4  
  2         68  
3 2     2   12 use warnings;
  2         3  
  2         52  
4 2     2   10 use utf8;
  2         3  
  2         10  
5 2     2   74 use 5.010_001;
  2         6  
  2         126  
6 2     2   9 use parent qw(Exception::Tiny);
  2         3  
  2         12  
7              
8             sub WHAT {
9 0     0 0   my $self = shift;
10 0           Seis::Class->_new(name => 'Exception');
11             }
12              
13             1;
14