Branch Coverage

File:local/lib/perl5/Sort/Naturally.pm
Coverage:3.1%

line%coveragebranch
1550TFunless defined &DEBUG
2350TFif $x < 4
2550TFif $@
1560TFif @_ and ref $_[0] eq 'ARRAY'
0TFif (@_ == 0) { }
0TFelsif (@_ != 2) { }
0TF$lc ? :
0TF$lc ? :
0TFif ($y =~ /^\d/ls) { }
0TFif ($x eq $y) { }
0TFelsif ($x =~ /^\d/ls) { }
0TFelsif ($y =~ /^\d/ls) { }
0TF$x =~ /^(\D+)/ls ? :
0TF$y =~ /^(\D+)/ls ? :
0TFif $x2 > $y2
0TF$cmp ? :
0TFunless $rv == $sv
0TFif ($rv = $cmp ? &$cmp(substr($x, 0, $x2) . '', substr($y, 0, $x2) . '') : scalar(substr($x, 0, $x2) . '' cmp substr($y, 0, $x2) . ''))
0TFif ($x2)
0TFif $rv = $x2 <=> $1
0TFif $rv = length $x2 <=> length $y2 || $x2 cmp $y2
0TFif (length $x2 < 9 and length $1 < 9) { }
0TFif ($y =~ s/^(\d+)//ls) { }
0TFif ($x =~ s/^(\d+)//ls) { }
0TFelsif ($y =~ s/^\d+//ls) { }
0TFunless ($rv)
0TFif ($a eq $b) { }
0TFif @_ and ref $_[0] eq 'ARRAY'
0TFunless @_ > 1 or wantarray
0TFif ($y =~ /^\d/ls) { }
0TFif ($x eq $y) { }
0TFelsif ($x =~ /^\d/ls) { }
0TFelsif ($y =~ /^\d/ls) { }
0TF$x =~ /^(\D+)/ls ? :
0TF$y =~ /^(\D+)/ls ? :
0TFif $x2 > $y2
0TF$cmp ? :
0TFunless $rv == $sv
0TFif ($rv = $cmp ? &$cmp(substr($x, 0, $x2) . '', substr($y, 0, $x2) . '') : scalar(substr($x, 0, $x2) . '' cmp substr($y, 0, $x2) . ''))
0TFif ($x2)
0TFif $rv = $x2 <=> $1
0TFif $rv = length $x2 <=> length $y2 || $x2 cmp $y2
0TFif (length $x2 < 9 and length $1 < 9) { }
0TFif ($y =~ s/^(\d+)//ls) { }
0TFif ($x =~ s/^(\d+)//ls) { }
0TFelsif ($y =~ s/^\d+//ls) { }
0TFunless ($rv)
0TFif ($$a[0] eq $$b[0]) { }
0TF$lc ? :