File Coverage

blib/lib/RepRoot.pm

Criterion	Covered	Total	%
statement	19	26	73.0
branch	2	14	14.2
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	26	45	57.7

package RepRoot;

use File::Spec;
use FindBin  qw( $RealBin );

use strict;
use warnings;

our $VERSION = '0.02';

BEGIN {

    # figure out full absolute path of executable and split into components
    my ( $volume, $directories, $file ) = File::Spec->splitpath( $RealBin, 1 );
    my @directories = File::Spec->splitdir( $directories );

    # keep searching up the path till you hit root or find the .reproot file
    while ( @directories ) {
        # assemble next possible .reproot path
        my $reproot_file = File::Spec->catpath( $volume, File::Spec->catdir( @directories ), '.reproot' );

        # check for existence of .reproot file
        if ( -e $reproot_file ) {

            # we found the root!
            $RepRoot::ROOT = File::Spec->catpath( $volume, File::Spec->catdir( @directories ) );

            # if the file has a non-zero size, execute it
            if ( -s $reproot_file ) {
                unless ( my $return = do $reproot_file ) {
                    die "couldn't parse $reproot_file: $@" if $@;
                    die "couldn't do $reproot_file: $!"    unless defined $return;
                    die "couldn't run $reproot_file"       unless $return;
                }
            }

            # we're done!
            last;
        }

        # didn't find it; move up a level and try again
        pop( @directories );
    }

    # throw exception if no .reproot file found
    die "couldn't find repository root (indicated by existence of '.reproot' file)" unless defined $RepRoot::ROOT;

}

1;

__END__