File Coverage

blib/lib/File/Next/OO.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             package File::Next::OO;
2              
3             $VERSION = '0.01_04';
4 3     3   43285 use File::Next 0.28;
  0            
  0            
5              
6             #use warnings;
7             use strict;
8              
9             BEGIN {
10              
11             sub new {
12             shift if ref $_[1] eq 'HASH';
13             my $i = File::Next::files(@_);
14             return wantarray ? do { my @t; while( my $f = $i->() ){ push @t, $f } @t } : $i;
15             }
16              
17             *files = \&new;
18             *name = \$File::Next::name;
19             *dir = \$File::Next::dir;
20              
21             }
22              
23             1;
24             __END__