line |
true |
false |
branch |
84
|
111 |
167 |
if (my $ref = ref $rd) { }
|
|
22 |
145 |
elsif ($rd) { }
|
|
75 |
70 |
elsif (ref $class and ref($class)->can('reform_date')) { }
|
85
|
21 |
90 |
if ('ARRAY' eq $ref) { }
|
99
|
21 |
1 |
if (my $rda = $reform_dates{my $rd_lc = lc $rd})
|
101
|
20 |
1 |
if "ARRAY" eq ref $rda
|
105
|
1 |
0 |
if ($rd =~ / \A [0-9] /msx and my @rda = split(qr/ [^0-9]+ /msx, $rd, 0))
|
125
|
212 |
3 |
if (defined $args{'year'})
|
127
|
131 |
81 |
if ($self->{'date'} >= $self->{'reform_date'})
|
144
|
10 |
231 |
if ($method)
|
155
|
20 |
315 |
if ($self->is_gregorian and $self->{'date'} < $self->{'reform_date'}) { }
|
|
15 |
535 |
elsif ($self->is_julian and $self->{'date'} >= $self->{'reform_date'}) { }
|
175
|
20 |
20 |
$self->is_julian ? :
|
202
|
4 |
12 |
if ($args{'year'} > $ry) { }
|
|
4 |
8 |
elsif ($args{'year'} < $ry) { }
|
210
|
6 |
2 |
if ($args{'day_of_year'} < $rdoy) { }
|
230
|
66 |
6 |
if ($p{'month'} > 12)
|
236
|
1 |
71 |
if ($self->month != $p{'month'})
|
255
|
21 |
0 |
if exists $self->{'date'}
|
265
|
2 |
6 |
if ($year != $self->{'reform_date'}->year)
|
281
|
0 |
2 |
if ($reversed)
|
293
|
0 |
5 |
if ($reversed)
|
297
|
2 |
3 |
if (UNIVERSAL::isa($date2, 'DateTime::Duration')) { }
|
334
|
80 |
23 |
if (my $days = delete $deltas{'days'})
|
341
|
13 |
90 |
if (my $months = delete $deltas{'months'})
|
390
|
9 |
4 |
if ($start_jul and $self->is_gregorian) { }
|
|
4 |
0 |
elsif (not $start_jul and $self->is_julian) { }
|
406
|
4 |
9 |
if $dd
|
410
|
103 |
0 |
if (keys %deltas)
|
432
|
2 |
0 |
unless "DateTime" eq ref $date
|
436
|
1 |
1 |
if $date->{'local_c'}{'month'} <= 2
|
448
|
42 |
0 |
unless (defined $self->{'date'}{'local_c'}{'week_year'})
|
459
|
4 |
38 |
if ($self->{'date'}{'local_c'}{'week_number'} == 0) { }
|
|
6 |
32 |
elsif ($self->{'date'}{'local_c'}{'week_number'} > $self->_weeks_in_year($self->year)) { }
|
492
|
27 |
15 |
$dow >= 4 ? :
|
501
|
0 |
3 |
if exists $p{'reform_date'}
|
505
|
0 |
3 |
if $p{'locale'}
|
533
|
24 |
80 |
if ($self->year == $self->reform_date->year and $self >= $self->reform_date)
|
566
|
10 |
1 |
$self->{'date'} ? :
|
574
|
10 |
1 |
if defined $date
|
632
|
0 |
731 |
unless exists $self->{'date'}
|
640
|
2 |
53 |
unless $self->{'date'}
|
688
|
16 |
70 |
if $rd
|