| line |
true |
false |
branch |
|
99
|
0 |
15 |
unless ref $self |
|
107
|
29557 |
0 |
ref $self ? : |
|
127
|
3 |
9 |
if (ref $class) { } |
|
136
|
1 |
8 |
$args{'loose'} ? : |
|
138
|
9 |
0 |
if $args{'year_cutoff'} |
|
147
|
0 |
1 |
unless ref $self |
|
154
|
0 |
4 |
if @_ |
|
161
|
0 |
8 |
if @_ |
|
172
|
0 |
4 |
unless @parsed |
|
185
|
22 |
29528 |
unless @parsed |
|
196
|
0 |
29554 |
unless @_ |
|
197
|
0 |
29554 |
if @_ != 1 |
|
208
|
0 |
29532 |
unless $when{'month'} = $months{$when{'month'}} |
|
213
|
5596 |
23936 |
if $when{'time_zone'} eq '-0000' |
|
223
|
0 |
29544 |
unless defined $tz |
|
224
|
29470 |
74 |
if $tz =~ /^[+-]\d{4}$/ |
|
228
|
19 |
55 |
if (exists $timezones{$tz}) { } |
|
|
9 |
46 |
elsif (substr($tz, 0, 3) eq 'GMT' and length $tz > 4) { } |
|
|
20 |
26 |
elsif ($tz =~ /^ ([+-]?) (\d+) $/x) { } |
|
245
|
0 |
18 |
unless ref $self |
|
247
|
0 |
13 |
unless @_ == 1 |
|
269
|
0 |
21 |
if @_ |
|
270
|
6 |
15 |
unless ref $self and $$self{'year_cutoff'} |
|
277
|
29533 |
15 |
if length $year >= 4 |
|
280
|
6 |
9 |
$year > $cutoff ? : |
|
287
|
0 |
32 |
unless @_ |
|
292
|
5 |
27 |
if $dt->time_zone->is_floating |