File Coverage

blib/lib/base/Glob.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 25 25 100.0


line stmt bran cond sub pod time code
1             package base::Glob;
2 1     1   8027 use vars '$VERSION';
  1         2  
  1         56  
3             $VERSION = '0.01';
4              
5 1     1   5 use strict;
  1         3  
  1         138  
6 1     1   897 use Text::Glob qw( match_glob );
  1         943  
  1         57  
7 1     1   5 use Devel::Symdump;
  1         2  
  1         26  
8 1     1   1668 use Sub::Uplevel;
  1         1296  
  1         7  
9             require base;
10              
11             sub import {
12 2     2   173 shift;
13 2         60953 my @packages = Devel::Symdump->rnew->packages;
14            
15 1         30 uplevel 1, \&base::import,
16 2         1737 ( 'base', map { match_glob $_, @packages } @_ );
17             }
18              
19             1;
20              
21             __END__