| line |
true |
false |
branch |
|
26
|
8 |
5 |
$shift =~ s/^(\+|-)// ? : |
|
27
|
8 |
5 |
$pre eq '+' ? : |
|
31
|
0 |
13 |
if ($nvHash->{'ShiftOffset'}) { } |
|
44
|
13 |
26 |
if ($type eq 'Shift') { } |
|
|
4 |
22 |
elsif ($tagInfo->{$type}) { } |
|
49
|
0 |
4 |
if (ref $conv eq 'CODE') { } |
|
52
|
0 |
4 |
if ref $tagInfo->{$type} |
|
60
|
0 |
17 |
if $err |
|
61
|
0 |
17 |
if $@ |
|
62
|
0 |
17 |
if &GetWarning() |
|
77
|
47 |
0 |
if ($type eq 'Time') { } |
|
78
|
0 |
47 |
unless $shift =~ s/^(\+|-)// |
|
81
|
17 |
30 |
$1 eq '+' ? : |
|
100
|
49 |
0 |
unless $mon == 2 and not $year % 4 |
|
102
|
0 |
0 |
if $year % 100 or not $year % 400 |
|
116
|
56 |
62 |
if ($time) |
|
121
|
0 |
118 |
if ($val =~ s/^(\d{4})-(\d{2})-(\d{2})/$1:$2:$3/) |
|
131
|
118 |
244 |
unless defined $word |
|
133
|
0 |
244 |
unless my(@vals) = $word =~ /(?=\d|\.\d)\d*(?:\.\d*)?/g |
|
134
|
50 |
194 |
if ($word =~ /^(\+|-)/) { } |
|
|
79 |
115 |
elsif (@words and $words[0] =~ /^\d+/ or not $time and $vals[0] =~ /^\d{3}/ or $time and not defined $time->[3] and not defined $v[0]) { } |
|
136
|
0 |
50 |
if defined $v[6] or @vals > 2 |
|
137
|
1 |
49 |
$1 ne '-' ? : |
|
146
|
0 |
79 |
if @v or @vals > 3 |
|
147
|
0 |
79 |
if not $time and @vals != 3 |
|
153
|
0 |
115 |
if defined $v[3] or defined $v[6] or @vals > 3 |
|
154
|
0 |
60 |
if not $time and @vals != 3 and @vals != 2 |
|
161
|
0 |
118 |
if $err or not @v |
|
162
|
56 |
62 |
if ($time) |
|
164
|
39 |
17 |
if defined $time->[0] and not defined $v[0] |
|
165
|
0 |
56 |
if defined $time->[3] and not defined $v[3] |
|
166
|
50 |
6 |
if defined $time->[6] and not defined $v[6] |
|
193
|
0 |
430 |
if ($v != int $v and $i < 5) { } |
|
204
|
47 |
9 |
if (defined $sec and $sec != int $sec) |
|
207
|
47 |
0 |
if $rndPt |
|
215
|
6 |
330 |
unless defined $time->[$i] |
|
221
|
33 |
297 |
if ($v < $min) { } |
|
|
0 |
297 |
elsif ($v >= $max + $min) { } |
|
222
|
7 |
26 |
if ($i == 2) { } |
|
233
|
26 |
0 |
if $c > $fc |
|
237
|
0 |
0 |
if ($i == 2) { } |
|
242
|
0 |
0 |
if $v <= $days |
|
245
|
0 |
0 |
if $v <= 28 |
|
251
|
0 |
0 |
if $c <= $fc |
|
258
|
50 |
6 |
if (defined $toTime->[6]) |
|
291
|
0 |
62 |
if (@_ == 1) { } |
|
297
|
0 |
0 |
$shift =~ s/^(\+|-)// && $1 eq '-' ? : |
|
|
0 |
62 |
unless $dir |
|
301
|
0 |
62 |
unless &SplitTime($val, \@time) |
|
302
|
62 |
0 |
if (defined $time[0]) { } |
|
|
0 |
0 |
elsif (defined $time[3]) { } |
|
303
|
0 |
62 |
if $time[0] eq "0000" |
|
304
|
60 |
2 |
defined $time[3] ? : |
|
311
|
47 |
15 |
if (defined $time[5] and $time[5] =~ /\.(\d+)/) { } |
|
316
|
15 |
47 |
if ($shiftOffset) { } |
|
317
|
9 |
6 |
unless defined $shiftOffset->{$mode} |
|
318
|
3 |
12 |
if defined $time[6] and not defined $shiftOffset->{'Timezone'} |
|
322
|
56 |
6 |
if ($needShiftOffset) { } |
|
326
|
0 |
56 |
unless &SplitTime($shift, \@shift, \@time) |
|
329
|
0 |
56 |
if (@shift > 6 and @time <= 6) |
|
330
|
0 |
0 |
if $val =~ s/Z$/+00:00/ |
|
334
|
0 |
56 |
if $err |
|
338
|
9 |
47 |
if ($shiftOffset) |
|
339
|
9 |
0 |
if (defined $time[0] or defined $time[3]) |
|
342
|
9 |
0 |
if (defined $time[0]) |
|
349
|
7 |
2 |
if (defined $time[3]) |
|
354
|
0 |
7 |
if defined $rndDiff |
|
364
|
9 |
0 |
unless (@$) |
|
366
|
9 |
0 |
if (defined $time[0]) { } |
|
367
|
7 |
2 |
defined $time[3] ? : |
|
374
|
3 |
6 |
if (defined $time[6]) |
|
384
|
0 |
6 |
if ($shiftOffset->{'Timezone'} and @time <= 6) |
|
386
|
0 |
0 |
if $val =~ s/Z$/+00:00/ |
|
389
|
6 |
0 |
if ($mode) |
|
391
|
6 |
0 |
if (defined $time[0]) |
|
395
|
6 |
0 |
if defined $time[3] |
|
404
|
0 |
6 |
if $@ |
|
406
|
0 |
6 |
if $tm < 0 |
|
409
|
0 |
6 |
if ($frac) |
|
412
|
0 |
0 |
if $frac + "0.5" * 10 ** (-$dec) >= 1 |
|
421
|
0 |
6 |
if (defined $time[6]) |
|
434
|
0 |
416 |
unless defined $time[$i] and defined $toTime[$i] |
|
436
|
366 |
50 |
if ($i != 6) { } |
|
437
|
0 |
366 |
unless $val =~ /((?=\d|\.\d)\d*(\.\d*)?)/g |
|
438
|
233 |
133 |
if $toTime[$i] == $time[$i] |
|
443
|
50 |
0 |
if $time[$i] == $toTime[$i] and $time[$i + 1] == $toTime[$i + 1] |
|
444
|
0 |
0 |
unless $val =~ /((?:\+|-)(?=\d|\.\d)\d*(\.\d*)?)/g |
|
447
|
0 |
0 |
if ($toTime[6] >= 0 and $toTime[7] >= 0) { } |
|
459
|
0 |
133 |
$d ? : |
|
460
|
0 |
133 |
$dec ? : |
|
464
|
0 |
62 |
if (@_ == 1) { } |