| line |
true |
false |
branch |
|
17
|
3 |
47 |
if ($str =~ /^FROM (.*?) TO (.*)$/) { } |
|
|
3 |
44 |
elsif ($str =~ /^FROM (.*)$/) { } |
|
|
3 |
41 |
elsif ($str =~ /^TO (.*)$/) { } |
|
18
|
0 |
3 |
unless $from = 'Gedcom::Date::Simple'->parse($1) |
|
19
|
0 |
3 |
unless $to = 'Gedcom::Date::Simple'->parse($2) |
|
21
|
0 |
3 |
unless $from = 'Gedcom::Date::Simple'->parse($1) |
|
23
|
0 |
3 |
unless $to = 'Gedcom::Date::Simple'->parse($1) |
|
39
|
6 |
0 |
unless (defined $self->{'gedcom'}) |
|
42
|
8 |
4 |
defined $self->{$_} ? : |
|
61
|
0 |
0 |
if (defined $self->{'from'}) { } |
|
78
|
3 |
3 |
defined $self->{'from'} ? : |
|
|
6 |
3 |
defined $self->{'to'} ? : |