| line |
true |
false |
branch |
|
24
|
0 |
536 |
if @_ < 1 |
|
|
0 |
536 |
if @_ > 8 |
|
41
|
3 |
533 |
unless (defined $year) |
|
49
|
498 |
35 |
unless (defined $tz) |
|
51
|
10 |
523 |
if ($tz ne 'UTC' and $tz ne 'GMT') |
|
64
|
0 |
320 |
if @_ < 1 |
|
|
0 |
320 |
if @_ > 1 and (@_ - 1) % 2 |
|
|
0 |
320 |
if keys %{__rest} |
|
86
|
9 |
311 |
if (defined $epoch) { } |
|
|
300 |
11 |
elsif (defined $year) { } |
|
89
|
7 |
2 |
if (defined $tz) { } |
|
|
2 |
0 |
elsif (defined $offset) { } |
|
99
|
14 |
286 |
if (defined $month) { } |
|
|
277 |
9 |
elsif (defined $week) { } |
|
|
3 |
6 |
elsif (defined $yday) { } |
|
100
|
9 |
5 |
if (defined $mday) { } |
|
110
|
164 |
113 |
if (defined $wday) { } |
|
119
|
7 |
293 |
if (defined $hour) |
|
120
|
7 |
293 |
if (defined $minute) |
|
121
|
7 |
293 |
if (defined $second) |
|
125
|
1 |
10 |
if (defined $month) { } |
|
|
1 |
9 |
elsif (defined $week) { } |
|
|
1 |
8 |
elsif (defined $yday) { } |
|
126
|
0 |
1 |
if (defined $mday) { } |
|
133
|
0 |
1 |
if (defined $hour) |
|
134
|
0 |
1 |
if (defined $minute) |
|
135
|
0 |
1 |
if (defined $second) |
|
141
|
0 |
1 |
if (defined $wday) { } |
|
145
|
0 |
1 |
if (defined $hour) |
|
146
|
0 |
1 |
if (defined $minute) |
|
147
|
0 |
1 |
if (defined $second) |
|
152
|
0 |
1 |
if (defined $hour) |
|
153
|
0 |
1 |
if (defined $minute) |
|
154
|
0 |
1 |
if (defined $second) |
|
165
|
3 |
2 |
unless defined $hour or defined $minute or defined $second |
|
171
|
2 |
3 |
if (defined $hour) { } |
|
172
|
2 |
3 |
if (defined $minute) { } |
|
|
2 |
1 |
elsif (not defined $hour) { } |
|
173
|
3 |
2 |
if (defined $second) |
|
180
|
1 |
307 |
if (defined $tz) { } |
|
|
0 |
307 |
elsif (defined $offset) { } |
|
191
|
0 |
671 |
if @_ < 2 |
|
|
0 |
671 |
if @_ > 3 |
|
|
1 |
670 |
if @_ < 2 |
|
206
|
28 |
643 |
unless defined $tz |
|
212
|
0 |
103 |
if @_ < 2 |
|
|
0 |
103 |
if @_ > 2 |
|
215
|
0 |
28 |
if @_ < 1 |
|
|
0 |
28 |
if @_ > 2 |
|
|
3 |
25 |
if @_ < 1 |
|
218
|
0 |
6 |
if @_ < 1 |
|
|
0 |
6 |
if @_ > 1 |
|
221
|
0 |
10 |
if @_ < 2 |
|
|
0 |
10 |
if @_ > 2 and (@_ - 2) % 2 |
|
|
1 |
9 |
exists ${__rest}{'locale'} ? : |
|
|
0 |
10 |
exists ${__rest}{'strict'} ? : |
|
|
0 |
10 |
exists ${__rest}{'tz'} ? : |
|
|
0 |
10 |
if keys %{__rest} |
|
228
|
0 |
181 |
if @_ < 3 |
|
|
0 |
181 |
if @_ > 3 and (@_ - 3) % 2 |
|
|
6 |
175 |
exists ${__rest}{'locale'} ? : |
|
|
0 |
181 |
exists ${__rest}{'strict'} ? : |
|
|
0 |
181 |
if keys %{__rest} |
|
230
|
10 |
171 |
if (ref $c) |
|
232
|
4 |
6 |
if ($t->{'year'}) |
|
233
|
7 |
3 |
if ($t->{'month'}) |
|
234
|
5 |
5 |
if ($t->{'mday'}) |
|
235
|
3 |
7 |
if ($t->{'week'}) |
|
236
|
3 |
7 |
if ($t->{'wday'}) |
|
237
|
2 |
8 |
if ($t->{'yday'}) |
|
238
|
8 |
2 |
if ($t->{'hour'}) |
|
239
|
8 |
2 |
if ($t->{'minute'}) |
|
240
|
8 |
2 |
if ($t->{'second'}) |
|
241
|
2 |
8 |
if ($t->{'tz_d'}) |
|
242
|
0 |
10 |
if ($t->{'offset'}) |
|
246
|
10 |
171 |
if (ref $c) { } |
|
249
|
2 |
8 |
if (defined $struct{'tz'}) { } |
|
|
0 |
8 |
elsif (defined $struct{'offset'}) { } |
|
255
|
0 |
10 |
if (defined $struct{'epoch'}) |
|
257
|
6 |
4 |
if (defined $struct{'year'}) |
|
259
|
9 |
1 |
if (defined $struct{'month'}) { } |
|
|
1 |
0 |
elsif (defined $struct{'week'}) { } |
|
|
0 |
0 |
elsif (defined $struct{'yday'}) { } |
|
261
|
7 |
2 |
if (defined $struct{'mday'}) |
|
264
|
1 |
0 |
if (defined $struct{'wday'}) |
|
269
|
10 |
0 |
if (defined $struct{'hour'}) |
|
270
|
10 |
0 |
if (defined $struct{'minute'}) |
|
271
|
10 |
0 |
if (defined $struct{'second'}) |
|
279
|
0 |
706 |
if @_ < 1 |
|
|
0 |
706 |
if @_ > 1 |
|
313
|
0 |
4 |
if @_ < 1 |
|
|
0 |
4 |
if @_ > 1 |
|
314
|
1 |
3 |
unless $offset |
|
316
|
3 |
0 |
if defined $tz_offset{$offset} |
|
321
|
0 |
0 |
if ($hour < 0) |
|
326
|
0 |
13 |
if @_ < 1 |
|
|
0 |
13 |
if @_ > 3 and (@_ - 3) % 2 |
|
|
0 |
13 |
if @_ < 3 |
|
|
13 |
0 |
exists ${__rest}{'locale'} ? : |
|
|
13 |
0 |
exists ${__rest}{'strict'} ? : |
|
|
0 |
13 |
if keys %{__rest} |
|
327
|
4 |
9 |
if (defined $format) |
|
330
|
4 |
0 |
if $e |
|
336
|
0 |
9 |
unless defined $tm |
|
342
|
7 |
2 |
if ($offset == 'Time::Zone::Olson'->new({'timezone', $tz})->local_offset($epoch)) |
|
351
|
0 |
958 |
if @_ < 1 |
|
|
0 |
958 |
if @_ > 2 |
|
359
|
0 |
2 |
if defined $new_epoch |
|
363
|
0 |
958 |
if defined $new_epoch |
|
369
|
0 |
35 |
if @_ < 1 |
|
|
0 |
35 |
if @_ > 3 |
|
|
10 |
25 |
if @_ < 2 |
|
373
|
25 |
10 |
if ($override) |
|
381
|
25 |
10 |
if defined $new_tz |
|
385
|
25 |
10 |
if defined $new_tz |
|
390
|
0 |
784 |
if @_ < 2 |
|
|
0 |
784 |
if @_ > 2 |
|
394
|
0 |
784 |
unless (defined $offset) |
|
395
|
0 |
0 |
if ($tz =~ /^([+-])(\d+):(\d+)$/) |
|
398
|
0 |
0 |
if $sign eq '-' |
|
402
|
0 |
784 |
unless defined $offset |
|
409
|
0 |
58 |
if @_ < 1 |
|
|
0 |
58 |
if @_ > 2 |
|
414
|
0 |
4 |
if defined $new_offset |
|
418
|
0 |
58 |
if defined $new_offset |
|
426
|
0 |
7354 |
if @_ < 1 |
|
|
0 |
7354 |
if @_ > 2 |
|
431
|
0 |
1 |
if defined $new_tm |
|
435
|
0 |
7354 |
if defined $new_tm |
|
440
|
0 |
9788 |
if @_ < 1 |
|
|
0 |
9788 |
if @_ > 2 |
|
441
|
0 |
9788 |
unless defined $t->{'tz'} |
|
446
|
0 |
2434 |
if defined $new_tm |
|
450
|
0 |
9788 |
if defined $new_tm |
|
454
|
44 |
9744 |
if ($t->{'tz'} ne 'GMT' and $t->{'tz'} ne 'UTC') |
|
463
|
0 |
748 |
if @_ < 1 |
|
465
|
1 |
747 |
if (@args % 2) |
|
467
|
19 |
729 |
if exists $args{'format'} |
|
468
|
5 |
743 |
if exists $args{'locale'} |
|
469
|
1 |
747 |
if exists $args{'strict'} |
|
470
|
0 |
748 |
if %args |
|
472
|
0 |
748 |
unless defined $t->{'tz'} |
|
477
|
0 |
3 |
if (defined $struct{'tz'}) { } |
|
|
0 |
3 |
elsif (defined $struct{'offset'}) { } |
|
483
|
0 |
3 |
if (defined $struct{'epoch'}) |
|
485
|
3 |
0 |
if (defined $struct{'year'}) |
|
487
|
2 |
1 |
if (defined $struct{'month'}) { } |
|
|
1 |
0 |
elsif (defined $struct{'week'}) { } |
|
|
0 |
0 |
elsif (defined $struct{'yday'}) { } |
|
489
|
2 |
0 |
if (defined $struct{'mday'}) |
|
492
|
1 |
0 |
if (defined $struct{'wday'}) |
|
497
|
0 |
3 |
if (defined $struct{'hour'}) |
|
498
|
0 |
3 |
if (defined $struct{'minute'}) |
|
499
|
0 |
3 |
if (defined $struct{'second'}) |
|
501
|
1 |
2 |
if defined $new_str |
|
505
|
1 |
747 |
if defined $new_str |
|
508
|
18 |
729 |
if (defined $format) { } |
|
518
|
0 |
20 |
if @_ < 1 |
|
521
|
0 |
573 |
if @_ < 1 |
|
|
0 |
573 |
if @_ > 2 |
|
528
|
0 |
70 |
if defined $new_year |
|
532
|
0 |
573 |
if defined $new_year |
|
538
|
0 |
6 |
if @_ < 1 |
|
|
0 |
6 |
if @_ > 2 |
|
545
|
0 |
5 |
if defined $new_quarter |
|
549
|
0 |
6 |
if defined $new_quarter |
|
555
|
0 |
277 |
if @_ < 1 |
|
|
0 |
277 |
if @_ > 2 |
|
562
|
0 |
220 |
if defined $new_month |
|
566
|
0 |
277 |
if defined $new_month |
|
572
|
0 |
1028 |
if @_ < 1 |
|
|
0 |
1028 |
if @_ > 2 |
|
579
|
278 |
45 |
if defined $new_week |
|
583
|
278 |
750 |
if defined $new_week |
|
589
|
0 |
651 |
if @_ < 1 |
|
|
0 |
651 |
if @_ > 2 |
|
592
|
0 |
657 |
if @_ < 1 |
|
|
0 |
657 |
if @_ > 2 |
|
599
|
0 |
601 |
if defined $new_day |
|
603
|
0 |
657 |
if defined $new_day |
|
609
|
0 |
735 |
if @_ < 1 |
|
|
0 |
735 |
if @_ > 2 |
|
616
|
167 |
5 |
if defined $new_day |
|
620
|
167 |
568 |
if defined $new_day |
|
626
|
0 |
3 |
if @_ < 1 |
|
|
0 |
3 |
if @_ > 2 |
|
633
|
0 |
2 |
if defined $new_day |
|
637
|
0 |
3 |
if defined $new_day |
|
643
|
0 |
2371 |
if @_ < 1 |
|
|
0 |
2371 |
if @_ > 2 |
|
650
|
440 |
438 |
if defined $new_day |
|
654
|
440 |
1931 |
if defined $new_day |
|
660
|
0 |
110 |
if @_ < 1 |
|
|
0 |
110 |
if @_ > 2 |
|
667
|
0 |
64 |
if defined $new_hour |
|
671
|
0 |
110 |
if defined $new_hour |
|
677
|
0 |
102 |
if @_ < 1 |
|
|
0 |
102 |
if @_ > 2 |
|
684
|
0 |
60 |
if defined $new_minute |
|
688
|
0 |
102 |
if defined $new_minute |
|
694
|
0 |
68 |
if @_ < 1 |
|
|
0 |
68 |
if @_ > 2 |
|
701
|
2 |
25 |
if defined $new_second |
|
705
|
2 |
66 |
if defined $new_second |
|
711
|
0 |
13 |
if @_ < 1 |
|
|
0 |
13 |
if @_ > 2 |
|
718
|
8 |
3 |
if defined $new_second |
|
722
|
8 |
5 |
if defined $new_second |
|
729
|
0 |
1 |
if @_ < 2 |
|
|
0 |
1 |
if @_ > 2 |
|
730
|
1 |
0 |
$t2->can('epoch') ? : |
|
|
1 |
0 |
ref $t2 ? : |
|
740
|
0 |
539 |
if @_ < 1 |
|
|
0 |
539 |
if @_ > 1 |