Branch Coverage

blib/lib/Net/Routing/FreeBSD.pm
Criterion Covered Total %
branch 43 50 86.0


line true false branch
22 3 0 if (-f "$path/netstat")
27 0 3 unless (length $bin)
57 1 30 if ($line =~ /^\s*destination\s+gateway\s+flags\s+netif\s+expire\s*$/i) { }
2 28 elsif ($line =~ /^\s*destination\s+gateway\s+flags\s+refs\s+use\s+netif\s+expire\s*$/i) { }
73 15 13 if ($freebsd_version eq '9.x') { }
90 19 6 if (defined $route and defined $gateway and defined $interface)
94 3 16 if ($route eq 'default')
97 10 9 if ($gateway =~ /^link/)
116 3 16 unless ($gateway =~ /^[0-9\.]+$/ and $route =~ m[^[0-9\.]+(?:/\d+)?$])
128 0 16 if ($@)
142 3 13 if ($route eq '0.0.0.0/0')
148 10 6 if ($gateway eq '0.0.0.0')
153 0 16 unless ($route{'route'} =~ m[/\d+$])
158 16 0 unless (exists $cache{$id})
200 49 6 if (defined $route and defined $gateway and defined $interface)
202 38 11 if ($gateway =~ /^link/ or $gateway eq '::1')
205 1 48 if ($route eq 'default')
212 2 47 if ($gateway =~ /^[a-f0-9]{1,2}:[a-f0-9]{1,2}:[a-f0-9]{1,2}:[a-f0-9]{1,2}:[a-f0-9]{1,2}:[a-f0-9]{1,2}$/i)
219 2 0 unless (exists $cache{$id})
226 10 39 unless ($route =~ m[^[0-9a-f:/]+$]i and $gateway =~ m[^[0-9a-f:/]+$]i)
237 2 37 if ($@)
251 1 36 if ($route eq '::/0')
257 36 1 if ($gateway eq '::')
262 14 23 unless ($route{'route'} =~ m[/\d+$])
267 37 0 unless (exists $cache{$id})