(undef, my $data, my $func) = @_;
return if $data->{guard};
return unless $func !~ /::/ and not exists $core{$func};
- local $data->{guard} = 1;
+ $data->{guard} = 1;
my $hints = (caller 0)[10];
- if ($hints and $hints->{bareword}) {
+ if ($hints and $hints->{subs__auto}) {
my $mod = $func . '.pm';
if (not exists $INC{$mod}) {
my $fqn = $data->{pkg} . '::' . $func;
} else {
_reset($data->{pkg}, $func);
}
+ $data->{guard} = 0;
return;
}
sub _store {
(undef, my $data, my $func) = @_;
return if $data->{guard};
- local $data->{guard} = 1;
+ $data->{guard} = 1;
_reset($data->{pkg}, $func);
+ $data->{guard} = 0;
return;
}
my %args = @_;
my $cur = (caller 1)[0];
my $in = _validate_pkg $args{in}, $cur;
- $^H{bareword} = 1;
+ $^H{subs__auto} = 1;
++$pkgs{$in};
no strict 'refs';
cast %{$in . '::'}, $wiz, $in;
}
sub unimport {
- $^H{bareword} = 0;
+ $^H{subs__auto} = 0;
}
{