创建可传递use strict的模块

如果有一个要多次使用的模块，在文件中一般需要加入
use strict;
use warnings;
use Module_Name;

为了简化程序，可以将use strict和use warnings放到模块中传递
代码如下

package ABC;
use strict;
use warnings;
use base 'Exporter';
sub import{
 strict->import;
 warnings->import;
  __PACKAGE__->export_to_level(1, @_);
}
1;

#!/usr/bin/perl 
use feature ":5.10";
use ABC;

$undefined_var = "undefined var";

$ perl test.pl
Global symbol "$undefined_var" requires explicit package name at test.pl line 5.

Execution of test.pl aborted due to compilation errors.