File Coverage

blib/lib/Data/Validator/Role/Croak.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package Data::Validator::Role::Croak;
2 2     2   2211 use Mouse::Role;
  2         1140  
  2         11  
3 2     2   553 use Carp ();
  2         4  
  2         179  
4             our @CARP_NOT = qw(Data::Validator);
5              
6             sub throw_error {
7 1     1 0 1 my($self, $message) = @_;
8 1         2 local $Carp::CarpLevel = $Carp::CarpLevel + 1;
9 1         246 Carp::croak($message);
10             }
11              
12 2     2   10 no Mouse::Role;
  2         3  
  2         9  
13             1;
14             __END__