File Coverage

blib/lib/exact/me.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	6	8	75.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	1	1	100.0
total	48	54	88.8

package exact::me;
# ABSTRACT: Original program path locations extension for exact

use 5.014;
use exact;
use strict;
use FindBin;

our $VERSION = '1.04'; # VERSION

sub import {
    my ( $self, $caller ) = @_;
    $caller //= caller();

    {
        no strict 'refs';
        *{ $caller . '::me' } = \&me unless ( defined &{ $caller . '::me' } );
    }
}

sub me {
    my ($path) = @_;

    unless ($path) {
        return $FindBin::Bin;
    }
    elsif ( index( $path, '.', 0 ) == 0 ) {
        return $FindBin::Bin . '/' . $path;
    }
    else {
        return _find_dir($path);
    }

    return;
}

sub _find_dir {
    my ($suffix) = @_;

    my @search_path = split( '/', $FindBin::Bin );
    while ( @search_path > 0 ) {
        my $dir = join( '/', @search_path, $suffix );
        return $dir if ( -d $dir );
        pop @search_path;
    }

    return;
}

1;

__END__