代码之家 › 专栏 › 技术社区 › sid_com

为条件OO模块加载编写包装器模块的正确方法是什么?

overhead perl-module portability oop perl

sid_com · 技术社区 · 11 年前

我应该用哪种方式?

package My_Module;

# way one
my $package = $^O eq 'MSWin32' ? 'My_Module::Win32' : 'My_Module::Linux';
sub new {
    my $class = shift;
    return $package->new( @_ );
}

# way two
use parent $^O eq 'MSWin32' ? 'My_Module::Win32' : 'My_Module::Linux';

2 回复 | 直到 11 年前

tobyink 11 年前

就我个人而言,我会采用第一种技术。创建一个有时从一个父类继承,有时从另一个父级继承的类,我觉得有点脏工作当然,但它会混淆类分析工具(如 Pod::Coverage::CountParents )没有尽头。

也就是说,我可能会重新命名 sub new 像这样 new_by_platform 。人们强烈期望 My_Module->new 将返回类型为的对象 My_Module 。让它返回另一类的对象可能会使人困惑。(尽管如果 My_Module::Win32 和 My_Module::Linux 继承自 我的模块(_M) ,然后命名 new 似乎没那么糟糕。)

Community CDub 4 年前

使用父母是更好的方法。

http://lo-f.at/glahn/2009/08/useBaseAnduseParent.html

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

2 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

2 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

2 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

3 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前