Branch Coverage

blib/lib/Net/DNSBL/Utilities.pm
Criterion Covered Total %
branch 57 68 83.8


line true false branch
201 3 0 if ($sfile)
202 3 0 if (open S, '>' . $sfile . '.tmp')
205 0 3 if ($csize)
212 6 13 if $_ =~ /^(White|Passed)/
218 6 0 if exists $$cp{$_}
238 9 25 if ($a =~ /\./ and not $b =~ /\./) { }
6 19 elsif (not $a =~ /\./ and $b =~ /\./) { }
2 17 elsif ($a =~ /Black|White|Pass/ and not $b =~ /Black|White|Pass/) { }
1 16 elsif (not $a =~ /Black|White|Pass/ and $b =~ /Black|White|Pass/) { }
253 8 8 unless $$cp{$b} <=> $$cp{$a}
274 15 0 if ($Sfile)
275 2 13 if (-e $Sfile) { }
13 0 elsif ($Sfile =~ m[[^/]+$] and -d $`) { }
276 2 0 if (open S, $Sfile)
278 2 19 if $_ =~ /# stats since/
279 8 13 unless $_ =~ /^(\d+)\s+(.+)/
280 12 1 if exists $$cp{"$2"}
313 42 30 unless $_ =~ /.+\..+/
383 13 33 unless $A1271
384 13 33 unless ($SKIP_POSIX)
390 0 46 unless socket SOCKET, &Socket::PF_INET, &Socket::SOCK_DGRAM, $UDP
391 46 0 if ($flags = fcntl(SOCKET, &POSIX::F_GETFL(), 0)) || 1 and fcntl SOCKET, &POSIX::F_SETFL(), $flags | &POSIX::O_NONBLOCK()
422 4 5 unless ref $inref eq 'ARRAY' and ref $outref eq 'ARRAY'
424 2 3 unless ($SKIP_NetAddrIP)
434 2 1 if ($IP =~ /^\d+\.\d+\.\d+\.\d+$/o) { }
1 0 elsif ($IP =~ /^(\d+\.\d+\.\d+\.\d+)\s*\-\s*(\d+\.\d+\.\d+\.\d+)$/o) { }
3 33 elsif ($IP =~ m[^\d+\.\d+\.\d+\.\d+/\d+$]) { }
6 45 elsif ($IP =~ m[^(\d+\.\d+\.\d+\.\d+)/(\d+\.\d+\.\d+\.\d+)$]o) { }
466 14 73 unless $ip and $ip =~ /\d+\.\d+\.\d+\.\d+/
474 51 87 if $ip >= $beg and $ip <= $end
537 1 42 if ($_[0]) { }
554 0 42 if ($_[0]) { }
583 1 47 unless $A1271
598 2 4 unless $A1274