Condition Coverage

blib/lib/Data/Transform/ExplicitMetadata.pm
Criterion Covered Total %
condition 53 77 68.8


and 3 conditions

line !l l&&!r l&&r condition
123 11 16 3 $reftype eq 'SCALAR' and defined $blesstype
27 3 0 $reftype eq 'SCALAR' and defined $blesstype and $blesstype eq 'Regexp'
3 16 0 ref $value eq 'SCALAR' and &Scalar::Util::isvstring($$value)
274 1 0 4 $package and $name
1 0 4 $package and $name and $package ne 'Symbol'
0 0 4 $package and $name and $package ne 'Symbol' and not $name =~ /GEN\d/
353 0 0 3 $value->{'PACKAGE'} ne 'Symbol' && !($value->{'NAME'} =~ /^GEN\d+/) && $value->{'NAME'} =~ /^\w/
390 43 1 6 $blessed and not $input->{'__recursive'}
420 50 0 0 $blesstype and $reftype

or 2 conditions

line l !l condition
19 5 0 eval { do { require FileHandle::Fmode } } || ''
83 44 31 $path_expr ||= '$VAR'
84 44 31 $seen ||= {}
317 29 21 $recursive_queue ||= []

or 3 conditions

line l !l&&r !l&&!r condition
57 7 0 5 _get_open_mode_fcntl($fh) || $HAS_FMODE && _get_open_mode_filehandle_fmode($fh)
72 0 1 62 $ref eq 'GLOB' or $ref eq 'VSTRING'
1 0 62 $ref eq 'GLOB' or $ref eq 'VSTRING' or &Scalar::Util::isvstring($value)
104 21 7 74 $reftype eq 'SCALAR' or $reftype eq 'REF'
123 1 0 30 $reftype eq 'REGEXP' or $reftype eq 'SCALAR' and defined $blesstype and $blesstype eq 'Regexp'
2 0 19 $reftype eq 'VSTRING' or ref $value eq 'SCALAR' and &Scalar::Util::isvstring($$value)
298 1 0 0 open $fh, '>&=', $fileno or open $fh, '<&=', $fileno
357 3 3 8 $type eq 'NAME' or $type eq 'PACKAGE'
6 0 8 $type eq 'NAME' or $type eq 'PACKAGE' or $type eq 'IOseek'
3 0 8 $type eq 'NAME' or $type eq 'PACKAGE' or $type eq 'IOseek' or $type eq 'IOmode'
418 4 2 44 $reftype eq 'GLOB' or $reftype eq 'VSTRING'
6 0 44 $reftype eq 'GLOB' or $reftype eq 'VSTRING' or exists $input->{'__refaddr'}
420 0 50 0 $blesstype and $reftype or not $blesstype
442 7 0 3 $reftype eq 'SCALAR' && !ref($value) || $reftype eq ref $value || $reftype eq 'GLOB' && exists $value->{'SCALAR'} || $reftype eq 'CODE' && $value && ref $value eq '' || $reftype eq 'REF' && ref $value eq 'HASH' && exists $value->{'__reftype'} || $reftype eq 'REGEXP' && ref $value eq 'ARRAY' || $reftype eq 'VSTRING' && ref $value eq 'ARRAY' || $reftype && !ref($input->{'__value'}) && $input->{'__recursive'} || $input->{'__tied'} && ref $input->{'__value'} && $input->{'__value'}{'__blessed'}