| 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'}) |
|
40
|
8 |
4 |
defined $$self{$_} ? : |
|
61
|
0 |
0 |
if (defined $$self{'from'}) { } |
|
77
|
3 |
3 |
defined $$self{'from'} ? : |
|
|
6 |
3 |
defined $$self{'to'} ? : |