File Coverage

blib/lib/File/Where.pm
Criterion Covered Total %
statement 33 33 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod n/a
total 44 44 100.0


line stmt bran cond sub pod time code
1             #!perl
2             #
3             # Documentation, copyright and license is at the end of this file.
4             #
5             package File::Where;
6            
7 1     1   24498 use 5.001;
  1         5  
  1         48  
8 1     1   6 use strict;
  1         2  
  1         40  
9 1     1   37 use warnings;
  1         2  
  1         25  
10 1     1   6 use warnings::register;
  1         2  
  1         234  
11            
12 1     1   6 use vars qw($VERSION $DATE $FILE);
  1         2  
  1         100  
13             $VERSION = '1.16';
14             $DATE = '2004/05/04';
15             $FILE = __FILE__;
16            
17 1     1   5 use File::Spec;
  1         2  
  1         29  
18 1     1   6 use Cwd;
  1         2  
  1         102  
19 1     1   5 use File::Glob ':glob';
  1         2  
  1         448  
20            
21 1     1   5 use vars qw(@ISA @EXPORT_OK);
  1         3  
  1         42  
22 1     1   4 use Exporter;
  1         2  
  1         62  
23             @ISA = qw(Exporter);
24             @EXPORT_OK = qw(is_module dir_pms pm2require program_modules repository_pms
25             where where_dir where_file where_pm where_repository);
26            
27 1     1   5 use SelfLoader;
  1         2  
  1         55  
28            
29             1
30            
31             __DATA__