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 |