10 subs::auto - Read barewords as subroutine names.
27 foo; # Compile to "foo()" instead of "'foo'"
28 # or croaking on strict subs
29 foo $x; # Compile to "foo($x)" instead of "$x->foo"
30 foo 1; # Compile to "foo(1)" instead of croaking
31 foo 1, 2; # Compile to "foo(1, 2)" instead of croaking
33 foo->meth; # "'foo'->meth" if you have use'd foo somewhere,
34 # or "foo()->meth" otherwise
35 print foo 'wut'; # print to the filehandle foo if it's actually one,
36 # or "print(foo('wut'))" otherwise
37 } # ... but function calls will fail at run-time if you don't
38 # actually define foo somewhere
44 This pragma lexically enables the parsing of any bareword as a subroutine name, except those which corresponds to an entry in C<%INC> (expected to be class names) or whose symbol table entry has an IO slot (expected to be filehandles).
46 You can pass options to C<import> as key / value pairs :
54 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.
58 This module is B<not> a source filter.
66 use Variable::Magic 0.31 qw/wizard cast dispell getdata/;
69 unless (Variable::Magic::VMG_UVAR) {
71 Carp::croak('uvar magic not available');
74 XSLoader::load(__PACKAGE__, $VERSION);
79 @B::Keywords::Barewords,
80 @B::Keywords::Functions,
83 delete @core{qw/my local/};
86 *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ($] < 5.011002 ? 0 : 1) . '}'
89 my $tag = wizard data => sub { \(my $data = _REFCNT_PLACEHOLDERS ? 2 : 1) };
92 my $fqn = join '::', @_;
100 if ($cb and defined(my $data = getdata(&$cb, $tag))) {
102 return if $$data > 0;
109 (undef, my $data, my $name) = @_;
111 return if $data->{guard};
112 local $data->{guard} = 1;
114 return if $name =~ /::/
115 or exists $core{$name};
117 my $op_name = $_[-1] || '';
118 return if $op_name =~ /method/;
120 my $pkg = $data->{pkg};
122 my $hints = (caller 0)[10];
123 if ($hints and $hints->{+(__PACKAGE__)}) {
124 my $pm = $name . '.pm';
125 return if exists $INC{$pm};
127 my $fqn = $pkg . '::' . $name;
128 my $cb = do { no strict 'refs'; *$fqn{CODE} };
130 if (_REFCNT_PLACEHOLDERS and defined(my $data = getdata(&$cb, $tag))) {
135 return if do { no strict 'refs'; *$fqn{IO} };
138 my ($file, $line) = (caller 0)[1, 2];
139 ($file, $line) = ('(eval 0)', 0) unless $file && $line;
140 die "Undefined subroutine &$fqn called at $file line $line\n";
154 (undef, my $data, my $name) = @_;
156 return if $data->{guard};
157 local $data->{guard} = 1;
159 _reset($data->{pkg}, $name);
164 my $wiz = wizard data => sub { +{ pkg => $_[1], guard => 0 } },
167 op_info => Variable::Magic::VMG_OP_INFO_NAME;
176 [A-Za-z_][A-Za-z0-9_]*
177 (?:::[A-Za-z_][A-Za-z0-9_]*)*
183 my ($pkg, $cur) = @_;
185 return $cur unless defined $pkg;
187 if (ref $pkg or $pkg !~ $pkg_rx) {
189 Carp::croak('Invalid package name');
193 $pkg = $cur . $pkg if $pkg eq '' or $pkg =~ /^::/;
201 Carp::croak('Optional arguments must be passed as keys/values pairs');
205 my $cur = (caller 1)[0];
206 my $in = _validate_pkg $args{in}, $cur;
210 cast %{$in . '::'}, $wiz, $in;
213 $^H{+(__PACKAGE__)} = 1;
220 $^H{+(__PACKAGE__)} = 0;
227 dispell %{$_ . '::'}, $wiz for keys %pkgs;
237 C<*{'::foo'}{CODE}> will appear as defined in a scope where the pragma is enabled, C<foo> is used as a bareword, but is never actually defined afterwards. This may or may not be considered as Doing The Right Thing. However, C<*{'::foo'}{CODE}> will always return the right value if you fetch it outside the pragma's scope. Actually, you can make it return the right value even in the pragma's scope by reading C<*{'::foo'}{CODE}> outside (or by actually defining C<foo>, which is ultimately why you use this pragma, right ?).
239 You have to open global filehandles outside of the scope of this pragma if you want them not to be treated as function calls. Or just use lexical filehandles and default ones as you should be.
241 This pragma doesn't propagate into C<eval STRING>.
247 L<Variable::Magic> with C<uvar> magic enabled (this should be assured by the required perl version).
251 L<Carp> (standard since perl 5), L<XSLoader> (since 5.006).
255 Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.
257 You can contact me by mail or on C<irc.perl.org> (vincent).
261 Please report any bugs or feature requests to C<bug-subs-auto at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=subs-auto>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
265 You can find documentation for this module with the perldoc command.
269 Tests code coverage report is available at L<http://www.profvince.com/perl/cover/subs-auto>.
271 =head1 ACKNOWLEDGEMENTS
273 Thanks to Sebastien Aperghis-Tramoni for helping to name this pragma.
275 =head1 COPYRIGHT & LICENSE
277 Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
279 This program is free software; you can redistribute it and/or modify it
280 under the same terms as Perl itself.
284 1; # End of subs::auto