| line |
true |
false |
branch |
|
69
|
10 |
58 |
if ($self->{'dt'})
|
|
72
|
30 |
20 |
unless defined $dt_args{$name}
|
|
94
|
32 |
9 |
if ($month) { }
|
|
184
|
39 |
19 |
if ($my_arg{'month'}) { }
|
|
203
|
232 |
58 |
if defined $my_arg{$key}
|
|
256
|
0 |
2 |
if (exists $arg{$name}) { }
|
|
|
0 |
2 |
elsif ($shire_object) { }
|
|
368
|
1 |
71 |
if $self->{'recalc'}
|
|
374
|
40 |
137 |
if $self->{'recalc'}
|
|
392
|
0 |
25 |
if $self->{'recalc'}
|
|
401
|
0 |
24 |
if $self->{'recalc'}
|
|
431
|
0 |
35 |
if $self->{'recalc'}
|
|
447
|
0 |
27 |
if $self->{'recalc'}
|
|
454
|
0 |
7 |
if $self->{'recalc'}
|
|
474
|
1 |
1 |
if 183 == $yday
|
|
476
|
0 |
1 |
if 183 < $yday
|
|
479
|
0 |
1 |
if ($self->is_leap_year)
|
|
483
|
0 |
0 |
if 183 == $yday
|
|
485
|
0 |
0 |
if 183 < $yday
|
|
523
|
0 |
0 |
$_[0]->year < 1 ? :
|
|
544
|
0 |
0 |
$_[0]->year < 1 ? :
|
|
549
|
0 |
0 |
$year > 0 ? :
|
|
554
|
40 |
1 |
unless defined $sep
|
|
564
|
1 |
1 |
unless defined $sep
|
|
571
|
0 |
2 |
unless defined $sep
|
|
578
|
7 |
1 |
unless defined $sep
|
|
656
|
0 |
10 |
if $self->{'recalc'}
|
|
661
|
0 |
3 |
if $my_arg{'day'} and not $my_arg{'month'} and not $self->{'month'}
|
|
663
|
3 |
7 |
if ($my_arg{'month'})
|
|
669
|
5 |
5 |
if ($my_arg{'holiday'})
|
|
674
|
5 |
5 |
if ($my_arg{'day'})
|
|
681
|
2 |
28 |
if defined $my_arg{$name}
|
|
692
|
20 |
30 |
if defined $my_arg{$arg}
|
|
814
|
0 |
6 |
if $self->{'recalc'}
|
|
816
|
5 |
1 |
if (my $code = $handler{$my_arg{'to'}}) { }
|
|
840
|
0 |
1 |
unless $self->month
|
|
854
|
0 |
1 |
unless $self->month
|
|
864
|
8 |
61 |
wantarray ? :
|
|
877
|
0 |
33 |
if 1 == @arg and _isa($arg[0], $self->duration_class)
|
|
939
|
0 |
33 |
if $dur->is_zero
|
|
949
|
0 |
231 |
if ($val == 'DateTime'->INFINITY) { }
|
|
|
0 |
231 |
elsif ($val == 'DateTime'->NEG_INFINITY) { }
|
|
956
|
0 |
231 |
if ($inf)
|
|
965
|
0 |
33 |
if $self->is_infinite
|
|
967
|
19 |
8 |
if ($delta{'years'} or $delta{'months'} or $delta{'weeks'})
|
|
975
|
8 |
17 |
if (my $months = delete $delta{'months'})
|
|
992
|
11 |
14 |
if (my $weeks = delete $delta{'weeks'})
|
|
1005
|
3 |
8 |
if $week > 25
|
|
1010
|
6 |
19 |
if (my $years = delete $delta{'years'})
|
|
1019
|
4 |
2 |
if (not $l || $month and $day == 4)
|
|
1020
|
2 |
2 |
$forward ? :
|
|
1025
|
2 |
4 |
$month ? :
|
|
1031
|
33 |
0 |
if (grep {$delta{$_};} 'days', 'minutes', 'seconds', 'nanoseconds')
|
|
1048
|
0 |
3 |
unless _isa($right, 'DateTime::Fiction::JRRTolkien::Shire')
|
|
1053
|
2 |
1 |
if ($left->month and $right->month) { }
|
|
1068
|
1 |
0 |
if _isa($right, 'DateTime::Fiction::JRRTolkien::Shire')
|
|
1069
|
0 |
1 |
unless _isa($right, 'DateTime')
|
|
1084
|
0 |
3 |
unless defined $_[1]
|
|
1086
|
0 |
3 |
$_[2] ? :
|
|
1091
|
0 |
0 |
if eval {
|
|
1093
|
0 |
0 |
$_[2] ? :
|
|
1099
|
24 |
43 |
if ($arg->{'holiday'})
|
|
1101
|
0 |
24 |
if $arg->{'month'}
|
|
1103
|
0 |
24 |
if $arg->{'day'}
|
|
1156
|
0 |
3 |
unless ref $_[0]
|
|
1162
|
0 |
0 |
unless ref $_[0]
|
|
1196
|
0 |
89 |
if $self->{'recalc'}
|