unbless implementation in Perl?

Question

许多Perl开发人员都知道，unbless用于从对象中删除祝福。
我试图通过调查它的实现来了解它的内部工作原理。
我试图检查它的实现在它的包Data::Structure::Util。来源:

sub unbless {
    unbless_xs( $_[0] );
}

我在哪里可以找到unbless_xs子实现/源?

Answer 1

如果你在metacpan.org上查找Data::Structure::Util你会在左边看到一个浏览链接，可以让你探索发行版的内容

同样适用于任何CPAN模块:不需要下载来检查源代码。在这种情况下，您将发现Util.xs位于结构

的根

如果您愿意，您可以在CPAN站点search.cpan.org上做同样的事情，但是您必须上升到(当前的)Data-Structure-Util-0.16发行版才能找到浏览链接

Answer 2

它是用C实现的，您可以在https://metacpan.org/source/ANDYA/Data-Structure-Util-0.16/Util.xs#L239