| line |
true |
false |
branch |
|
22
|
1 |
1 |
if ('DR::DateTime' eq ref $cv) |
|
30
|
1 |
1 |
if ('DR::DateTime' eq ref $cv) |
|
34
|
0 |
1 |
unless $pct |
|
42
|
0 |
2 |
if ('DR::DateTime' eq ref $cv) |
|
58
|
2 |
2 |
if ($flip) { } |
|
59
|
0 |
2 |
if ('DR::DateTime' eq ref $cv) |
|
64
|
1 |
1 |
if ('DR::DateTime' eq ref $cv) |
|
77
|
39 |
9 |
if (defined $tz) |
|
79
|
0 |
39 |
unless defined $2 |
|
87
|
2 |
46 |
if defined $DR::DateTime::Defaults::TZFORCE |
|
95
|
0 |
35 |
unless defined $str |
|
100
|
1 |
34 |
if (/^\d+$/) |
|
103
|
28 |
6 |
if (/^(\d{4})-(\d{2})-(\d{2})(?:\s+|T)(\d{2}):(\d{2}):(\d{2})(\.\d+)?\s*(\S+)?$/) |
|
109
|
2 |
4 |
if (/^(\d{4})-(\d{2})-(\d{2})(?:\s+|T)(\d{2}):(\d{2})$/) |
|
115
|
1 |
3 |
if (/^(\d{4})-(\d{2})-(\d{2})$/) |
|
121
|
3 |
0 |
if (/^(\d{1,2})\.(\d{1,2})\.(\d{4})\s+(\d{2}):(\d{2}):(\d{2})(\.\d+)?\s*(\S+)?$/) |
|
135
|
34 |
0 |
if (/^[+-]\d{1,4}$/) { } |
|
154
|
9 |
25 |
if $nocheck |
|
169
|
0 |
123 |
unless $format |
|
175
|
7 |
116 |
unless ($patterns) |
|
189
|
239 |
0 |
$patterns->{$1} ? : |
|
264
|
7 |
2 |
if $self->day == $new->day |
|
265
|
2 |
0 |
if ($new->day < $self->day) |
|
274
|
6 |
0 |
unless defined $n |
|
279
|
5 |
1 |
unless defined $s |
|
284
|
6 |
0 |
unless defined $m |
|
289
|
5 |
1 |
unless defined $h |
|
294
|
5 |
1 |
unless defined $d |
|
299
|
2 |
4 |
unless defined $m |
|
319
|
1 |
5 |
unless defined $y |
|
344
|
1 |
5 |
if ($to eq 'second') |
|
350
|
1 |
4 |
if ($to eq 'minute') |
|
355
|
1 |
3 |
if ($to eq 'hour') |
|
360
|
1 |
2 |
if ($to eq 'day') |
|
365
|
1 |
1 |
if ($to eq 'month') |
|
370
|
1 |
0 |
if ($to eq 'year') |
|
389
|
1 |
0 |
if (defined $tz) |
|
397
|
0 |
1 |
if ($tz eq 'local') { } |
|
|
0 |
1 |
elsif (not $tz =~ /^[+-]\d{4}$/) { } |