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             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
4             our $DATE = '2021-08-06'; # DATE
5             our $DIST = 'tainting'; # DIST
6             our $VERSION = '0.031'; # VERSION
7              
8 1     1   674 use strict;
  1         1  
  1         31  
9 1     1   4 use warnings;
  1         2  
  1         80  
10              
11 1     1   418 use Taint::Runtime qw(taint_env taint_start taint_stop);
  1         1393  
  1         4  
12              
13             my $env_tainted;
14              
15             sub import {
16 2     2   1766 my $self = shift;
17              
18 2         8 taint_start();
19 2 100       14 taint_env() unless $env_tainted++;
20             }
21              
22             sub unimport {
23 1     1   8 my $self = shift;
24              
25 1         4 taint_stop();
26             }
27              
28             1;
29             # ABSTRACT: (DEPRECATED) Enable taint mode lexically
30              
31             __END__