File Coverage

blib/lib/File/Find/Upwards.pm

Criterion	Covered	Total	%
statement	44	45	97.7
branch	7	8	87.5
condition			n/a
subroutine	11	11	100.0
pod			n/a
total	62	64	96.8

use 5.008;
use strict;
use warnings;

package File::Find::Upwards;
BEGIN {
  $File::Find::Upwards::VERSION = '1.102030';
}
# ABSTRACT: Look for a file in the current directory and upwards
use Path::Class;
use Attribute::Memoize;
use Exporter qw(import);
our @EXPORT = qw(file_find_upwards find_containing_dir_upwards);

sub file_find_upwards : Memoize {
    my @wanted_files = @_;
    my $dir         = dir('.')->absolute;
    my %seen;
    my $result;    # left undef as we'll return undef if we didn't find it
  LOOP: {
        do {
            last if $seen{$dir}++;
            for my $wanted_file (@wanted_files) {
                my $file = $dir->file($wanted_file);
                if (-e $file) {
                    $result = $file->absolute;
                    last LOOP;
                }
            }
        } while ($dir = $dir->parent);
    }
    $result;
}

sub find_containing_dir_upwards : Memoize {
    my @wanted_files = @_;
    my $dir         = dir('.')->absolute;
    my %seen;
    do {
        last if $seen{$dir}++;
        for my $wanted_file (@wanted_files) {
            return $dir if -e $dir->file($wanted_file);
        }
    } while ($dir = $dir->parent);
    undef;
}
1;


__END__