我如何访问Perl模块中正在导入的变量

Question

我希望能够做这样的事情：

use Foo::Bar $baz, qw/one two three/;

然后，在包装中

package Foo::Bar;
# probably do something magic here
sub do_something {
     # access $baz and 'one', 'two' and 'three' 
}

我记得看到它在模块中完成，并认为这是一件很酷的事情。现在我想自己做，再也找不到模块了。

我该怎么做？

Answer 1

，要将数据传递给模块，您需要编写自己的import sub，如下示例中。

---

# Foo.pm
package Foo;
use Data::Dumper;
sub import {
    my $package = shift;
    my @data = @_;
    print STDERR Dumper @data;
}
1;

# foo.pl
use Foo qw/hello world/;

---

$VAR1 = [
          'hello',
          'world'
        ];