Branch Coverage

blib/lib/IP/Tools.pm
Criterion Covered Total %
branch 10 84 11.9


line true false branch
97 0 0 if ($log_mask > $log_mask_max)
103 0 0 if ($lower != $zeroed)
121 0 0 if ($cidr =~ m[^\s*($ip_re)\s*/\s*(\d+)\s*$])
125 0 0 if ($log_mask > $log_mask_max)
132 0 0 if ($error)
138 0 0 if ($lower != $zeroed)
162 0 0 if ($ip_range =~ /^\s*($ip_re)\D+($ip_re)\s*$/) { }
168 0 0 if ($error)
172 0 0 if ($error)
178 0 0 if ($mask < 0)
185 0 0 if ($mask == 0)
189 0 0 if (abs $log2mask > abs(int $log2mask) + $eps)
223 0 0 if ($mask < 0)
226 0 0 if ($mask == 0)
230 0 0 if (abs $log2mask > abs(int $log2mask) + $eps)
241 0 1 unless open my $in, '<', $infile
246 1 1 if (/^\s*#\s*(.*)/)
248 1 0 if ($verbose)
254 0 1 if (/^\s*$/)
255 0 0 if ($verbose)
260 0 1 if (/$cidr_re/)
264 0 0 if ($verbose)
268 0 0 if ($verbose)
279 1 0 if (/^$ipr_re$/)
282 1 0 if ($verbose)
295 0 1 unless close $in
301 0 1 if ($options{'ignoredups'})
304 0 0 if ($ips[$i]{'upper'} <= $ips[$i + 1]{'lower'})
313 0 0 if ($ips[$i]{'upper'} > $ips[$i + 1]{'lower'})
315 0 0 if ($options{'ignoredups'}) { }
330 0 0 if ($verbose)
334 0 0 if ($verbose)
342 0 0 if ($count > 100)
346 0 0 if ($division == 0)
349 0 0 if ($i > $n_ips - 1) { }
0 0 elsif ($i < 0) { }
359 0 0 if ($int >= $$ips[$i]{'lower'}) { }
360 0 0 if ($verbose)
363 0 0 if ($i == $n_ips - 1 or $int <= $$ips[$i + 1]{'lower'}) { }
364 0 0 if ($int <= $$ips[$i]{'upper'}) { }
378 0 0 if ($verbose)
387 0 0 if ($verbose)