Branch Coverage

blib/lib/HH/Unispool/Config/File/Token/Comment/NetDesc.pm
Criterion Covered Total %
branch 9 28 32.1


line true false branch
250 114 0 defined $_[0] ? :
253 0 114 unless ref $opt eq 'HASH'
256 0 114 unless exists $$opt{'net_desc'}
270 0 0 unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name})
278 0 219 if (ref $val and exists $ALLOW_ISA{$name})
280 0 0 if &UNIVERSAL::isa($val, $class)
285 0 219 if (ref $val and exists $ALLOW_REF{$name})
286 0 0 if exists $ALLOW_REF{$name}{ref $val}
290 219 0 if (defined $val and not ref $val and exists $ALLOW_RX{$name})
292 219 0 if $val =~ /$rx/
297 0 0 if (not ref $val and exists $ALLOW_VALUE{$name})
298 0 0 if exists $ALLOW_VALUE{$name}{$val}
320 0 219 unless defined $val
323 0 219 unless &_value_is_allowed('net_desc', $val)