File Coverage

lib/ExtUtils/Liblist.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 21 23 91.3


line stmt bran cond sub pod time code
1             package ExtUtils::Liblist;
2              
3 54     54   49253 use strict;
  54         106  
  54         2269  
4 54     54   274 use warnings;
  54         107  
  54         5931  
5              
6             our $VERSION = '7.78';
7             $VERSION =~ tr/_//d;
8              
9 54     54   371 use File::Spec;
  54         140  
  54         12247  
10             require ExtUtils::Liblist::Kid;
11             our @ISA = qw(ExtUtils::Liblist::Kid File::Spec);
12              
13             # Backwards compatibility with old interface.
14             sub ext {
15 160     160 0 126240 goto &ExtUtils::Liblist::Kid::ext;
16             }
17              
18             sub lsdir {
19 14     14 0 25 shift;
20 14         342 my $rex = qr/$_[1]/;
21 14         480 opendir my $dir_fh, $_[0];
22 14         3878 my @out = grep /$rex/, readdir $dir_fh;
23 14         360 closedir $dir_fh;
24 14         1511 return @out;
25             }
26              
27             __END__