Branch Coverage

blib/lib/Math/Permutation.pm
Criterion Covered Total %
branch 25 64 39.0


line true false branch
35 0 16 if $n != $n2
38 120 0 if $wrepr->[$_] == $wrepr2->[$_]
40 16 0 $check == $n ? :
67 0 64 unless (&all(sub { defined $check{$_}; } , 1 .. $n))
91 0 0 unless (&all(sub { defined $check1{$_}; } , 1 .. $n) and $n == scalar @codomain and &all(sub { defined $check2{$_}; } , 1 .. $n))
101 0 0 if ($check)
123 0 2 if ($_ != int $_ or $_ <= 0)
129 0 2 if (scalar &uniq(@{$_;}) != scalar @{$_;})
134 0 2 unless ($check)
141 2 0 if ($check)
142 2 0 if (scalar &uniq(@elements) == scalar @elements) { }
157 0 0 if ($qp[$_] == 0) { }
173 12 10 if (scalar @{$c;} > 1) { }
10 0 elsif (scalar @{$c;} == 1) { }
181 13 82 if ($hash{$_} == 0) { }
190 0 2 &any(sub { $n == $_; } , @elements) ? :
212 0 0 if scalar @cycles == 0
240 0 40 if scalar @q != $n
266 0 8 if $ind == scalar @w
283 0 8 if $ind == scalar @w
305 0 0 if $i != $n - 1
391 0 0 if $w[$j] > $w[$j + 1]
404 3 5 $num_of_two_swaps % 2 == 0 ? :
408 3 5 $_[0]->is_even ? :
412 0 0 $_[0]->is_even ? :
423 72 72 if $w[$j] > $k
447 0 184 if $_[0]{'_wrepr'}[$_ - 1] == $_
470 0 0 if (scalar @{$cycles[$i]} % 2 == 1) { }
476 0 0 if (scalar(values %even_cycle) % 2 == 0) { }
479 0 0 if ($_->[0] != $_->[1])
488 0 0 unless defined $even_cycle{$i}
489 0 0 if $even_cycle{$_} == $even_cycle{$i}