Branch Coverage

blib/lib/WWW/YaCyBlacklist.pm
Criterion Covered Total %
branch 23 40 57.5


line true false branch
71 24 2 if $pattern =~ /^[\w\-\.\*]+$/
81 23 0 if (CORE::length $line > 0)
116 0 69 unless $url =~ m[^(ht|f)tps?\://]i
117 0 69 if $url =~ m[\://[\w\-\.]+$]
119 11 58 defined $url->query ? :
124 430 300 unless $pq =~ /$path/
127 299 1 if (not do {
129 133 166 if (index(do {
132 14 119 if $url->host =~ /^$host$/
135 36 130 if index($url->host, do {
139 1 0 if $self->use_regex and $url->host =~ /^$host$/
150 11 5 if $self->check_url($_)
159 2 6 if not $self->check_url($_)
168 1 0 if exists do {
175 0 0 if $self->sorting eq "random"
178 0 0 if $self->sorting eq "alphabetical"
179 0 0 if $self->sorting eq "length"
180 0 0 if $self->sorting eq "origorder"
181 0 0 if $self->sorting eq "reverse_host"
183 0 0 if $self->sortorder