| line |
true |
false |
branch |
|
17
|
3 |
38 |
if ($str =~ /^BET (.*?) AND (.*)$/) { } |
|
|
3 |
35 |
elsif ($str =~ /^AFT (.*)$/) { } |
|
|
3 |
32 |
elsif ($str =~ /^BEF (.*)$/) { } |
|
18
|
0 |
3 |
unless $aft = 'Gedcom::Date::Simple'->parse($1) |
|
19
|
0 |
3 |
unless $bef = 'Gedcom::Date::Simple'->parse($2) |
|
21
|
0 |
3 |
unless $aft = 'Gedcom::Date::Simple'->parse($1) |
|
23
|
0 |
3 |
unless $bef = 'Gedcom::Date::Simple'->parse($1) |
|
39
|
6 |
0 |
unless (defined $$self{'gedcom'}) |
|
40
|
2 |
4 |
if (defined $$self{'aft'} and defined $$self{'bef'}) { } |
|
|
2 |
2 |
elsif (defined $$self{'aft'}) { } |
|
55
|
0 |
0 |
if ($$self{'bef'}) { } |
|
65
|
0 |
0 |
if ($$self{'aft'}) { } |
|
75
|
0 |
0 |
if (defined $$self{'aft'}) { } |
|
90
|
3 |
3 |
defined $$self{'aft'} ? : |
|
|
6 |
3 |
defined $$self{'bef'} ? : |