Branch Coverage

blib/lib/CommonsLang.pm
Criterion Covered Total %
branch 148 206 71.8


line true false branch
146 0 0 @next_caller_info ? :
211 2 1 if (@info)
213 1 1 $sub_name ? :
214 2 0 if ($capture) { }
244 0 574 unless (defined $var)
248 51 523 if ($ref_type ne '') { }
252 0 523 if ($var eq '') { }
256 231 292 $var ^ $var ? :
270 1 217 if (not defined $x || defined $y) { }
1 216 elsif (not defined $x and defined $y) { }
1 215 elsif (defined $x and not defined $y) { }
282 214 1 if ($tx eq $ty) { }
283 101 113 if ($tx eq 'NUMBER') { }
107 6 elsif ($tx eq 'STRING') { }
0 6 elsif ($tx eq 'UNDEF') { }
294 2 4 if ($x == $y) { }
320 0 1 if ($tx eq "UNDEF" and $ty ne "UNDEF")
323 0 1 if ($tx ne "UNDEF" and $ty eq "UNDEF")
327 0 1 if ($tx eq "NUMBER" and $ty eq "STRING")
330 0 1 if ($tx eq "STRING" and $ty eq "NUMBER")
352 0 100 if ($idx == 0 and v_type_of($x) eq 'CODE') { }
356 49 51 if ($idx == 0) { }
360 33 18 if (&$cmp_func($the_one, $x) <= 0)
380 0 100 if ($idx == 0 and v_type_of($x) eq 'CODE') { }
384 49 51 if ($idx == 0) { }
388 14 37 if (&$cmp_func($the_one, $x) >= 0)
416 9 9 if ($which) { }
424 1 17 ref $text0 eq 'ARRAY' ? :
426 3 15 if (not defined $width or $width < 0)
430 3 0 if $longest < $len
437 1 18 if ($is_trunc and $w > $width) { }
442 1 17 if ($which eq 'l') { }
3 14 elsif ($which eq 'c') { }
457 1 17 ref $text0 eq 'ARRAY' ? :
472 2 8 if $length <= 0
474 1 7 if ($length > $str_length)
491 0 2 if ($len1 < $len2)
495 1 1 if ($cutted eq $str2)
513 2 8 if $length <= 0
515 1 7 if ($length > $str_length)
532 0 2 if ($len1 < $len2)
536 1 1 if ($cutted eq $str2)
565 4 1 defined $align ? :
568 1 4 defined $padchar ? :
574 2 3 if ($length <= $width) { }
575 0 2 $align eq 'r' ? :
578 1 2 if ($align eq 'r') { }
1 1 elsif ($align eq 'c') { }
585 0 1 $m_odd ? :
632 2 9 if ($first_byte)
638 0 11 if ($_ eq "/")
641 2 9 if ($_ eq '.' or $_ eq '(' or $_ eq ')' or $_ eq '|' or $_ eq '+' or $_ eq '^' or $_ eq '$' or $_ eq '@' or $_ eq '%') { }
2 7 elsif ($_ eq '*') { }
0 7 elsif ($_ eq '?') { }
0 7 elsif ($_ eq '{') { }
0 7 elsif ($_ eq '}' and $in_curlies) { }
0 7 elsif ($_ eq ',' and $in_curlies) { }
0 7 elsif ($_ eq '\\') { }
653 0 2 $escaping ? :
659 0 0 $escaping ? :
665 0 0 $escaping ? :
666 0 0 unless $escaping
669 0 0 $escaping ? :
670 0 0 unless $escaping
673 0 0 $escaping ? :
676 0 0 if ($escaping) { }
706 1 1 $matched ? :
721 5 0 defined $separator ? :
781 1 4 $optional_args_size == 0 ? :
823 2 0 if ($count > 0)
825 2 6 if (&$callbackFn($arr->[$i], $i, $arr))
843 23 0 v_type_of($callbackFn) eq 'CODE' ? :
847 23 0 if ($count > 0)
848 1 22 defined $fromIndex ? :
853 20 50 if (&$callbackFnA($arr->[$i], $i, $arr))
876 7 0 v_type_of($callbackFn) eq 'CODE' ? :
879 7 0 if ($count > 0)
880 1 6 defined $toIndex ? :
885 4 17 if (&$callbackFnA($arr->[$i], $i, $arr))
907 2 0 v_type_of($callbackFn) eq 'CODE' ? :
909 1 1 if ($idx != -1)
926 2 0 v_type_of($callbackFn) eq 'CODE' ? :
928 1 1 if ($idx != -1)
981 2 0 if ($count > 0)
987 1 6 unless (&$callbackFn($arr->[$i], $i, $arr))
1009 2 0 if ($count > 0)
1015 1 7 if (&$callbackFn($arr->[$i], $i, $arr))
1032 0 1 unless (defined $arr)
1037 1 0 if ($count > 0)
1056 3 0 if ($count > 0)
1074 0 9 unless (defined $arr)
1079 9 0 if ($count > 0)
1080 5 4 defined $eidx ? :
1097 1 4 if $length <= 0
1100 0 4 if $arr_length <= 0
1115 1 4 if $length <= 0
1118 0 4 if $arr_length <= 0
1137 1 4 defined $callbackFn ? :
1181 2 0 v_type_of($callbackFn) eq 'CODE' ? :
1201 1 5 if (&$callbackFnA($val, $key, $hash))
1222 0 6 if (v_type_of($group_key) ne "STRING")
1227 5 1 unless (defined $hash->{$group_key})
1247 2 0 if (v_type_of($source_hash) eq 'HASH') { }