| 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'}) { } |
|
91
|
3 |
3 |
defined $self->{'aft'} ? : |
|
|
6 |
3 |
defined $self->{'bef'} ? : |