File Coverage

blib/lib/Lexical/Importer.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	4	6	66.6
condition			n/a
subroutine	9	9	100.0
pod	1	2	50.0
total	46	49	93.8

package Lexical::Importer;
use 5.012;
use warnings;
use strict;

use Lexical::SealRequireHints 0.006;
use Importer 0.013;
use parent 'Importer';

our $VERSION = "0.000004";

require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

our %IMPORTED;

sub import {
    my $class = shift;
    my $from = shift;
    my $into = caller;
    $class->SUPER::import_into($from, $into, \&set_symbol, @_);
}

sub set_symbol {
    my ($name, $ref, %info) = @_;
    push @{$IMPORTED{$info{into}}} => $name if $info{sig} eq '&';
    __PACKAGE__->_import_lex_var("$info{sig}$name" => $ref);
}

sub do_unimport {
    my $self = shift;

    my $from = $self->from;
    my $imported = $IMPORTED{$from} or $self->croak("'$from' does not have any lexical imports to remove");

    my %allowed = map { $_ => 1 } @$imported;

    my @args = @_ ? @_ : @$imported;

    $self->_unimport_lex_sub($_) for @args;
}


1;

__END__