Perl/XS 中的面向过程和面向对象的接口

Question

我目前正在编写我的第一个 XS 模块（只是一个围绕 C 数学库的包装器），并取得了不错的成功。最大的问题是文档很难理解和/或不完整。

我已经成功地在 XS 中编写了一个构造函数，并从库中实现了一些函数作为方法调用。这很好用。

现在我也想实现一个程序接口。出于这个原因，我需要知道它是否是方法调用。如果它是一个方法调用，用函数计算的数字存储在实例中，如果它是对函数的过程调用，它的数字作为第一个参数给出。这是余弦函数的当前代码：

double
cos(...)
    CODE:
        SV *arg = newSVsv(ST(0));
        if (sv_isobject(arg)) {
            HV *self_hv = MUTABLE_HV(SvRV(arg));
            SV **callback_ptr = hv_fetchs(self_hv, "Number", 0);
            SV *zahl = *callback_ptr;
        }
        else {
            SV *zahl = newSVnv(arg);
        }

        double x = SvNV(zahl);
        RETVAL = cos(x);
    OUTPUT:
        RETVAL

Answer 1

一般来说，编写旨在被称为方法或函数的 subs 是一个坏主意。有一两个众所周知的模块可以做到这一点（CGI.pm 浮现在脑海中），但在大多数情况下，这会让最终用户感到困惑，并且不必要地使您自己的代码复杂化。没有人会为此感谢你。选择一种风格并坚持下去。

假设您选择坚持使用 OO 编程。然后，一旦您的模块工作并经过测试，您就可以编写第二个模块，提供可导出的功能而不是 OO 接口。第二个模块可能可以用普通的旧 Perl 编写，只是充当 OO 模块的包装器。

例如，使用纯 Perl（而不是 XS）来提高可读性：

use v5.14;

package MyStuff::Maths::OO {
   use Class::Tiny qw(number);
   sub cosine {
      my $self   = shift;
      my $number = $self->number;
      ...;
      return $cosine;
   }
}

package MyStuff::Maths::Functional {
   use Exporter::Shiny qw(cosine);
   sub cosine {
      my $obj = ref($_[0]) ? $_[0] : MyStuff::Maths::OO->new(number => $_[0]);
      return $obj->cosine;
   }
}

现在最终用户可以选择使用您的 OO 界面，如下所示：

use v5.14;
use MyStuff::Maths::OO;

my $obj = MyStuff::Maths::OO->new(number => 0.5);
say $obj->cosine;

或者使用功能接口：

use v5.14;
use MyStuff::Maths::Functional -all;

say cosine(0.5);