寫入用於條件OO模塊加載的封裝模塊的正確方法是什麼？

Question

我應該使用哪種方式？

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'; 

Answer 1

個人而言，我會用第一種方法去。創建一個有時繼承父類，有時繼承另一個類的類，對我來說似乎有點骯髒。它肯定會工作，但它會混淆類分析工具（如Pod::Coverage::CountParents）沒有結束。

也就是說，我可能會將sub new重命名爲new_by_platform之類的東西。有強烈的期望My_Module->new將返回My_Module類型的對象。讓它返回另一個類的對象可能會讓人困惑。 （雖然如果My_Module::Win32和My_Module::Linux繼承自My_Module，那麼命名它new好像不那麼糟糕。）

Answer 2

2 - 使用父母是更好的方式去做它。

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