File Coverage

blib/lib/Pollute.pm
Criterion Covered Total %
statement 29 29 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 37 38 97.3


line stmt bran cond sub pod time code
1             package Pollute;
2              
3 1     1   20 use 5.005;
  1         3  
  1         78  
4 1     1   5 use strict;
  1         1  
  1         39  
5 1     1   8 no strict 'refs';
  1         2  
  1         36  
6             # not standard in version 5.00503: use warnings;
7 1     1   4 use vars qw/$Package $Package1 %Before $VERSION/;
  1         2  
  1         340  
8              
9             $VERSION = '0.07'; # 07 September 2001.
10             # Changes: see Changes file
11              
12             sub Pollute(){
13 1     1 0 5 ($Package) = caller;
14 1         3 ($Package1) = caller(1);
15 1         3 foreach (keys %{"${Package}::"}){
  1         5  
16 6 100       15 $Before{$_} and next;
17 4         4 *{"${Package1}::$_"} = *{"${Package}::$_"};
  4         61  
  4         12  
18             };
19            
20 1         59 undef %Before;
21 1         2 undef $Package;
22 1         10 undef $Package1;
23             };
24              
25              
26             sub import{
27 1     1   3 ($Package) = caller;
28 1         1 %Before = map {($_,1)} keys %{"${Package}::"};
  2         5  
  1         4  
29              
30 1         2 *{"${Package}::Pollute"} = \&Pollute;
  1         26  
31             };
32              
33             1;
34             __END__