| line |
!l |
l&&!r |
l&&r |
condition |
|
84
|
70 |
0 |
75 |
ref $class and ref($class)->can("reform_date")
|
|
105
|
0 |
0 |
1 |
$rd =~ / \A [0-9] /msx and my @rda = split(qr/ [^0-9]+ /msx, $rd, 0)
|
|
155
|
80 |
235 |
20 |
$self->is_gregorian and $self->{'date'} < $self->{'reform_date'}
|
|
|
235 |
65 |
15 |
$self->is_julian and $self->{'date'} >= $self->{'reform_date'}
|
|
275
|
3 |
1 |
2 |
defined $d && $d->month == 2 && $d->day == 29
|
|
390
|
4 |
0 |
9 |
$start_jul and $self->is_gregorian
|
|
|
0 |
0 |
4 |
not $start_jul and $self->is_julian
|
|
533
|
62 |
18 |
24 |
$self->year == $self->reform_date->year and $self >= $self->reform_date
|