Branch Coverage

blib/lib/PerlBean/Described/ExportTag.pm
Criterion Covered Total %
branch 9 28 32.1


line true false branch
180 1 0 defined $_[0] ? :
183 0 1 unless ref $opt eq 'HASH'
186 0 1 unless exists $$opt{'export_tag_name'}
200 0 0 unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name})
208 0 1 if (ref $val and exists $ALLOW_ISA{$name})
210 0 0 if &UNIVERSAL::isa($val, $class)
215 0 1 if (ref $val and exists $ALLOW_REF{$name})
216 0 0 if exists $ALLOW_REF{$name}{ref $val}
220 1 0 if (defined $val and not ref $val and exists $ALLOW_RX{$name})
222 1 0 if $val =~ /$rx/
227 0 0 if (not ref $val and exists $ALLOW_VALUE{$name})
228 0 0 if exists $ALLOW_VALUE{$name}{$val}
250 0 1 unless defined $val
253 0 1 unless &_value_is_allowed('export_tag_name', $val)