| line |
true |
false |
branch |
|
59
|
0 |
5 |
unless defined $class |
|
61
|
5 |
0 |
ref $_[0] eq 'HASH' ? : |
|
63
|
0 |
5 |
unless $args{'firstname'} |
|
64
|
0 |
5 |
unless $args{'lastname'} |
|
66
|
0 |
2 |
unless $args{'date_of_death'} or $args{'date_of_birth'} |
|
79
|
0 |
5 |
unless ($resp->is_success) |
|
90
|
3 |
2 |
if ($rc->{'date_of_death'}) { } |
|
|
2 |
0 |
elsif ($rc->{'date_of_birth'}) { } |
|
98
|
1 |
4 |
if ($rc->{'middlename'}) |
|
111
|
4 |
1 |
if ($rc->{'country'}) |
|
112
|
1 |
3 |
if ($rc->{'country'} eq 'United States') { } |
|
123
|
0 |
5 |
unless ($resp->is_success) |
|
126
|
3 |
2 |
if ($resp->content =~ /Sorry, there are no records in the Find A Grave database matching your query\./) |
|
130
|
2 |
0 |
if ($resp->content =~ m[(\d+)\s+total matches]im) |
|
132
|
0 |
2 |
if $rc->{'matches'} == 0 |
|
161
|
3 |
3 |
if $self->{'matches'} == 0 |
|
164
|
0 |
3 |
if $rc |
|
166
|
2 |
1 |
if $self->{'index'} >= $self->{'matches'} |
|
180
|
30 |
0 |
if ($date_of_death) { } |
|
|
0 |
0 |
elsif (defined $date_of_birth) { } |
|
181
|
1 |
29 |
if ($link =~ m[www.findagrave.com/cgi-bin/fg.cgi\?.*&GSln=\Q$lastname\E.*&GSfn=\Q$firstname\E.*&GSdy=\Q$date_of_death\E.*&GRid=\d+]i) |
|
185
|
0 |
0 |
if ($link =~ m[www.findagrave.com/cgi-bin/fg.cgi\?.*&GSln=\Q$lastname\E.*&GSfn=\Q$firstname\E.*&GSby=\Q$date_of_birth\E.*&GRid=\d+]i) |
|
189
|
1 |
0 |
if ($match and $self->{'country'}) |
|
191
|
0 |
1 |
unless ($self->{'resp'}->content =~ /\Q$country\E/i) |
|
195
|
1 |
29 |
if ($match) |
|
200
|
1 |
0 |
if ($self->{'index'} <= $self->{'matches'}) |