use B::Keywords;
-use Variable::Magic qw/wizard cast dispell getdata/;
+use Variable::Magic 0.31 qw/wizard cast dispell getdata/;
BEGIN {
unless (Variable::Magic::VMG_UVAR) {
sub _fetch {
(undef, my $data, my $func) = @_;
- return if $data->{guard} or $func =~ /::/ or exists $core{$func};
+ return if $data->{guard};
local $data->{guard} = 1;
+ return if $func =~ /::/
+ or exists $core{$func};
+
+ my $op_name = $_[-1] || '';
+ return if $op_name =~ /method/;
+
+ my $pkg = $data->{pkg};
+
my $hints = (caller 0)[10];
if ($hints and $hints->{+(__PACKAGE__)}) {
my $pm = $func . '.pm';
return if exists $INC{$pm};
- my $fqn = $data->{pkg} . '::' . $func;
+ my $fqn = $pkg . '::' . $func;
my $cb = do { no strict 'refs'; *$fqn{CODE} };
if ($cb) {
if (_REFCNT_PLACEHOLDERS and defined(my $data = getdata(&$cb, $tag))) {
no strict 'refs';
*$fqn = $cb;
} else {
- _reset($data->{pkg}, $func);
+ _reset($pkg, $func);
}
return;
return;
}
-my $wiz = wizard data => sub { +{ pkg => $_[1], guard => 0 } },
- fetch => \&_fetch,
- store => \&_store;
+my $wiz = wizard data => sub { +{ pkg => $_[1], guard => 0 } },
+ fetch => \&_fetch,
+ store => \&_store,
+ op_info => Variable::Magic::VMG_OP_INFO_NAME;
my %pkgs;
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.
+This pragma doesn't propagate into C<eval STRING>.
+
=head1 DEPENDENCIES
L<perl> 5.10.0.
=head1 COPYRIGHT & LICENSE
-Copyright 2008 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.