Branch Coverage

blib/lib/WWW/Scrape/FindaGrave.pm
Criterion Covered Total %
branch 33 52 63.4


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'})