| line |
true |
false |
branch |
|
28
|
0 |
0 |
unless ($res->is_success) |
|
42
|
6 |
0 |
if $robot_txt_uri |
|
54
|
11 |
39 |
if /^\s*\#/ |
|
58
|
14 |
25 |
if (/^\s*User-Agent\s*:\s*(.*)/i) { } |
|
|
19 |
6 |
elsif (/^\s*Disallow\s*:\s*(.*)/i) { } |
|
62
|
0 |
19 |
unless (defined $ua_pattern) |
|
68
|
16 |
3 |
if (length $disallow) |
|
69
|
16 |
0 |
if ($robot_txt_uri) |
|
73
|
2 |
14 |
if $u->scheme ne $robot_txt_uri->scheme |
|
74
|
2 |
13 |
if lc $u->host ne lc $robot_txt_uri->host |
|
75
|
2 |
13 |
if $u->port ne $robot_txt_uri->port |
|
77
|
3 |
12 |
unless length $disallow |
|
79
|
1 |
15 |
if $@ |
|
80
|
4 |
11 |
if $ignore |
|
86
|
6 |
0 |
wantarray ? : |