view release on metacpan or  search on metacpan

FindLib.pm  view on Meta::CPAN

        if  ! -d _;
    while(  1  ) {
        my $find= catdir( $dir, $upto );
        if(  -e $find  ) {
            my $path= catdir( $dir, $add );
            if(  -d $path  ) {
                require lib;
                lib->import( $path );
                return $path;
            }
            my $ret= require $path;
            UpdateInc( $path );
            return $ret;
        }
        my $up= dirname( $dir );
        die "$Pkg can't find $find in ancestor directory of $from.\n"
            if  $up eq $dir;
        $dir= $up;
    }
}

t/sub/dir/subScript  view on Meta::CPAN

use File::FindLib 'Sub/Find.pm';
print $Sub::Find::VERSION, $/;
my $ret= require Sub::Find;
print "$ret $Sub::Find::loaded\n";