Branch Coverage

blib/lib/HH/Unispool/Config/File/Token/Numbered/Device/Group.pm
Criterion Covered Total %
branch 16 40 40.0


line true false branch
304 11 0 defined $_[0] ? :
307 0 11 unless ref $opt eq 'HASH'
310 11 0 if (exists $$opt{'member_device_name'}) { }
311 0 11 unless ref $$opt{'member_device_name'} eq 'ARRAY'
329 0 0 unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name})
337 0 148 if (ref $val and exists $ALLOW_ISA{$name})
339 0 0 if &UNIVERSAL::isa($val, $class)
344 0 148 if (ref $val and exists $ALLOW_REF{$name})
345 0 0 if exists $ALLOW_REF{$name}{ref $val}
349 148 0 if (defined $val and not ref $val and exists $ALLOW_RX{$name})
351 148 0 if $val =~ /$rx/
356 0 0 if (not ref $val and exists $ALLOW_VALUE{$name})
357 0 0 if exists $ALLOW_VALUE{$name}{$val}
372 0 110 unless &_value_is_allowed('member_device_name', @_)
410 0 28 unless defined $number
416 28 0 if $member[0]
417 28 0 if $member[1]
418 28 0 if $member[2]
419 26 2 if $member[3]
426 0 39 unless &_value_is_allowed('member_device_name', @_)