Branch Coverage

blib/lib/Chooser.pm
Criterion Covered Total %
branch 0 86 0.0


line true false branch
68 0 0 unless (defined $check)
78 0 0 if ($checks[$checksInt] eq $check)
94 0 0 if ($check eq 'pingmac')
98 0 0 if ($check eq 'defgateway')
102 0 0 if ($check eq 'cidr')
106 0 0 if ($check eq 'eval')
107 0 0 if (defined $args{'eval'})
112 0 0 if ($check eq 'hostregex')
114 0 0 if (hostname() =~ /$args{'regex'}/)
120 0 0 if ($check eq 'sslcert')
122 0 0 unless (defined $args{'host'})
125 0 0 unless (defined $args{'subject'})
128 0 0 unless (defined $args{'port'})
130 0 0 if ($run)
135 0 0 if ($check eq 'netidentflag')
138 0 0 if (defined $ENV{'NETIDENTFLAGDIR'})
142 0 0 if (defined {$args{'flag'}}) { }
143 0 0 if (-f $flagdir . '/' . $args{'flag'}) { }
169 0 0 if ($args{'ip'} eq $gateway[0])
182 0 0 if ($? == 0)
186 0 0 if ($b[0] eq $args{'mac'})
207 0 0 if (defined $args{'if'})
211 0 0 if ($iflist[$iflistInt] eq $args{'if'})
215 0 0 if (defined $address)
217 0 0 if ($cidr->find($address))
236 0 0 if (defined $address)
238 0 0 if ($cidr->find($address))
263 0 0 unless ($client)
277 0 0 if ($args{'subject'} ne $subject)
282 0 0 if (defined $args{'issuer'})
286 0 0 if ($args{'issuer'} ne $issuer)
301 0 0 if (!$value =~ /^\%/)
330 0 0 if ($value =~ /^\%eval\{/)
346 0 0 if ($doeval)
416 0 0 unless (defined $string)
432 0 0 if ($line =~ /^\$/) { }
436 0 0 if (defined $data)
473 0 0 unless (defined $wieght)
478 0 0 if (checklegit($check)) { }
481 0 0 if ($success)
482 0 0 if ($returned eq $expect)
499 0 0 if (defined $keys[$keysInt])
504 0 0 if ($values{$keys[$keysInt]} >= $lastwieght)