File Coverage

blib/lib/namespace/lexical.pm

Criterion	Covered	Total	%
statement	33	36	91.6
branch	4	8	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	1	1	100.0
total	46	55	83.6

use 5.009003;
use strict;
use warnings;

package namespace::lexical;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.001';

use Package::Stash ();

BEGIN {
	if (eval { require Lexical::Sub; 1 }) {
		*_LEXICAL_SUB_CLASS          = sub () { 'Lexical::Sub' };
		*_LEXICAL_SUB_IMPORT_METHOD  = sub () { 'import' };
	}
	else {
		require Lexical::Importer;
		*_LEXICAL_SUB_CLASS          = sub () { 'Lexical::Importer' };
		*_LEXICAL_SUB_IMPORT_METHOD  = sub () { '_import_lex_sub' };
	}
}

sub import {
	my $class = shift;
	my $for = caller;
	my $stash = 'Package::Stash'->new($for);
	my $subs = $stash->get_all_symbols('CODE');
	for my $name (sort keys %$subs) {
		$class->lexicalize($stash, $name, $subs->{$name});
	}
	return;
}

sub lexicalize {
	my $class = shift;
	my ($stash, $name, $coderef) = @_;
	if (defined $stash) {
		$stash = 'Package::Stash'->new($stash) unless ref $stash;
		$coderef ||= $stash->get_symbol('&'.$name);
		$stash->remove_symbol('&'.$name);
	}
	die "coderef plz" unless defined $coderef;
	_LEXICAL_SUB_CLASS->${\ _LEXICAL_SUB_IMPORT_METHOD }($name, $coderef);
	return;
}

1;

__END__