| line |
true |
false |
branch |
|
101
|
1 |
1 |
unless $Log::Log4perl::Logger::INITIALIZED
|
|
186
|
0 |
254 |
if not $allow and length $prefix == 0
|
|
217
|
1 |
285 |
if $self->is_allow_none
|
|
218
|
3 |
282 |
if $self->is_allow_all
|
|
222
|
5 |
277 |
if $path_with_query eq '/robots.txt'
|
|
225
|
121 |
612 |
if $self->_rule_matches($path_with_query, $rule->_prefix)
|
|
236
|
0 |
556 |
unless length $b->_prefix <=> length $a->_prefix
|
|
255
|
282 |
0 |
if $with_query and $path_query ne ''
|
|
257
|
0 |
282 |
if (not defined $path or $path eq '') { }
|
|
277
|
6 |
727 |
$pattern =~ /\$/ ? :
|
|
278
|
6 |
727 |
if $contains_end_char
|
|
282
|
693 |
88 |
if $wildcard_pos == -1
|
|
292
|
31 |
750 |
if ($wildcard_pos == $pattern_pos) { }
|
|
294
|
7 |
24 |
if $pattern_pos >= $pattern_end
|
|
297
|
21 |
3 |
if $pattern_piece_end == -1
|
|
307
|
181 |
80 |
if substr($text, $text_pos + $i, 1) ne substr($pattern, $pattern_pos + $i, 1)
|
|
312
|
181 |
18 |
unless $matched
|
|
315
|
6 |
18 |
unless $matched
|
|
330
|
506 |
1486 |
if substr($text, $text_pos++, 1) ne substr($pattern, $pattern_pos++, 1)
|
|
341
|
114 |
100 |
$pattern_pos == $pattern_end && ($text_pos == $text_end || !$contains_end_char) ? :
|