The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Bio::Gonzales::Util::Development::File - Helper functions for all filesystem related tasks

SYNOPSIS

    use Bio::Gonzales::Util::Development::File qw/find_root/;

    # find git root dir
    my $root = find_root({location => '.', dirs => [ '.git ]});

SUBROUTINES

$project_root_directory = find_root({location => $location, dirs => \@dirs, files => \@files})

Starts at $location and stops if the current or parent dir contains all of the directories specified by @dirs and all of the files specified by @files. Returns the dir where stopped or nothing/undef if not successful

SEE ALSO

-

AUTHOR

jw bargsten, <joachim.bargsten at wur.nl>