File Coverage

blib/lib/File/FnMatch.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package File::FnMatch;
2              
3             # $Id: FnMatch.pm,v 1.2 2005/03/30 05:34:57 mjp Exp $
4              
5 2     2   14296 use 5.004;
  2         8  
  2         124  
6 2     2   13 use strict;
  2         3  
  2         144  
7              
8             require Exporter;
9             require DynaLoader;
10 2     2   12 use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
  2         14  
  2         401  
11             @ISA = qw(Exporter DynaLoader);
12              
13             $VERSION = '0.02';
14              
15             bootstrap File::FnMatch $VERSION;
16              
17             # export nothing by default, but allow fnmatch() and all the FNM_ constants
18             @EXPORT_OK = ('fnmatch', grep {/^FNM_\w+$/} keys %{File::FnMatch::} );
19             %EXPORT_TAGS = ( 'fnmatch' => [ @EXPORT_OK ] );
20              
21             # Preloaded methods go here.
22              
23             1;
24             __END__