| line |
true |
false |
branch |
|
14
|
20 |
0 |
if $class eq "WWW::RobotRules" |
|
45
|
33 |
165 |
if /^\s*\#/ |
|
49
|
37 |
128 |
if (/^\s*$/) { } |
|
|
54 |
74 |
elsif (/^\s*User-Agent\s*:\s*(.*)/i) { } |
|
|
72 |
2 |
elsif (/^\s*Disallow\s*:\s*(.*)/i) { } |
|
|
2 |
0 |
elsif (/\S\s*:/) { } |
|
50
|
6 |
31 |
if $is_me |
|
58
|
11 |
43 |
if ($seen_disallow) |
|
62
|
3 |
8 |
if $is_me |
|
66
|
0 |
51 |
if ($is_me) { } |
|
|
15 |
36 |
elsif ($ua eq '*') { } |
|
|
13 |
23 |
elsif ($self->is_me($ua)) { } |
|
79
|
0 |
72 |
unless (defined $ua) |
|
80
|
0 |
0 |
if $^W |
|
88
|
65 |
7 |
if (length $disallow) |
|
92
|
11 |
54 |
if $u->scheme ne $robot_txt_uri->scheme |
|
93
|
7 |
50 |
if lc $u->host ne lc $robot_txt_uri->host |
|
94
|
6 |
51 |
if $u->port ne $robot_txt_uri->port |
|
96
|
11 |
46 |
unless length $disallow |
|
98
|
8 |
57 |
if $@ |
|
99
|
13 |
44 |
if $ignore |
|
102
|
13 |
38 |
if ($is_me) { } |
|
|
17 |
21 |
elsif ($is_anon) { } |
|
114
|
0 |
0 |
if $^W |
|
118
|
13 |
9 |
if ($is_me) { } |
|
138
|
13 |
23 |
if (index(lc $me, lc $ua_line) != -1) { } |
|
151
|
0 |
53 |
unless $uri->scheme eq "http" or $uri->scheme eq "https" |
|
158
|
5 |
48 |
if not defined $fresh_until or $fresh_until < time |
|
163
|
6 |
35 |
unless length $rule |
|
164
|
18 |
17 |
if index($str, $rule) == 0 |
|
189
|
20 |
35 |
if ($name) |
|
196
|
20 |
0 |
if $name =~ /(\S+)/ |
|
198
|
20 |
0 |
unless ($old and $old eq $name) |
|
209
|
0 |
0 |
unless $netloc |
|
213
|
0 |
0 |
if (not defined $$count) { } |
|
237
|
20 |
50 |
if (defined $fresh_until) |
|
258
|
47 |
0 |
if (defined $self->{'loc'}{$netloc}{'rules'}) { } |
|
270
|
0 |
0 |
if $_ eq "loc" |