perl - perl ：管理 perl 包/模块中某些功能的切换激活的任何模块

Question

我目前正在开发一个模块，该模块将禁用 Web 应用程序和独立应用程序的某些功能。

最简单的方法是声明全局变量来打开/关闭这些功能：

#### package
package a:Features;

our $F1 = 0;
@EXPORT_OK = (F1);

sub new {
  ..........
  if ( $F1 == 1 ) {
    ...........
    ...........
  } 
}

调用程序

#main Program
use a:Features;
our $F1;
$F1 = 1;

有没有更好的方法或模块可以管理模块/包中的功能？

Answer 1

全局变量的问题在于，一个较大的程序不能多次使用你的模块而不引起远处的恶意行为。

相反，使接口对象化，模块是否作为 Web 应用程序工作的选项进入构造函数。