File Coverage

blib/lib/File/Next/OO.pm

Criterion	Covered	Total	%
statement	19	23	82.6
branch	6	8	75.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	32	38	84.2

package File::Next::OO;

$VERSION = '0.04';
use File::Next 0.38;

#use warnings;
use strict;

BEGIN {

  sub new {
    shift if ref $_[1] eq 'HASH';
    my $i = File::Next::files(@_);
    return wantarray ? do { my @t; while( my $f = $i->() ){ push @t, $f } @t } : $i;
  }

  *files = *new;
  *name  = *File::Next::name;
  *dir   = *File::Next::dir;

  sub dirs {
    shift if ref $_[1] eq 'HASH';
    my $i = File::Next::dirs(@_);
    return wantarray ? do { my @t; while( my $f = $i->() ){ push @t, $f } @t } : $i;
  }

}

1;
__END__