File Coverage

blib/lib/Import/Export.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	18	18	100.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	68	68	100.0

package Import::Export;

use Carp;
use namespace::clean ();

our $VERSION = '0.06';

our %EX;

our %EXTYPE = (
	'&' => \&_export_code,
	'$' => \&_export_scalar,
	'@' => \&_export_array,
	'%' => \&_export_hash,
	'*' => \&_export_glob,
);

sub import {
	my ($pkg) = shift;
	return unless my @export = @_;
	my $options = pop @export if ref $export[-1];

	Carp::croak('define your %EX export hash')
		unless (%EX) = %{"${pkg}::EX"};

	my $caller = caller();
	my @exported = export($pkg, $caller, @export);

	'namespace::clean'->import(
		-cleanee => $caller,
		@exported,
	) if $options->{clean};
}

sub export {
	my ($pkg, $caller, @exported) = (shift, shift);
	while (my $ex = shift) {
		my $type;
		if ( ! $EX{$ex} ) {
		 	my @export = grep {
				grep { $_ =~ m{\Q$ex\E} } @{ $EX{$_} }
			} keys %EX;
			scalar @export
				? return export($pkg, $caller, (@export, @_))
				: Carp::croak "$ex is not exported";
		}

		$type = ($ex =~ s/^(\W)//) ? $1 : "&";
		$caller->can($ex) and next;

		my $exporting = $EXTYPE{$type} or Carp::croak("Cant export symbol $type");
		*{"${caller}::${ex}"} = $exporting->($pkg, $ex);
		push @exported, $ex;
	}
	return @expoted;
}

sub _export_code { \&{"$_[0]::$_[1]"} }
sub _export_scalar { \${"$_[0]::$_[1]"} }
sub _export_array { \@{"$_[0]::$_[1]"} }
sub _export_hash { \%{"$_[0]::$_[1]"} }
sub _export_glob { *{"$_[0]::$_[1]"} }

1;

__END__