File Coverage

blib/lib/ReadDir.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2              
3             package ReadDir;
4              
5 1     1   13468 use 5.005;
  1         4  
  1         40  
6 1     1   6 use strict;
  1         1  
  1         56  
7              
8             require Exporter;
9             require DynaLoader;
10              
11             BEGIN {
12 1     1   6 use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $VERSION);
  1         2  
  1         138  
13              
14 1     1   17 @ISA = qw(Exporter DynaLoader);
15              
16 1         4 %EXPORT_TAGS = ( 'all' => [ qw( &readdir_inode &readdir_hashref
17             &readdir_arrayref) ] );
18              
19 1         2 @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
  1         4  
20              
21 1         72 $VERSION = '0.03';
22             };
23              
24             # contact me if you need this as a complete XS routine, I'm just being
25             # lazy - Sam.
26 1     1 1 585 sub readdir_arrayref($) { [ readdir_inode(shift) ] }
27              
28             bootstrap ReadDir $VERSION;
29              
30             1;
31             __END__