| line |
true |
false |
branch |
|
50
|
2 |
20 |
if ($date =~ s/^TZID=([^:]+)://) { } |
|
|
8 |
12 |
elsif ($date =~ s/Z$//) { } |
|
64
|
0 |
22 |
unless my $format = $valid_formats{length $date} |
|
94
|
3 |
8 |
if defined $2 |
|
95
|
5 |
6 |
if defined $3 |
|
96
|
4 |
7 |
if defined $4 |
|
97
|
3 |
8 |
if defined $5 |
|
98
|
7 |
4 |
if defined $6 |
|
100
|
1 |
10 |
unless %units |
|
103
|
1 |
9 |
if (defined $sign and $sign eq '-') |
|
118
|
0 |
3 |
unless $start and $end |
|
123
|
2 |
1 |
if ($end =~ /[\+\-]P/i) { } |
|
131
|
0 |
3 |
if $start > $end |
|
159
|
1 |
12 |
if ($name eq 'until') { } |
|
|
7 |
5 |
elsif ($name =~ /^by/i) { } |
|
182
|
1 |
16 |
unless ($tz->is_floating or $tz->is_utc or $tz->is_olson) |
|
195
|
13 |
17 |
if $tz->is_floating |
|
197
|
13 |
4 |
if $tz->is_utc |
|
206
|
0 |
11 |
if $duration->delta_months |
|
210
|
1 |
6 |
unless $duration->delta_days or $duration->delta_minutes or $duration->delta_seconds |
|
215
|
9 |
1 |
$duration->is_positive ? : |
|
218
|
4 |
6 |
if ($duration->delta_days) |
|
220
|
4 |
0 |
if $duration->weeks |
|
221
|
4 |
0 |
if $duration->days |
|
224
|
8 |
2 |
if ($duration->delta_minutes or $duration->delta_seconds) |
|
228
|
4 |
4 |
if $duration->hours |
|
229
|
4 |
4 |
if $duration->minutes |
|
230
|
7 |
1 |
if $duration->seconds |
|
260
|
0 |
5 |
unless ($tz->is_floating or $tz->is_utc or $tz->is_olson) |
|
268
|
16 |
0 |
$dt->hour || $dt->min || $dt->sec ? : |
|
276
|
11 |
5 |
if $tz->is_floating |
|
277
|
2 |
3 |
if $tz->is_utc |
|
290
|
10 |
12 |
if ($set->isa('DateTime')) { } |
|
|
0 |
12 |
elsif ($set->isa('DateTime::Span')) { } |
|
300
|
10 |
12 |
if ($$set{'set'}->is_too_complex) { } |
|
312
|
8 |
2 |
if ($set->can('get_ical') and defined $set->get_ical) { } |
|
317
|
0 |
19 |
unless $_ |
|
318
|
6 |
13 |
if (ref $_) { } |
|
327
|
3 |
5 |
if ($ical{'exclude'}) |
|
332
|
0 |
4 |
unless $_ |
|
333
|
3 |
1 |
if (ref $_) { } |
|
371
|
14 |
2 |
if ($item->isa('DateTime')) { } |
|
|
2 |
0 |
elsif ($item->isa('DateTime::Span')) { } |
|
374
|
1 |
13 |
if ($last_tz eq $tz and $last_type eq 'DateTime') { } |
|
378
|
0 |
1 |
if $tz eq 'UTC' |
|
383
|
1 |
12 |
if $tz ne '' and $tz ne 'UTC' |
|
385
|
2 |
11 |
if $tz eq 'UTC' |
|
394
|
1 |
1 |
if ($item_start == $item_end) |
|
403
|
0 |
1 |
if ($last_tz eq $tz and $last_type eq 'DateTime::Span') { } |
|
407
|
0 |
0 |
if $tz eq 'UTC' |
|
409
|
0 |
0 |
if $tz eq 'UTC' |
|
414
|
1 |
0 |
if $tz ne '' and $tz ne 'UTC' |
|
416
|
0 |
1 |
if $tz eq 'UTC' |
|
418
|
0 |
1 |
if $tz eq 'UTC' |
|
431
|
0 |
20 |
unless wantarray |