通常在我编写perl程序时.我曾经包括以下包.
use strict ; use warnings ; use Data::Dumper ;
现在,我想这样,我不会为每个程序包含所有这个包.为了那个原因
我将在我自己的包装中包含这些所有包装.喜欢以下
my_packages.pm
package my_packages ;
{
use strict ;
use warnings ;
use Data::Dumper;
}
1;
所以,如果我在perl程序中添加my_packages.pm,它需要拥有以上所有的包.
其实我做过这个实验.但我无法得到这些东西.
这意味着当我使用my_packages时.我无法获得“使用严格,使用警告,使用Data :: Dumper”的功能.
有人帮我解决了这个问题…..
解决方法
看看
ToolSet,它可以为您完成所有脏的导入工作.
pod中的用法示例：
创建工具集：
# My/Tools.pm
package My::Tools;
use base 'ToolSet';
ToolSet->use_pragma( 'strict' );
ToolSet->use_pragma( 'warnings' );
ToolSet->use_pragma( qw/feature say switch/ ); # perl 5.10
# define exports from other modules
ToolSet->export(
'Carp' => undef,# get the defaults
'Scalar::Util' => 'refaddr',# or a specific list
);
# define exports from this module
our @EXPORT = qw( shout );
sub shout { print uc shift };
1; # modules must return true
使用工具集：
use My::Tools; # strict is on # warnings are on # Carp and refaddr are imported carp "We can carp!"; print refaddr []; shout "We can shout,too!";
/ I3az /