_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 | 8 | 8 | 670066 | use Module::Build; | |||
8 | 24 | ||||||
8 | 902 | ||||||
3 | @ISA = qw(Module::Build); | ||||||
4 | |||||||
5 | sub _added_to_INC { # CVE-2016-1238 | ||||||
6 | 8 | 8 | 28367 | my $self = shift; my %seen; | |||
8 | 17 | ||||||
7 | |||||||
8 | 8 | 79 | for ($self->_default_INC) { $seen{ $_ }++ } | ||||
40 | 102 | ||||||
9 | |||||||
10 | 8 | 47 | return grep { not $seen{ $_ }++ } $self->base_dir, @INC; | ||||
136 | 271 | ||||||
11 | } | ||||||
12 | |||||||
13 | 1; |