| line |
true |
false |
branch |
|
92
|
2 |
0 |
if ($_ eq 'european') { } |
|
|
0 |
0 |
elsif ($_ eq 'server_tz') { } |
|
104
|
12 |
2 |
if exists $param{'european'} |
|
105
|
2 |
0 |
if ref $self |
|
110
|
0 |
0 |
if ref($param{'server_tz'}) =~ /TimeZone/ |
|
111
|
0 |
0 |
if exists $param{'server_tz'} |
|
119
|
0 |
2 |
if (ref $class) |
|
143
|
0 |
0 |
unless ref $self |
|
152
|
3 |
3 |
if ($p{'sign'}) { } |
|
277
|
7 |
29 |
if ($era =~ /BC/) |
|
287
|
7 |
7 |
if ($args{'self'}->european(@{$args{'args'};})) |
|
305
|
0 |
0 |
$args{'parsed'}{'month'} ? : |
|
312
|
2 |
17 |
$args{'args'} ? : |
|
314
|
2 |
17 |
if ($param{'_force_tz'}) { } |
|
|
4 |
13 |
elsif (not defined $args{'parsed'}{'time_zone'}) { } |
|
|
13 |
0 |
elsif ($args{'parsed'}{'time_zone'} =~ /^([-\+])(\d+)(?::(\d+))?(?::(\d+))?$/) { } |
|
322
|
2 |
2 |
if ($args{'parsed'}{'year'} < 1901 or $args{'parsed'}{'year'} == 1901 and $args{'parsed'}{'month'} < 12 || $args{'parsed'}{'day'} < 14 or $args{'parsed'}{'year'} > 2038 or $args{'parsed'}{'year'} == 2038 and $args{'parsed'}{'month'} > 1 || $args{'parsed'}{'day'} > 18) { } |
|
343
|
9 |
4 |
if (length $2 == 2) { } |
|
359
|
0 |
0 |
$args{'args'} ? : |
|
370
|
7 |
12 |
if (defined $args{'parsed'}{'nanosecond'}) { } |
|
585
|
8 |
79 |
if ($string =~ s/ago//) |
|
600
|
96 |
70 |
unless length $unit == 1 |
|
603
|
165 |
1 |
if (defined $units{$unit}) { } |
|
606
|
1 |
164 |
if defined $done{$key} |
|
610
|
13 |
151 |
if ($subtract) { } |
|
620
|
2 |
83 |
if ($string =~ /\S/) |
|
669
|
3 |
8 |
$ns ? : |
|
699
|
1 |
10 |
if $dt->time_zone->is_floating |
|
722
|
2 |
3 |
if ($dt->is_infinite) { } |
|
|
1 |
2 |
elsif ($dt->year <= 0) { } |
|
723
|
1 |
1 |
$dt->isa('DateTime::Infinite::Future') ? : |
|
748
|
2 |
0 |
if ($dt->is_infinite) { } |
|
|
0 |
0 |
elsif ($dt->year <= 0) { } |
|
749
|
1 |
1 |
$dt->isa('DateTime::Infinite::Future') ? : |
|
781
|
2 |
11 |
if ($dt->is_infinite) { } |
|
|
2 |
9 |
elsif ($dt->year <= 0) { } |
|
782
|
1 |
1 |
$dt->isa('DateTime::Infinite::Future') ? : |
|
812
|
5 |
0 |
if UNIVERSAL::isa($_[0], 'DateTime::Format::Pg') or $_[0] eq 'DateTime::Format::Pg' |
|
814
|
0 |
5 |
unless UNIVERSAL::isa($du, 'DateTime::Duration') |
|
819
|
2 |
3 |
if ($deltas{'nanoseconds'}) |
|
826
|
8 |
12 |
if $deltas{$_} |
|
829
|
0 |
5 |
if length $output <= 2 |