File Coverage

blib/lib/tainted.pl
Criterion Covered Total %
statement 0 4 0.0
branch n/a
condition n/a
subroutine 0 1 0.0
pod n/a
total 0 5 0.0


line stmt bran cond sub pod time code
1             # This subroutine returns true if its argument is tainted, false otherwise.
2              
3             sub tainted {
4 0     0     local($@);
5 0           eval { kill 0 * $_[0] };
  0            
6 0           $@ =~ /^Insecure/;
7             }
8              
9             1;