Condition Coverage

blib/lib/Text/Balanced.pm
Criterion Covered Total %
condition 98 116 84.4


and 3 conditions

line !l l&&!r l&&r condition
180 3 0 3 $qdel && qr/\G([$qdel])/
237 382 140 10 $qdel and $$textref =~ /$qdel/cg
470 50 2 $quotelike and _match_quotelike($textref, qr/\G()/, $ref2slashvalid{$textref}, $ref2qmarkvalid{$textref})
389 990 156 12 $ignore and $$textref =~ /\G(?:$ignore)/cg
1038 96 12 $bad and $$textref =~ /\G($bad)/cgs
592 0 0 131 pos $$textref and defined $ref2slashvalid{$textref}
595 480 0 0 $rd and $$textref =~ /\G(\(\?\)|\(s\?\)|\(s\))/cg
608 0 2 125 $closing && $1 eq $closing
703 105 0 700 pos $$textref and defined $ref2slashvalid{$textref}
720 23 741 41 $initial and $maybe_quote{$initial}
379 370 15 $allow_slash_match and $initial eq "/"
659 88 2 $allow_qmark_match and $initial eq "?"
918 335 203 25 $ref2slashvalid{$textref} and $text =~ /(?:$RE_NUM|[\)\]])\s*$/
203 334 1 not $ref2slashvalid{$textref} and $text =~ /$RE_PREREGEX_PAT\s*$/
203 289 45 not $ref2slashvalid{$textref} and $text =~ /$RE_EXPR_PAT\s*$/
941 26 0 14 defined $_[2] && $_[2] > 0
949 14 0 0 $^W and defined $_[2]
14 0 0 $^W and defined $_[2] and $max > 1
980 975 2 105 defined $field and length $field
983 66 28 4 length $pref and not defined $unkpos

or 2 conditions

line l !l condition
150 4 46 pos $$textref || 0
199 31 20 pos $$textref || 0
214 73 20 pos $$textref || 0
342 32 88 pos $$textref || 0
478 1093 206 pos $$textref || 0
569 975 50 pos $$textref || 0
705 700 105 pos $$textref || 0
944 0 40 pos $$textref ||= 0
979 36 1046 $pref ||= ""
1021 2 12 $firstpos ||= 0

or 3 conditions

line l !l&&r !l&&!r condition
373 40 2 0 eval "qq{$rdel}" || do { my $del; foreach $_ ('~', '!', '^', '&', '*', ')', '_', '+', '-', '=', '}', ']', ':', '"', ';', q['], '>', '.', '?', '/', '|', q[']) { next if $rdel =~ /\Q$_\E/; $del = $_; last; } ; unless ($del) { croak("Can't interpolate right delimiter $rdel"); } ; eval "qq$del$rdel$del" }
406 4 4 4 $omode eq "PARA" or $omode eq "MAX"
416 0 0 4 $omode eq "PARA" or $omode eq "MAX"
495 224 20 7 $$textref =~ /\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/cig or _match_codeblock($textref, qr/\G()/, "\\{", qr/\G\s*(\})/, "\\{", "\\}", 0)
244 2 5 $$textref =~ /\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/cig or _match_codeblock($textref, qr/\G()/, "\\{", qr/\G\s*(\})/, "\\{", "\\}", 0) or $deref eq "\$#"
22 2 3 $$textref =~ /\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/cig or _match_codeblock($textref, qr/\G()/, "\\{", qr/\G\s*(\})/, "\\{", "\\}", 0) or $deref eq "\$#" or $deref eq "\$\$"
4 3 0 $$textref =~ /\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/cig or _match_codeblock($textref, qr/\G()/, "\\{", qr/\G\s*(\})/, "\\{", "\\}", 0) or $deref eq "\$#" or $deref eq "\$\$" or pos $$textref == length $$textref
619 109 28 210 _match_variable($textref, qr/\G\s*/) or _match_quotelike($textref, qr/\G\s*/, $ref2slashvalid{$textref}, $ref2qmarkvalid{$textref})
720 41 15 749 $initial and $maybe_quote{$initial} or $allow_slash_match and $initial eq "/"
15 23 726 $initial and $maybe_quote{$initial} or $allow_slash_match and $initial eq "/" or $allow_qmark_match and $initial eq "?"
736 15 0 41 $initial eq "/" or $initial eq "?"
1003 38 340 83 $igunk or defined $unkpos