perl – 如何将我的包导入分组到一个自定义包中？

发布时间：2020-12-15 22:06:21 所属栏目：大数据来源：网络整理

导读：通常在我编写perl程序时.我曾经包括以下包. use strict ; use warnings ; use Data::Dumper ; 现在,我想这样,我不会为每个程序包含所有这个包.为了那个原因我将在我自己的包装中包含这些所有包装.喜欢以下 my_packages.pm package my_packages ; {use stric

通常在我编写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 /

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!