Branch Coverage

blib/lib/Set/CrossProduct.pm
Criterion Covered Total %
branch 35 62 56.4


line true false branch
199 2 8 if ($ref_type eq ref {}) { }
8 0 elsif ($ref_type eq ref []) { }
209 0 0 if warnings::enabled()
214 3 7 unless (@$array_ref > 1)
215 1 2 if warnings::enabled()
220 1 12 unless (ref $array eq ref [])
221 1 0 if warnings::enabled()
231 1 5 grep(($_ == -1), @{$$self{'lengths'};}) ? :
266 0 0 $which eq 'rand' ? :
2 0 $which eq 'prev' ? :
25 2 $which eq 'next' ? :
268 0 27 unless $place_func
272 9 18 if ($self->{'labels'}) { }
287 12 17 if ($self->{'counters'}[$tail] == $self->{'lengths'}[$tail])
291 4 8 if ($tail == 0 and $self->{'counters'}[$tail] == $self->{'lengths'}[$tail])
313 0 0 unless grep {$_;} @$counters
316 0 0 if ($counters->[$tail] == 0)
320 0 0 if ($tail == 0 and $counters->[$tail] == 0)
379 0 2 if (wantarray) { }
393 4 32 if @_ > 1
415 4 21 if $self->done
422 7 0 ref $next_ref eq ref [] ? :
7 14 if (wantarray) { }
446 2 4 if $self->done
450 0 0 ref $next_ref eq ref [] ? :
0 4 if (wantarray) { }
466 0 0 ref $prev_ref eq ref [] ? :
0 2 if (wantarray) { }
482 0 0 ref $rand_ref eq ref [] ? :
0 0 if (wantarray) { }
517 0 3 if $self->{'ungot'}