File Coverage

blib/lib/tainting.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 21 21 100.0


line stmt bran cond sub pod time code
1             package tainting;
2              
3 1     1   794 use strict;
  1         1  
  1         37  
4 1     1   6 use warnings;
  1         2  
  1         37  
5              
6 1     1   870 use Taint::Runtime qw(taint_env taint_start taint_stop);
  1         1637  
  1         10  
7              
8             our $VERSION = '0.01'; # VERSION
9              
10             my $env_tainted;
11              
12             sub import {
13 2     2   1785 my $self = shift;
14              
15 2         9 taint_start();
16 2 100       15 taint_env() unless $env_tainted++;
17             }
18              
19             sub unimport {
20 1     1   9 my $self = shift;
21              
22 1         5 taint_stop();
23             }
24              
25             1;
26             #ABSTRACT: Enable taint mode lexically
27              
28              
29             __END__