=head1 VERSION
-Version 0.01
+Version 0.04
=cut
-our $VERSION = '0.01';
+our $VERSION = '0.04';
=head1 SYNOPSIS
foo->meth; # "'foo'->meth" if you have use'd foo somewhere,
# or "foo()->meth" otherwise
print foo 'wut'; # print to the filehandle foo if it's actually one,
- # or "foo()->print('wut')" otherwise
+ # or "print(foo('wut'))" otherwise
} # ... but function calls will fail at run-time if you don't
# actually define foo somewhere
C<< in => $pkg >>
-Specifies on which package the pragma should act. Defaults to the current package.
+Specifies on which package the pragma should act. Setting C<$pkg> to C<Some::Package> allows you to resolve all functions name of the type C<Some::Package::func ...> in the current scope. You can use the pragma several times with different package names to allow resolution of all the corresponding barewords. Defaults to the current package.
=back
+This module is B<not> a source filter.
+
=cut
BEGIN {
time times truncate uc ucfirst umask undef unlink unpack unshift
untie use utime values vec wait waitpid wantarray warn when
write/;
-push @core,qw/not __LINE__ __FILE__/;
+push @core,qw/not __LINE__ __FILE__ DATA/;
my %core;
@core{@core} = ();
sub _fetch {
(undef, my $data, my $func) = @_;
- return if $data->{guard};
- return unless $func !~ /::/ and not exists $core{$func};
- local $data->{guard} = 1;
+ return if $data->{guard} or $func =~ /::/ or exists $core{$func};
+ $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;
- if (do { no strict 'refs'; not *$fqn{CODE} and not *$fqn{IO}}) {
+ if (do { no strict 'refs'; not *$fqn{CODE} || *$fqn{IO}}) {
my $cb = sub {
my ($file, $line) = (caller 0)[1, 2];
($file, $line) = ('(eval 0)', 0) unless $file && $line;
} 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;
}
{