view release on metacpan or  search on metacpan

lib/require/relative.pm  view on Meta::CPAN

use strict;
use warnings;

package require::relative;
$require::relative::VERSION = '1.0.0';
use Path::Tiny ();

sub import {
	my ($class, @paths) = @_;
	my ($package, $file) = (caller)[0, 1];

	my $dir = -e $file
		? Path::Tiny->new ($file)->absolute->parent
		: Path::Tiny->cwd
		;

	for my $path (@paths) {
		my $real_path = Path::Tiny->new ($path)->absolute ($dir);

		eval "package $package; require q[$real_path];";