| line |
true |
false |
branch |
|
59
|
0 |
640 |
unless $othr->isa('PFT::Date') |
|
62
|
640 |
0 |
defined $self->[0] ? : |
|
|
639 |
1 |
defined $othr->[0] ? : |
|
64
|
587 |
53 |
if ($out == 0) |
|
65
|
587 |
0 |
defined $self->[1] ? : |
|
|
586 |
1 |
defined $othr->[1] ? : |
|
68
|
478 |
162 |
if ($out == 0) |
|
69
|
471 |
7 |
defined $self->[2] ? : |
|
|
470 |
8 |
defined $othr->[2] ? : |
|
72
|
0 |
640 |
$swap ? : |
|
78
|
2471 |
40 |
defined $_ ? : |
|
80
|
830 |
7 |
if (defined $self->[1]) |
|
81
|
0 |
830 |
unless $self->[1] > 0 and $self->[1] < 13 |
|
84
|
809 |
28 |
if (defined $self->[2]) |
|
85
|
0 |
809 |
unless $self->[2] > 0 and $self->[2] < 32 |
|
112
|
0 |
1 |
unless exists $params{'d'} |
|
113
|
1 |
0 |
if (local $_ = $params{'m'}) { } |
|
114
|
0 |
1 |
if (/^\d{1,2}$/u) { } |
|
|
1 |
0 |
elsif (/^(j(?:a|u[nl])|[fsond]|ma[ry]|a[pu]).*/iu) { } |
|
124
|
0 |
1 |
unless exists $params{'y'} |
|
133
|
1 |
127 |
unless my($y, $m, $d) = $text =~ /^(\d{4}|\*)-(\d{2}|\*)-(\d{2}|\*)$/u |
|
136
|
127 |
0 |
$y ne '*' ? : |
|
|
127 |
0 |
$m ne '*' ? : |
|
|
123 |
4 |
$d ne '*' ? : |
|
194
|
489 |
0 |
unless defined $none |
|
195
|
471 |
18 |
defined $sep ? : |
|
|
488 |
1 |
defined $self->[0] ? : |
|
|
488 |
1 |
defined $self->[1] ? : |
|
|
476 |
13 |
defined $self->[2] ? : |
|
220
|
1 |
11 |
exists $change{'y'} ? : |
|
|
2 |
10 |
exists $change{'m'} ? : |
|
|
10 |
2 |
exists $change{'d'} ? : |