| blib/lib/Gedcom/Date.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 20 | 55.0 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 6 | 13 | if (my $locale = shift()) |
| 60 | 12 | 9 | if (ref $self->{$_}) { } |
| 72 | 0 | 0 | if $switched |
| 74 | 0 | 0 | if $self->earliest > $other->latest |
| 75 | 0 | 0 | if $self->latest < $other->earliest |
| 81 | 0 | 1 | if $switched |
| 83 | 0 | 1 | if $self->earliest > $other->latest |
| 84 | 1 | 0 | if $self->latest < $other->earliest |
| 92 | 26 | 13 | unless ref $locale |
| 111 | 12 | 43 | if $self->{$_} |