File Coverage

Taint.xs
Criterion Covered Total %
statement 2 2 100.0
branch 4 4 100.0
condition n/a
subroutine n/a
pod n/a
total 6 6 100.0


line stmt bran cond sub pod time code
1             #include "EXTERN.h"
2             #include "perl.h"
3             #include "XSUB.h"
4             #include "ppport.h"
5              
6             MODULE = Test::Taint PACKAGE = Test::Taint
7              
8             void
9             _taint(...)
10              
11             CODE:
12              
13             IV i;
14 58 100         for (i = 0; i < items; i++)
15 29 100         SvTAINTED_on(ST(i));