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   398 use strict;
  1         2  
  1         24  
4 1     1   4 use warnings;
  1         2  
  1         25  
5              
6 1     1   350 use Taint::Runtime qw(taint_env taint_start taint_stop);
  1         1072  
  1         6  
7              
8             our $VERSION = '0.02'; # VERSION
9              
10             my $env_tainted;
11              
12             sub import {
13 2     2   1550 my $self = shift;
14              
15 2         6 taint_start();
16 2 100       11 taint_env() unless $env_tainted++;
17             }
18              
19             sub unimport {
20 1     1   8 my $self = shift;
21              
22 1         3 taint_stop();
23             }
24              
25             1;
26             # ABSTRACT: Enable taint mode lexically
27              
28             __END__