Несущественная реализация в Perl?

Question

Как знают многие Perl-разработчики, unbless используется для удаления благословений с объектов.
Я пытаюсь понять, как это работает внутри, исследуя его реализацию.
Я попытался проверить его реализацию в его пакете Data:: Structure:: Util. Вот источник:

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

Где я могу найти unbless_xs суб реализация / источник?

Answer 1

Это реализовано в C, вы можете проверить источник функции на https://metacpan.org/source/ANDYA/Data-Structure-Util-0.16/Util.xs#L239

Answer 2

Если вы ищете Data::Structure::Util На metacpan.org вы увидите ссылку " Обзор" слева, которая позволит вам изучить содержимое дистрибутива.

То же самое относится и к любому модулю CPAN: для проверки исходного кода не требуется загрузка. В этом случае вы найдете Util.xs в корне структуры

Если вы предпочитаете, вы можете сделать то же самое на сайте CPAN. search.cpan.org но вы должны перейти к (в настоящее время) дистрибутиву Data-Structure-Util-0.16, чтобы найти ссылку для просмотра