package lib::lexical;
our @SAVEINC = @INC;
our @LOCALINC = @INC;

sub work {
  my $flag = shift();
  my $method = $flag ? 'import' : 'unimport';
  my $p = shift;                # PACKAGE
  if (! $p and ! $flag) { # plain 'no lib::lexical;'
    @LOCALINC = @SAVEINC unless $p; # restore to original @INC
    return;
  }
  if ($flag) { # prepend @paths to @INC
    unshift @LOCALINC, @_;
  } else {     # weed out @paths from @INC
    my %i;
    @i{@_} = (1) x @_;
    @LOCALINC = grep { ! $i{$_} } @LOCALINC;
  }
  local @INC = @LOCALINC;
  warn $_,$/ for @INC;
  (my $file = "$p.pm") =~ s!::!/!g;
  require $file;
  my $m = $p->can($method);
  goto &$m if $m;
}

sub import   { shift; unshift @_, 1; goto &work }
sub unimport { shift; unshift @_, 0; goto &work }

1;
__END__