Branch Coverage

blib/lib/WWW/RobotRules/Extended.pm
Criterion Covered Total %
branch 0 72 0.0


line true false branch
101 0 0 if $class eq 'WWW::RobotRules::Extended'
141 0 0 if /^\s*\#/
145 0 0 if (/^\s*User-Agent\s*:\s*(.*)/i) { }
0 0 elsif (/^\s*(Disallow|Allow)\s*:\s*(.*)/i) { }
0 0 elsif (/\S\s*:/) { }
149 0 0 if ($ua eq '*') { }
0 0 elsif ($self->is_me($ua)) { }
161 0 0 unless (defined $ua)
162 0 0 if $^W
168 0 0 if (length $allowdisallow)
172 0 0 if $u->scheme ne $robot_txt_uri->scheme
173 0 0 if lc $u->host ne lc $robot_txt_uri->host
174 0 0 if $u->port ne $robot_txt_uri->port
176 0 0 unless length $allowdisallow
178 0 0 if $@
179 0 0 if $ignore
192 0 0 if (length $allowdisallow)
193 0 0 if ($is_me) { }
0 0 elsif ($is_anon) { }
205 0 0 if $^W
209 0 0 if ($is_me) { }
232 0 0 unless $uri->scheme eq 'http' or $uri->scheme eq 'https'
238 0 0 if not defined $fresh_until or $fresh_until < time
247 0 0 if ($rline =~ /^(Disallow|Allow)\s*(.*)/i)
250 0 0 if ($str =~ /$rule/)
251 0 0 if ($verb eq 'allow')
254 0 0 if ($verb eq 'disallow')
412 0 0 if (index(lc $me, lc $ua_line) >= 0) { }
424 0 0 if ($name)
430 0 0 if $name =~ /(\S+)/
432 0 0 unless ($old and $old eq $name)
443 0 0 unless $netloc
447 0 0 if (not defined $$count) { }
471 0 0 if (defined $fresh_until)
492 0 0 if (defined $$self{'loc'}{$netloc}{'rules'}) { }
505 0 0 if $_ eq 'loc'