File Coverage

blib/lib/Test/Lib.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	40	42	95.2

package Test::Lib;
use strict;
use warnings;

our $VERSION = '0.002';
$VERSION = eval $VERSION;

use File::Spec;
use Cwd ();
use lib ();

sub import {
    my $class = shift;
    my $dir = shift;
    if (! defined $dir) {
        my $file = File::Spec->rel2abs((caller)[1]);
        $dir = File::Spec->catpath((File::Spec->splitpath($file))[0,1], '');
    }
    for my $i (0..5) {
        my $tdir = File::Spec->catdir($dir, (File::Spec->updir) x $i);
        my $abs_path = Cwd::abs_path($tdir);
        my $dirname = (File::Spec->splitdir($abs_path))[-1];

        if ($dirname eq 't') {
            my $tlib = File::Spec->catdir($tdir, 'lib');
            if (-d $tlib) {
                lib->import($tlib);
                return;
            }
        }
    }
    die "unable to find t/lib directory in $dir";
}

1;

__END__