| line |
true |
false |
branch |
|
45
|
0 |
499 |
unless (ref $args eq 'HASH') |
|
54
|
0 |
499 |
unless defined $args |
|
55
|
0 |
499 |
unless ref($args) =~ /HASH/ |
|
56
|
0 |
499 |
unless defined $$args{'date'} |
|
64
|
0 |
499 |
if (defined $$args{'locale'}) { } |
|
66
|
0 |
0 |
unless $self->SetLocale($$args{'locale'}) |
|
73
|
0 |
499 |
unless (defined $self->Locale) |
|
80
|
0 |
499 |
if (ref($date) =~ /SCALAR/) { } |
|
|
357 |
142 |
elsif (ref($date) =~ /ARRAY/) { } |
|
|
0 |
142 |
elsif (ref($date) =~ /HASH/) { } |
|
82
|
0 |
0 |
unless ($date =~ /\s/ or $date =~ /[A-Za-z]/) |
|
104
|
142 |
0 |
unless ($date =~ /\s/ or $date =~ /[A-Za-z]/) |
|
110
|
121 |
378 |
if $self->INTUITIVE_MONTH_CALCULATIONS |
|
111
|
121 |
378 |
if $self->INTUITIVE_TIME_CALCULATIONS |
|
113
|
0 |
499 |
unless defined $$self{'epoch'} |
|
142
|
159 |
317 |
if (@_) |
|
156
|
499 |
1888 |
if (@_) |
|
169
|
0 |
2103 |
if (@_) |
|
184
|
0 |
499 |
unless defined $locale |
|
188
|
0 |
499 |
if (defined $locale_return) |
|
356
|
0 |
0 |
if ($month == 1) { } |
|
358
|
0 |
0 |
if $self->IsLeapYear |
|
398
|
0 |
0 |
unless $self->IsLeapYear |
|
399
|
0 |
0 |
if $self->IsLeapYear |
|
422
|
0 |
0 |
if ($self->Day >= $self->DaysInMonth) |
|
438
|
0 |
0 |
unless $year % 400 |
|
439
|
0 |
0 |
if not $year % 4 and $year % 100 |
|
448
|
0 |
0 |
if ($intuitive_day) |
|
460
|
0 |
0 |
if ($intuitive_hour) |
|
531
|
0 |
142 |
if (not ref $delta) { } |
|
|
142 |
0 |
elsif ($delta->isa($self->DELTA_CLASS)) { } |
|
560
|
51 |
91 |
if ($self->INTUITIVE_MONTH_CALCULATIONS) |
|
562
|
3 |
48 |
if (($self->Month + $delta->Months - 1) % 12 + 1 != $posix_date->Month) { } |
|
575
|
3 |
45 |
if ($$self{'_intuitive_day'}) |
|
579
|
3 |
0 |
if ($compensated_seconds > 0) |
|
586
|
0 |
3 |
if ($$self{'_intuitive_day'} > $lastdayofmonth) |
|
605
|
4 |
138 |
if ($posix_date->DayLightSavings and not $self->DayLightSavings) { } |
|
|
4 |
150 |
elsif (not $posix_date->DayLightSavings and $self->DayLightSavings) { } |
|
611
|
4 |
0 |
if ($self->INTUITIVE_DST_ADJUSTMENTS) |
|
616
|
0 |
4 |
if $posix_hour == 24 |
|
617
|
2 |
2 |
if ($posix_date->Hour != $posix_hour) |
|
632
|
4 |
0 |
if ($self->INTUITIVE_DST_ADJUSTMENTS) |
|
637
|
1 |
3 |
if $posix_hour == 24 |
|
638
|
0 |
4 |
if ($posix_date->Hour != $posix_hour) |
|
647
|
51 |
91 |
if ($self->INTUITIVE_TIME_CALCULATIONS) |
|
649
|
2 |
49 |
if ($add_intuitive_hour) |
|
654
|
1 |
50 |
if (defined $$self{'_intuitive_hour'}) |
|
659
|
1 |
0 |
if ($hour > $$self{'_intuitive_hour'}) |
|
687
|
0 |
47 |
if (not ref $delta) { } |
|
|
34 |
13 |
elsif ($delta->isa($self->DELTA_CLASS)) { } |
|
|
13 |
0 |
elsif ($delta->isa('Date::Handler')) { } |
|
701
|
0 |
13 |
if ($self->DayLightSavings and not $delta->DayLightSavings or not $self->DayLightSavings and $delta->DayLightSavings) |
|
722
|
0 |
0 |
if (not ref $date) { } |
|
|
0 |
0 |
elsif ($date->isa('Date::Handler')) { } |
|
|
0 |
0 |
elsif ($date->isa($self->DELTA_CLASS)) { } |