File Coverage

_build/lib/MyModuleBuilder.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 11 11 100.0


line stmt bran cond sub pod time code
1             package MyModuleBuilder;
2 2     2   1290388 use Module::Build;
  2         93189  
  2         405  
3             our @ISA = qw(Module::Build);
4              
5             sub _added_to_INC { # CVE-2016-1238
6 2     2   24626 my $self = shift; my %seen;
  2         12  
7              
8 2         81 for ($self->_default_INC) { $seen{ $_ }++ }
  13         685959  
9              
10 2         81 return grep { not $seen{ $_ }++ } $self->base_dir, @INC;
  25         169  
11             }
12              
13             1;