不将条件模块加载放在BEGIN
块中有什么问题吗?如果没有BEGIN
块,在预编译后更改环境变量仍然会影响加载哪个模块。
my $table;
#BEGIN {
if %*ENV<TABLE_A> {
require MY_TABLE_A <&get_table>;
$table = get_table();
}
else {
require MY_TABLE_B <&get_table>;
$table = get_width();
}
#}
Run Code Online (Sandbox Code Playgroud)