| line |
true |
false |
branch |
|
150
|
44 |
17 |
if $_[0] and $_[0] eq "DateTimeX::Easy"
|
|
153
|
55 |
6 |
if @_ % 2
|
|
156
|
6 |
55 |
if exists $in{'parse'}
|
|
161
|
1 |
60 |
if exists $in{'time_zone_if_floating'}
|
|
165
|
2 |
59 |
if exists $in{'ambiguous'}
|
|
168
|
0 |
61 |
if exists $in{'tz'}
|
|
169
|
6 |
55 |
if exists $in{'timezone'}
|
|
172
|
7 |
54 |
if exists $in{'time_zone'}
|
|
178
|
61 |
0 |
if ($parse)
|
|
179
|
6 |
55 |
if (&blessed($parse) and $parse->isa('DateTime')) { }
|
|
195
|
0 |
8 |
if $last_delta
|
|
198
|
6 |
2 |
if ($first_or_last ne 'first') { }
|
|
208
|
0 |
55 |
if ($parse =~ s/^\s*(start|this|next|first|last|(?:begin|end)(?:ning)?)\s+(year|month|day|hour|minute|second)(?:\s+of\s+)?//) { }
|
|
|
4 |
51 |
elsif ($parse =~ s/^\s*(year|month|day|hour|minute|second)\s+of\s+//i) { }
|
|
|
4 |
47 |
elsif (@delta) { }
|
|
214
|
0 |
0 |
if $last_delta and $last_delta->{'last'}
|
|
216
|
0 |
0 |
unless $parse
|
|
223
|
3 |
1 |
if $last_delta and $last_delta->{'last'}
|
|
232
|
4 |
0 |
if ($delta_range)
|
|
234
|
3 |
1 |
if ($last_delta->{'last'})
|
|
241
|
1 |
54 |
if $got_ambiguous and not $ambiguous
|
|
246
|
0 |
0 |
ref $parser_order eq 'ARRAY' ? :
|
|
|
0 |
54 |
$parser_order ? :
|
|
254
|
0 |
0 |
ref $parser_exclude eq 'ARRAY' ? :
|
|
|
0 |
54 |
if $parser_exclude
|
|
266
|
3 |
51 |
if ($parse =~ /^[1-9]\d{3}$/)
|
|
272
|
0 |
116 |
if $parser_exclude{$parser}
|
|
288
|
60 |
56 |
if $@
|
|
291
|
0 |
60 |
unless $parse_dt
|
|
296
|
60 |
0 |
if ($parse_dt)
|
|
302
|
0 |
60 |
unless my $dt = "DateTime"->new(%DateTime)
|
|
304
|
13 |
47 |
if ($time_zone) { }
|
|
|
1 |
92 |
elsif ($time_zone_if_floating and $dt->time_zone->is_floating) { }
|
|
305
|
1 |
12 |
if ($soft_time_zone_conversion)
|
|
314
|
1 |
59 |
if ($truncate) { }
|
|
|
7 |
52 |
elsif (@delta) { }
|
|
315
|
0 |
1 |
if ref $truncate eq "ARRAY"
|
|
316
|
0 |
1 |
if ref $truncate eq "HASH"
|
|
326
|
7 |
7 |
if ($delta->{'truncate'}) { }
|
|
330
|
5 |
2 |
if $delta->{'add'}
|
|
331
|
5 |
2 |
if $delta->{'subtract'}
|