为什么此方案会出现错误“C3 合并期间层次结构不一致”？

Question

use parent qw<File::Spec::Unix File::Spec::Win32>;

如果有的话，我能做些什么呢？

• 好的，我知道 Win32 继承自 Unix，但调度是 Win32 -> Unix 并且我希望将 Unix 实现作为默认值，直到我重写它并分派给我自己的 Win32 实现。

• 我也明白，因为 File::Spec::x 只是传递类名，所以继承不是一个大问题，但我不得不想知道如果我真的需要一些类会发生什么以这种方式协调。

Answer 1

从概念上讲，这是没有意义的。您没有 Unix 路径和 Windows 路径。

实际上，这也没有意义。 ::Win32 中没有 ::Unix 中没有的函数。

File::Spec 已经滥用了继承，而您又向前迈进了一步。这里不需要继承！

无论如何，这相当于你所拥有的，减去错误：

use parent qw( File::Spec::Unix );
use File::Spec::Win32 qw( ); 

sub isa {
    my ($self, $class) = @_;
    return $class eq 'File::Spec::Win32' || $self->SUPER::isa($class);
}

Answer 2

如果您想要的是在一般和专门使用 File::Spec::Win32 时默认为 File::Spec::Unix，则您不想使用多重继承。 File::Spec::Unix 已经继承自 File::Spec::Win32，因此您已经设置了 C3 不想解析的（大部分）钻石继承。

   Unix
   /  \
Win32  |
   |   |
  YourCode

您只需从 File::Spec::Unix 继承，然后根据需要使用 File::Spec::Win32 即可。

package My::FileSpec;

use parent qw(File::Spec::Unix);
require File::Spec::Win32;

sub devnull {
    my $class = shift;
    return $class->File::Spec::Win32(@_);
}

如果你想变得聪明，你可以消除包装方法。

*devnull = File::Spec::Win32->can("devnull");

最后，您可以将其放入循环中以避免重复。

my @Win32_Methods = qw(devnull tmpdir);
for my $method (@Win32_Methods) {
    my $code = File::Spec::Win32->can($method);
    die "File::Spec::Win32->$method does not exist" unless $code;

    no strict 'refs';
    *{$method} = $code;
}

您可以覆盖 isa 来声明您是 File::Spec::Win32 以及 File::Spec::Unix，但这并不是真的，并且可能会更令人困惑而不是有用，因为您的类仅对于少数方法的行为类似于 Win32。另外，File::Spec 没有对象，因此它实际上不会出现。

无需重写 can，它将返回正确的代码引用。