如何使方法成为“最终”方法在 Perl 中？

Question

我想知道是否可以确保我创建的类中的方法不会被猴子修补（猴子修补） 。穆斯能做到这一点吗？

考虑以下几点：

{
  package Foo;
  sub hello{print "HI"}
1;
}

package main;
sub Foo::hello {print "bye"}

Foo::hello()#bye

Answer 1

经过快速的网络研究后，我发现 Perlmonks 上的这个线程指出：

至于将方法声明为final，我不确定如果不做一些非常奇特的事情来拦截符号表中的所有添加，您将如何做到这一点。 （这可以做到吗？）。

我也认为这是不可能的。

使用 Moose，您可以应用方法修饰符允许您定义必须在调用函数之前运行的函数。
我还没有尝试过这个，但也许你可以定义一个函数，

before "hello" => sub{ # check if hello has been tampered with
                   }

我不知道如何检查它以及它是否有效，但看起来值得一试！

不过我想补充一点，由于 perl 是一种解释语言，任何使用你的包的人都可以查看和编辑源代码，从而可以规避任何预防措施。

Answer 2

Perl 不太喜欢 final 子例程的概念，但您可以尝试。给出以下内容：

BEGIN {
    package final;
    $INC{'final.pm'}++;
    use Variable::Magic qw(wizard cast);
    sub import {
        my (undef, $symbol) = @_;
        my ($stash, $name)  = $symbol =~ /(.+::)(.+)/;
        unless ($stash) {
            $stash  = caller().'::';
            $name   = $symbol;
            $symbol = $stash.$name;
        }
        no strict 'refs';
        my $glob = \*$symbol;
        my $code = \&$glob;
        my ($seen, @last);

        cast %$stash, wizard store => sub {
            if ($_[2] eq $name and $code != \&$glob) {
                print "final subroutine $symbol was redefined ".
                      "at $last[1] line $last[2].\n" unless $seen++
            }
            @last = caller
        }
    }
}

然后您可以编写：

use warnings;
use strict;
{
    package Foo;
    sub hello {print "HI"}
    use final 'hello';
}

package main;
no warnings;
sub Foo::hello {print "bye"}

Foo::hello();

它将打印类似以下内容：

final subroutine Foo::hello was redefined at filename.pl line 9.
bye

警告是在第一次调用重新定义的子例程之前打印的，而不是在实际重新定义它时打印的（由于 perl 和 Variable::Magic 方式的限制）工作）。但总比没有好。

no warnings; 在那里，因为当重新定义子例程时，perl 通常会抛出警告。因此，也许告诉您的用户使用警告就足够了。正如拉里所说：

Perl 并不热衷于强制隐私。它会
我宁愿你呆在客厅外面，因为你不是
被邀请，不是因为它有猎枪。

Answer 3

这是我在问题评论中所写的禁用猴子补丁的解决方案。

#./FooFinal.pm
package FooFinal;
use strict;
use warnings;
sub import { warnings->import(FATAL => qw(redefine)); }
sub hello { print "HI" }
1;

#./final_test.pl
#!/usr/bin/env perl
use strict;
use warnings;
use FooFinal;
sub FooFinal::hello {print "bye".$/}

FooFinal->hello();#bye

print 'still living!!!'

结果是 ./final_test.pl 在打印“仍然活着！！！”之前就死掉了。
是的，这使得所有方法“不可修补”，但仍然允许继承/扩展模块。
是的，该模块的用户可以随时更改其酸味或说“无警告”:)
但我们还是大声说“不邀请你！”

也许问题标题应该是“如何在 Perl 中禁用 Monkey Patching？”...
也许通过更多地阅读 perlexwarn 我们甚至可以实现最终的功能......

Answer 4

致命的重新定义警告会给你你想要的。
但它无法实现语言实现者希望能够优化最终方法调用的优化，例如索引或内联。

由于 p5p 拒绝考虑这种优化可能性（perl6 和 p2 会这样做），
这是不切实际的。但您只需要只读包哈希 %Foo:: 及其键即可。
方法重定义将引发编译时错误，编译器可以优化方法调用。

我在 github 上有一个分支，它在语言级别上实现了 const，用于词法和包。
https://github.com/rurban/perl/blob /typed/const/pod/perltypes.pod#const

这是计划，但没有支持：
http://blogs.perl.org/users /rurban/2012/09/my-perl5-todo-list.html
所以我分叉了perl5。 http://perl11.org/p2/