Branch Coverage

blib/lib/Future.pm
Criterion Covered Total %
branch 17 24 70.8


line true false branch
23 0 33 if (not $ENV{'PERL_FUTURE_NO_XS'} and eval { do { require Future::XS } }) { }
238 0 3 unless $cv->GV->NAME eq "__ANON__"
246 0 3 if ref $cop eq "B::NULL"
284 1 1 if (@values == 1 and &blessed($values[0]) and $values[0]->isa('Future::_base')) { }
316 11 96 unless eval { do { $f = &$code(@args); 1 } }
317 3 104 unless &blessed($f) and $f->isa("Future")
474 1 0 unless (ref $exception or $exception =~ /\n$/)
637 2 2 if (@values == 1 and &blessed($values[0]) and $values[0]->isa('Future::_base')) { }
641 1 1 unless wantarray
905 0 3 unless $xfrm_done
910 0 1 unless $xfrm_fail
1300 0 4 unless defined(my $btime = $self->btime) and defined(my $rtime = $self->rtime)