| line |
true |
false |
branch |
|
11
|
0 |
6 |
unless eval "use POSIX \"round\"; 1;"
|
|
57
|
4 |
2 |
if ($_->is_constant) { }
|
|
63
|
0 |
2 |
if @unknown == @{$node->parameters;} and @unknown > 1
|
|
64
|
0 |
2 |
if $const != 0
|
|
65
|
2 |
0 |
unless @unknown > 1
|
|
75
|
0 |
2 |
unless @_ == 1
|
|
81
|
0 |
2 |
unless @arg_code == 1
|
|
91
|
5 |
3 |
if ($_->is_constant) { }
|
|
97
|
0 |
4 |
if @unknown == @{$node->parameters;} and @unknown > 1
|
|
98
|
2 |
2 |
if $const == 0
|
|
99
|
2 |
0 |
if $const != 1
|
|
100
|
0 |
2 |
unless @unknown > 1
|
|
110
|
0 |
1 |
unless @_ == 2
|
|
111
|
0 |
1 |
unless $_[1]
|
|
130
|
2 |
0 |
if ($_->is_constant) { }
|
|
132
|
0 |
2 |
unless $_->evaluate($self)
|
|
138
|
1 |
0 |
unless @unknown
|
|
139
|
0 |
0 |
if @unknown == @{$node->parameters;}
|
|
158
|
2 |
0 |
if ($_->is_constant) { }
|
|
160
|
2 |
0 |
if $_->evaluate($self)
|
|
166
|
0 |
0 |
unless @unknown
|
|
167
|
0 |
0 |
if @unknown == @{$node->parameters;}
|
|
177
|
0 |
2 |
unless @_ == 1
|
|
178
|
1 |
1 |
$_[0] ? :
|
|
183
|
0 |
3 |
unless @arg_code == 1
|
|
193
|
2 |
25 |
if ($op eq "==" or $op eq "!=") { }
|
|
|
6 |
19 |
elsif ($op eq ">=" or $op eq "<") { }
|
|
|
19 |
0 |
elsif ($op eq "<=" or $op eq ">") { }
|
|
194
|
2 |
0 |
$numeric ? :
|
|
|
0 |
2 |
unless ($numeric ? $left == $right : $left eq $right) == ($op eq "==")
|
|
197
|
4 |
2 |
$numeric ? :
|
|
|
0 |
6 |
unless ($numeric ? $left >= $right : $left ge $right) == ($op eq ">=")
|
|
200
|
19 |
0 |
$numeric ? :
|
|
|
6 |
13 |
unless ($numeric ? $left <= $right : $left le $right) == ($op eq "<=")
|
|
212
|
0 |
2 |
unless $_[0] > 0 and $_[0] < @_
|
|
218
|
0 |
2 |
unless @{$node->parameters;} == 3
|
|
220
|
1 |
1 |
$bool ? :
|
|
225
|
0 |
4 |
unless @arg_code == 3
|
|
236
|
5 |
0 |
defined $err ? :
|
|
248
|
0 |
3 |
if (my(@todo) = @{$node->parameters;}) & 1
|
|
252
|
2 |
4 |
if $cond->evaluate($self)
|
|
258
|
0 |
3 |
if (my(@arg_code) = map($compiler->perlgen($_), @{$node->parameters;})) & 1
|
|
296
|
16 |
0 |
$digit < 10 ? :
|
|
299
|
2 |
2 |
$pad > 0 ? :
|
|
309
|
2 |
4 |
unless $n
|
|
310
|
0 |
4 |
unless $n > 0
|
|
319
|
0 |
8 |
unless $modulo + 0
|
|
335
|
2 |
16 |
unless defined $step
|
|
340
|
2 |
16 |
unless defined $step
|
|
351
|
0 |
2 |
unless @_ == 2
|
|
374
|
0 |
0 |
unless @_ == 4
|
|
393
|
0 |
0 |
unless $ofs and $ofs > 0
|
|
399
|
2 |
8 |
unless defined $places
|
|
400
|
6 |
4 |
unless defined $comma and !$comma || $comma eq "."
|
|
401
|
8 |
2 |
$places > 0 ? :
|
|
402
|
8 |
2 |
if ($comma)
|
|
403
|
2 |
6 |
if $comma eq "."
|
|
404
|
6 |
2 |
$places > 0 ? :
|
|
406
|
6 |
2 |
$places > 0 ? :
|
|
422
|
48 |
34 |
if ref $date and ref($date)->isa("DateTime")
|
|
430
|
2 |
0 |
ref $_ && $_->can("message") ? :
|
|
436
|
0 |
2 |
if ($unit eq "Y")
|
|
437
|
2 |
0 |
if ($unit eq "M")
|
|
438
|
0 |
0 |
if ($unit eq "D")
|
|
447
|
2 |
2 |
$end > $start ? :
|
|
451
|
2 |
4 |
unless @_ > 1
|
|
475
|
8 |
36 |
if not $standard or $standard == 1
|
|
476
|
8 |
28 |
if $standard == 2 or $standard == 11
|
|
477
|
4 |
24 |
if $standard == 3
|
|
478
|
24 |
0 |
if $standard >= 12 and $standard <= 17
|