如何使用require从导出器Perl模块导入符号？

Question

我喜欢符号来自Exporter驱动Perl模块使用require而不是use。 Perl不知道他刚输入的变量。

Perl模块，样本：

package TheModule; 
use strictures; 
use base 'Exporter'; 
use Const::Fast qw(const); 
const our $TEST_VAR_1 => 'Test variable 1'; 
our @EXPORT_OK = qw($TEST_VAR_1); 
our %EXPORT_TAGS = (TEST_VAR => [qw($TEST_VAR_1)]); 

Perl脚本样本

#!/usr/bin/perl 
use strictures; 
require TheModule; 
TheModule->import(':TEST_VAR'); 
printf "Test variable 1 contains: %s\n", $TEST_VAR_1; 

下面的例子作品，但我不得不使用require而不是use。

#!/usr/bin/perl 
use strictures; 
use TheModule (':TEST_VAR'); 
printf "Test variable 1 contains: %s\n", $TEST_VAR_1; 

如何将require环境中导入$TEST_VAR_1？

Answer 1

our @EXPORT_TAGS应该是our %EXPORT_TAGS。 :)

---

好的，还有其他的错误。在编译时，当

printf "Test variable 1 contains: %s\n", $TEST_VAR_1; 

正在转化为OPS，$TEST_VAR_1不在该范围存在，因为

TheModule->import(':TEST_VAR'); 

仅在运行时执行。所以，除非你在你的要求和导入周围放置一个BEGIN{}，这是行不通的。