| line |
true |
false |
branch |
|
122
|
5 |
30 |
unless is_tainted $_ |
|
150
|
2 |
3 |
any_tainted(@_) ? : |
|
183
|
3 |
1 |
if is_tainted $TAINT |
|
187
|
0 |
1 |
if is_tainted $TAINT |
|
199
|
1 |
0 |
if open FOO, $_ and defined sysread(FOO, $data, 1) |
|
208
|
0 |
4 |
if length $TAINT |
|
214
|
0 |
11 |
unless taint_checking |
|
216
|
1 |
33 |
unless defined $_ |
|
217
|
0 |
33 |
if ref $_ |
|
219
|
2 |
31 |
if (defined(my $thingy = tied $_)) |
|
220
|
2 |
0 |
if ($thingy->can('TAINT')) |
|
226
|
23 |
8 |
if (not $_ & '00' | '00') { } |
|
234
|
0 |
31 |
if ($@ =~ /read-only/) { } |
|
|
0 |
31 |
elsif ($@) { } |
|
310
|
1 |
0 |
unless (@map) |
|
344
|
0 |
4 |
if (is_tainted $pattern) |
|
348
|
1 |
3 |
if $Taint::DEBUGGING |
|
360
|
1 |
3 |
if ($@) |
|
456
|
1 |
6 |
if ($_ eq 'unconditional_untaint') { } |
|
|
1 |
5 |
elsif ($_ eq 'allow_no_taint') { } |
|
457
|
0 |
1 |
unless ($insanity{$pkg}) |
|
463
|
0 |
1 |
if (defined &$name) |
|
510
|
10 |
1 |
if is_tainted $_ and /^(.*)$/s |
|
533
|
1 |
5 |
unless @importables |
|
534
|
0 |
5 |
unless ($no_taint_okay{$pkg} or is_tainted(tainted_null)) |
|
581
|
1 |
0 |
if ($_ eq 'sanity') { } |