line |
true |
false |
branch |
44
|
0 |
0 |
unless defined $bless |
69
|
0 |
0 |
if ($rule eq '|') { } |
|
0 |
0 |
elsif ($rule eq '&') { } |
|
0 |
0 |
elsif ($rule =~ /^(.*)\s+=\s+(.*)$/ or $rule =~ /^(.*)\s+==\s+(.*)$/ or $rule =~ /^(.*)\s+eq\s+(.*)$/i) { } |
|
0 |
0 |
elsif ($rule =~ /^(.*)\s+!=\s+(.*)$/ or $rule =~ /^(.*)\s+<>\s+(.*)$/ or $rule =~ /^(.*)\s+ne\s+(.*)$/i) { } |
|
0 |
0 |
elsif ($rule =~ /^(.*)\s+>\s+(.*)$/ or $rule =~ /^(.*)\s+gt\s+(.*)$/) { } |
|
0 |
0 |
elsif ($rule =~ /^(.*)\s+<\s+(.*)$/ or $rule =~ /^(.*)\s+lt\s+(.*)$/) { } |
|
0 |
0 |
elsif ($rule =~ /^(.*)\s+>=\s+(.*)$/ or $rule =~ /^(.*)\s+ge\s+(.*)$/) { } |
|
0 |
0 |
elsif ($rule =~ /^(.*)\s+<=\s+(.*)$/ or $rule =~ /^(.*)\s+le\s+(.*)$/) { } |
89
|
0 |
0 |
$is_code ? : |
93
|
0 |
0 |
$is_code ? : |
97
|
0 |
0 |
$is_code ? : |
101
|
0 |
0 |
$is_code ? : |
105
|
0 |
0 |
$is_code ? : |
109
|
0 |
0 |
$is_code ? : |
116
|
0 |
0 |
$is_code ? : |
121
|
0 |
0 |
if $rc |
139
|
7 |
35 |
if ($rule eq '|') { } |
|
9 |
26 |
elsif ($rule eq '&') { } |
143
|
6 |
1 |
$ix + 1 >= @{$array;} ? : |
177
|
0 |
10 |
if ($txt =~ /^(and|or|\&\&|\|\|)/ or $txt =~ /^\s+(and|or|\&\&|\|\|)/ or $txt =~ /(and|or|\&\&|\|\|)$/ or $txt =~ /(and|or|\&\&|\|\|)\s+$/) { } |
198
|
1 |
47 |
if ($txt =~ /^\((.*)/) { } |
|
1 |
46 |
elsif ($txt =~ /^\)(.*)/) { } |
205
|
0 |
0 |
length $a1 < length $a2 ? : |
|
0 |
46 |
if ($a1 and $a2) { } |
|
0 |
46 |
elsif ($b2) { } |
|
36 |
10 |
elsif ($b1) { } |
210
|
1 |
45 |
if $tmp =~ /(.*)\)$/ |
211
|
16 |
30 |
if ($tmp =~ /(^and|^or|^\&\&|^\|\|)/) { } |
221
|
0 |
10 |
if ($Math::Notation::PostfixInfix{'square'} > 0) |
245
|
8 |
8 |
if ($oper =~ /^and$/i) { } |
|
1 |
7 |
elsif ($oper =~ /^\&\&$/i) { } |
|
6 |
1 |
elsif ($oper =~ /^or$/i) { } |
|
1 |
0 |
elsif ($oper =~ /^\|\|$/i) { } |
251
|
3 |
13 |
if ($no and $Math::Notation::PostfixInfix{'operand'}{$Math::Notation::PostfixInfix{'square'}}[$no - 1] eq "&") |
268
|
42 |
4 |
if ($Math::Notation::PostfixInfix{'last'} or @{$Math::Notation::PostfixInfix{'polish'};} == 0) { } |
298
|
0 |
1 |
if ($Math::Notation::PostfixInfix{'square'} < 0) |