File Coverage

blib/lib/rlib.pm

Criterion	Covered	Total	%
statement	29	33	87.8
branch	5	6	83.3
condition			n/a
subroutine	7	8	87.5
pod			n/a
total	41	47	87.2

package rlib;

use strict;
use vars qw($VERSION @ISA);
use lib ();
use File::Basename qw(dirname);
use File::Spec;

$VERSION = "0.02";
@ISA = qw(lib);

sub _dirs {
    my($pkg,$file) = (caller(1))[0,1];
    my @rel = @_ ? @_ : qw(../lib lib);
    my $dir;

    # if called from package main then assume we were called
    # by a script not a module

    if($pkg eq 'main') {
	require FindBin;
	# hide "used only once" warning
	$dir = ($FindBin::Bin,$FindBin::Bin)[0];
    }
    else {
	require Cwd;
	$dir = Cwd::abs_path(dirname($file));
    }

    # If we were called by a package then traverse upwards
    # to root of lib

    while($pkg =~ /::/g) {
	$dir = dirname($dir);
    }

    if($^O eq 'VMS') {
	require VMS::Filespec;
	@rel = map { VMS::Filespec::unixify($_) } @rel;
    }

    map { File::Spec->catdir($dir,$_) } @rel;
}

sub import {
    shift->SUPER::import( _dirs(@_) );
}

sub unimport {
    shift->SUPER::unimport( _dirs(@_) );
}

1;

__END__