Alternatively, declare the variable for the compiler. The call to import then assigns the value. This prints 7 (with your A.pm):
#! /usr/bin/env perl
use strict;
use warnings;
our $var;
use lib '.';
require A;
A->import (':all');
print $var . "\n";
| [reply] [d/l] [select] |
Ah, yes, I remember that. However, what if I want to only import $var at runtime? Am I just stuck fully qualifiying it with A::var? And I still don't get why sub1 imports just fine with require and $var doesn't.
| [reply] [d/l] [select] |
require A;
A->import('$var');
eval 'print $var; 1' or warn $@;
> why sub1 imports just fine with require and $var doesn't
Strict checks that variables are declared before you use them. It doesn't check subs when it's sure it's a sub, i.e. when parentheses follow the sub name. Try using sub1 without parentheses: the compiler will only see a bareword, not a sub call, and will complain.
Update: reworded.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
| [reply] [d/l] [select] |
| [reply] |