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   1329 use Evo -Class;
  3         8  
  3         20  
3              
4             has 'args';
5             has 'exception', optional;
6             has 'result_fn';
7              
8 7 50   7 0 24 sub result($self) {
  7 50       22  
  7         13  
  7         12  
9 7 100       32 return unless $self->result_fn;
10 6         24 $self->result_fn->();
11             }
12              
13             1;
14              
15             __END__