File Coverage

blib/lib/Evo/Internal/Exception.pm
Criterion Covered Total %
statement 21 21 100.0
branch 4 8 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 29 34 85.2


line stmt bran cond sub pod time code
1             package Evo::Internal::Exception;
2 30     30   121038 use Evo;
  30         68  
  30         206  
3              
4 30 50   30   449 sub import($class) {
  30 50       110  
  30         91  
  30         58  
5 30         79 my $caller = caller;
6 30     30   215 no strict 'refs'; ## no critic
  30         64  
  30         5349  
7 30         69 *{"${caller}::exception"} = \&exception;
  30         15237  
8             }
9              
10 119 50   119 0 10198 sub exception($sub) : prototype(&) {
  119 50       341  
  119         228  
  119         195  
11 119         199 local $@;
12 119         239 eval { $sub->() };
  119         311  
13 119         6340 $@;
14             }
15              
16             1;
17              
18             __END__