File Coverage

blib/lib/Evo/Promise/Util.pm
Criterion Covered Total %
statement 38 38 100.0
branch 17 26 65.3
condition 4 6 66.6
subroutine 8 8 100.0
pod 0 3 0.0
total 67 81 82.7


line stmt bran cond sub pod time code
1             package Evo::Promise::Util;
2 6     6   2148 use Evo '-Export *; List::Util first; Carp croak; /::Const *';
  6         12  
  6         38  
3              
4 5 50   5 0 33 sub is_locked_in ($parent, $child) : Export {
  5 50       16  
  5         15  
  5         8  
  5         10  
5 5 50       16 croak unless defined wantarray;
6 5     4   55 first { $_ == $child } $parent->d_children->@*;
  4         30  
7 6     6   37 }
  6         9  
  6         29  
8              
9 15 50   15 0 79 sub is_fulfilled_with ($v, $p) : Export {
  15 50       40  
  15         27  
  15         26  
  15         24  
10 15 50       40 croak unless defined wantarray;
11 15 100 66     108 return unless $p->d_settled && $p->state eq FULFILLED;
12 14         40 my $dv = $p->d_v;
13              
14 14 100       82 return defined $dv ? $v eq $dv : !defined $v;
15 6     6   993 }
  6         11  
  6         258  
16              
17 13 50   13 0 61 sub is_rejected_with ($v, $p) : Export {
  13 50       36  
  13         21  
  13         20  
  13         25  
18 13 50       42 croak unless defined wantarray;
19 13 100 66     98 return unless $p->d_settled && $p->state eq REJECTED;
20 11         27 my $dv = $p->d_v;
21 11 100       55 return defined $dv ? $v eq $dv : !defined $v;
22 6     6   886 }
  6         11  
  6         20  
23              
24              
25             1;
26              
27             __END__