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   112100 use Evo;
  30         66  
  30         185  
3              
4 30 50   30   428 sub import($class) {
  30 50       100  
  30         74  
  30         55  
5 30         71 my $caller = caller;
6 30     30   202 no strict 'refs'; ## no critic
  30         62  
  30         4519  
7 30         61 *{"${caller}::exception"} = \&exception;
  30         13916  
8             }
9              
10 119 50   119 0 8410 sub exception($sub) : prototype(&) {
  119 50       338  
  119         214  
  119         202  
11 119         222 local $@;
12 119         245 eval { $sub->() };
  119         315  
13 119         5892 $@;
14             }
15              
16             1;
17              
18             __END__