File Coverage

blib/lib/Evo/Test/Call.pm
Criterion Covered Total %
statement 9 9 100.0
branch 4 6 66.6
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 15 18 83.3


line stmt bran cond sub pod time code
1             package Evo::Test::Call;
2 3     3   1379 use Evo -Class;
  3         7  
  3         22  
3              
4             has 'args';
5             has 'exception', optional;
6             has 'result_fn';
7              
8 7 50   7 0 45 sub result($self) {
  7 50       18  
  7         11  
  7         11  
9 7 100       25 return unless $self->result_fn;
10 6         19 $self->result_fn->();
11             }
12              
13             1;
14              
15             __END__