| 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 |
30 |
if ($era =~ /BC/)
|
|
287
|
7 |
7 |
if ($args{'self'}->european(@{$args{'args'};}))
|
|
305
|
0 |
0 |
$args{'parsed'}{'month'} ? :
|
|
312
|
2 |
18 |
$args{'args'} ? :
|
|
314
|
2 |
18 |
if ($param{'_force_tz'}) { }
|
|
|
4 |
14 |
elsif (not defined $args{'parsed'}{'time_zone'}) { }
|
|
|
14 |
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
|
10 |
4 |
if (length $2 == 2) { }
|
|
359
|
0 |
0 |
$args{'args'} ? :
|
|
370
|
8 |
12 |
if (defined $args{'parsed'}{'nanosecond'}) { }
|
|
586
|
8 |
80 |
if ($string =~ s/ago//)
|
|
600
|
97 |
73 |
if (length $unit != 1)
|
|
605
|
1 |
169 |
unless ($udata)
|
|
610
|
1 |
168 |
if (exists $done{$key})
|
|
618
|
1 |
167 |
if ($amount =~ s/\.(\d+)$//)
|
|
624
|
0 |
1 |
if ($base_unit ne 'seconds')
|
|
638
|
2 |
84 |
if ($string =~ /\S/)
|
|
687
|
3 |
8 |
$ns ? :
|
|
717
|
1 |
10 |
if $dt->time_zone->is_floating
|
|
740
|
2 |
3 |
if ($dt->is_infinite) { }
|
|
|
1 |
2 |
elsif ($dt->year <= 0) { }
|
|
741
|
1 |
1 |
$dt->isa('DateTime::Infinite::Future') ? :
|
|
766
|
2 |
0 |
if ($dt->is_infinite) { }
|
|
|
0 |
0 |
elsif ($dt->year <= 0) { }
|
|
767
|
1 |
1 |
$dt->isa('DateTime::Infinite::Future') ? :
|
|
799
|
2 |
11 |
if ($dt->is_infinite) { }
|
|
|
2 |
9 |
elsif ($dt->year <= 0) { }
|
|
800
|
1 |
1 |
$dt->isa('DateTime::Infinite::Future') ? :
|
|
830
|
5 |
0 |
if UNIVERSAL::isa($_[0], 'DateTime::Format::Pg') or $_[0] eq 'DateTime::Format::Pg'
|
|
832
|
0 |
5 |
unless UNIVERSAL::isa($du, 'DateTime::Duration')
|
|
837
|
2 |
3 |
if ($deltas{'nanoseconds'})
|
|
844
|
8 |
12 |
if $deltas{$_}
|
|
847
|
0 |
5 |
if length $output <= 2
|