Branch Coverage

blib/lib/Taint/Runtime.pm
Criterion Covered Total %
branch 23 40 57.5


line true false branch
44 1 4 _taint_enabled() ? :
49 4 3 if not $val or $val eq 'disable'
50 3 4 $val ? :
59 15 2 unless $_[$i] =~ /^(dis|en)able$/
60 1 1 $1 eq 'dis' ? :
62 0 2 if defined $change and $change != $val
78 0 11 unless defined $_[0]
86 2 2 ref $str ? :
87 0 4 unless defined $$ref
89 2 2 ref $str ? :
94 2 2 ref $str ? :
95 0 4 if (not defined $$ref) { }
98 4 0 $$ref =~ /(.*)/s ? :
100 2 2 ref $str ? :
112 0 0 unless defined $ref
114 0 0 if (not ref $ref) { }
0 0 elsif (UNIVERSAL::isa($ref, 'SCALAR')) { }
125 0 0 if $$seen{$ref}
128 0 0 if (UNIVERSAL::isa($ref, 'ARRAY')) { }
0 0 elsif (UNIVERSAL::isa($ref, 'HASH')) { }