File Coverage

blib/lib/Dir/Self.pm

Criterion	Covered	Total	%
statement	25	32	78.1
branch	2	6	33.3
condition	1	2	50.0
subroutine	7	9	77.7
pod			n/a
total	35	49	71.4

package Dir::Self;

$VERSION = '0.11';

use 5.005;
use strict;

use File::Spec ();


sub __DIR__ () {
	my $level = shift || 0;
	my $file = (caller $level)[1];
	File::Spec->rel2abs(join '', (File::Spec->splitpath($file))[0, 1])
}

sub _const {
	my $value = shift;
	sub () { $value }
}

sub import {
	my $class = shift;
	my $caller = caller;

	@_ or @_ = '__DIR__';

	for my $item (@_) {
		if ($item eq '__DIR__') {
			no strict 'refs';
			*{$caller . '::__DIR__'} = \&__DIR__;
		} elsif ($item eq ':static') {
			no strict 'refs';
			*{$caller . '::__DIR__'} = _const &__DIR__(1);
		} else {
			require Carp;
			Carp::croak(qq{"$item" is not exported by the $class module});
		}
	}
}

1
__END__