| line |
true |
false |
branch |
|
11
|
0 |
4 |
unless eval 'use POSIX "round"; 1;'
|
|
59
|
0 |
2 |
unless @_ == 1
|
|
65
|
0 |
2 |
unless @arg_code == 1
|
|
77
|
0 |
1 |
unless @_ == 2
|
|
78
|
0 |
1 |
unless $_[1]
|
|
112
|
0 |
2 |
unless @_ == 1
|
|
113
|
1 |
1 |
$_[0] ? :
|
|
118
|
0 |
3 |
unless @arg_code == 1
|
|
128
|
2 |
24 |
if ($op eq '==' or $op eq '!=') { }
|
|
|
6 |
18 |
elsif ($op eq '>=' or $op eq '<') { }
|
|
|
18 |
0 |
elsif ($op eq '<=' or $op eq '>') { }
|
|
129
|
2 |
0 |
$numeric ? :
|
|
|
0 |
2 |
unless ($numeric ? $left == $right : $left eq $right) == ($op eq '==')
|
|
132
|
4 |
2 |
$numeric ? :
|
|
|
0 |
6 |
unless ($numeric ? $left >= $right : $left ge $right) == ($op eq '>=')
|
|
135
|
18 |
0 |
$numeric ? :
|
|
|
6 |
12 |
unless ($numeric ? $left <= $right : $left le $right) == ($op eq '<=')
|
|
147
|
0 |
2 |
unless $_[0] > 0 and $_[0] < @_
|
|
153
|
0 |
2 |
unless @{$node->parameters;} == 3
|
|
155
|
1 |
1 |
$bool ? :
|
|
160
|
0 |
4 |
unless @arg_code == 3
|
|
171
|
5 |
0 |
defined $err ? :
|
|
183
|
0 |
3 |
if (my(@todo) = @{$node->parameters;}) & 1
|
|
187
|
2 |
4 |
if $cond->evaluate($self)
|
|
193
|
0 |
3 |
if (my(@arg_code) = map($compiler->perlgen($_), @{$node->parameters;})) & 1
|
|
230
|
16 |
0 |
$digit < 10 ? :
|
|
233
|
2 |
2 |
$pad > 0 ? :
|
|
241
|
2 |
4 |
unless $n
|
|
242
|
0 |
4 |
unless $n > 0
|
|
250
|
0 |
8 |
unless $modulo + 0
|
|
265
|
2 |
16 |
unless defined $step
|
|
270
|
2 |
16 |
unless defined $step
|
|
281
|
0 |
2 |
unless @_ == 2
|
|
302
|
0 |
0 |
unless @_ == 4
|
|
319
|
0 |
0 |
unless $ofs and $ofs > 0
|
|
325
|
2 |
8 |
unless defined $places
|
|
326
|
6 |
4 |
unless defined $comma and !$comma || $comma eq '.'
|
|
327
|
8 |
2 |
$places > 0 ? :
|
|
328
|
8 |
2 |
if ($comma)
|
|
329
|
2 |
6 |
if $comma eq '.'
|
|
330
|
6 |
2 |
$places > 0 ? :
|
|
332
|
6 |
2 |
$places > 0 ? :
|
|
348
|
48 |
34 |
if ref $date and ref($date)->isa('DateTime')
|
|
356
|
2 |
0 |
ref $_ && $_->can('message') ? :
|
|
362
|
0 |
2 |
if ($unit eq 'Y')
|
|
363
|
2 |
0 |
if ($unit eq 'M')
|
|
364
|
0 |
0 |
if ($unit eq 'D')
|
|
373
|
2 |
2 |
$end > $start ? :
|
|
377
|
2 |
4 |
unless @_ > 1
|
|
401
|
8 |
36 |
if not $standard or $standard == 1
|
|
402
|
8 |
28 |
if $standard == 2 or $standard == 11
|
|
403
|
4 |
24 |
if $standard == 3
|
|
404
|
24 |
0 |
if $standard >= 12 and $standard <= 17
|