阻止 Perl XS 模块默默地回退到纯 Perl

Question

看起来 CPAN 上的一些（很多？）模块部分是使用 XS 在 C 中实现的，并且如果需要的话可以回退到纯 Perl 实现。虽然这很聪明，但它显然会损害性能，我想知道它是否发生，以便我可以解决问题。

是否有一种通用方法可以阻止或检测这种类型的后备？

有关此行为的示例，请查看（非常方便）Date::Simple (< a href="http://p3rl.org/8746IHPL" rel="nofollow noreferrer">代码片段）

Answer 1

任何解决方案都必须以每个模块为基础（因为使用哪个实现的决定是由父模块本身决定的，而不是 Perl 中的某些机制）。在您引用的情况下，在 use 语句之后检查 $Date::Simple::NoXs 的值将告诉您是否正在使用 XS。

use Date::Simple;
die "not using XS for Date::Simple\n" if $Date::Simple::NoXs;

例如，要检测 Scalar::Util 是否使用 XS 或纯 Perl 版本，您必须检查 Dualvar 函数是否存在。

use Scalar::Util;
die "not using XS for Scalar::Util\n" unless if @Scalar::Util::EXPORTFAIL;

Answer 2

这是一个非常好的功能请求。不幸的是，由于缺少模块作者所编写的内容，perl 不知道该模块是否具有 XS 或 Pure Perl (PP) 变体以及引擎是否通过回退加载。

您提出的这个示例由于它们被打包在同一发行版和模块中而变得更加复杂，并且这一切都是在内部完成的。我将对其进行修补以遵循 CPAN 约定：DateSimple，它需要 DateSimple::PP 并推荐 DateSimple::XS。这就是 Text::CSV，其他人也这样做。此方法允许直接使用 ::XS 构造函数来强制使用 XS，同时甚至不安装 pureperl 变体。或者，您可以将它们打包在一起 - 这就是 Template::Stash 与 模板::Stash::XS。实现统一的第一步是获得临时功能。

如果所有模块都引入一个 Moose::Role 并提供一些基本属性 _xs_class_name、_pp_class_name、和engine_override。但是，到目前为止，还没有任何东西可以提供统一的 API 来实现这一目标。

Answer 3

有一种通用方法可以检测您的函数是否为 XSUB CV。
只需检查 CV 的 XSUB 槽是否返回非 NULL 指针即可。

例如检查 My::func

sub isxsub {
    use B;
    my $name = shift;
    my $cv = B::svref_2object(\&$name);
    return !!$cv->XSUB;
}