File Coverage

blib/lib/Directory/Iterator.pm
Criterion Covered Total %
statement 19 20 95.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 26 28 92.8


line stmt bran cond sub pod time code
1             package Directory::Iterator;
2              
3 1     1   28585 use 5.006002;
  1         3  
  1         71  
4 1     1   6 use strict;
  1         2  
  1         48  
5 1     1   7 use warnings;
  1         7  
  1         134  
6              
7             our @ISA;
8             our $VERSION = '1.001';
9              
10             BEGIN {
11              
12 1     1   2 eval {
13 1         1988 require Directory::Iterator::XS;
14 0         0 @ISA = 'Directory::Iterator::XS';
15             };
16 1 50       9 if ($@) {
17 1         917 require Directory::Iterator::PP;
18 1         4980 @ISA = 'Directory::Iterator::PP';
19             }
20             }
21              
22             sub new {
23 4     4 1 3234 my ($class, $dir, %options) = @_;
24 4         20 my $self = $class->SUPER::new( $dir );
25 4         239 while (my ($method,$arg) = each %options) {
26 1         4 $self->$method($arg);
27             }
28 4         16 return $self;
29             }
30             1;
31             __END__