Question

我有一个非常有趣的困境。我正在处理到CVS存储库的Perl脚本接口，并创建了Perl对象来表示Modules，Paths和Files。由于Modules，Paths和Files都可以在其上发布CVS命令，因此我设置AUTOLOAD例程以获取任何未识别的方法并将其作为对象发布如果他们是CVS命令。

所有这些CVS命令都以完全相同的方式执行，但是其中一些命令需要对输出进行特殊处理以获得我想要的结果。

例如，我想从diff命令中获取输出并在返回之前重新格式化它。

我正在使用Moose，因此通常可以按如下方式执行此特殊处理：

after 'diff' => sub {
    # Reformat output here
}

问题是......我从未明确创建diff方法，因为它是由AUTOLOAD生成的，Perl不会让我为它创建一个方法修饰符，因为它在技术上不会存在！

有没有办法让我的工作方式如何？

Answer 1

将after应用于AUTOLOAD方法。

after 'AUTOLOAD' => sub {
    my $method = $The::Package::AUTOLOAD;
    $method =~ s/.*:://;
    if ($method eq 'diff') {
        # do  after diff  stuff
    } elsif ($method eq 'foo') {
        # do  after foo  stuff
    } else {
        # never mind, don't want to do anything after this function
    }
};

修改

我发现我可能想要更多地控制diff命令，所以我在你的答案中添加了更多细节。希望有人会发现这些信息很有用。

要获得更多控制权，您可以使用around！

around 'AUTOLOAD' => sub { my $orig = shift; my $self = shift; (my $command = $AUTOLOAD) =~ s{.+::}{}; # Special processing if ($command eq 'diff') { # # Add "before" special processing here # my $output = $self->$orig(@_); # # Add "after" special processing here # } else { return $self->$orig(@_); } };

这允许您在函数调用AND之后进行特殊处理。

有关详细信息，请参阅：Moose::Manual::MethodModifiers

Answer 2

根据AUTOLOAD - 使用类的实现情况，您可能会发现它也尊重can方法，只需调用can即可创建该方法。

__PACKAGE__->can( "diff" );
after diff => sub { ... };

Answer 3

我建议您重新设计系统以使用特征，而不是依赖于AUTOLOAD行为。如果你没有遍布整个地方的行为，那么可维护性和意图将更加明显。

例如，您可以使用以下内容执行所需操作：

package Trait::CVSActions;

use Moose::Role;

sub commit { print 'in commit for ' . shift . "\n" }

sub diff { print 'diffing for ' . shift . "\n" }

package Module;

use Moose;

with 'Trait::CVSActions';

package Path;

use Moose;

with 'Trait::CVSActions';

after commit => sub { print "after commit on Path\n" };

package main;

my $module = new Module;
my $path = new Path;

$module->commit;
$path->commit;

如果你想使用AUTOLOAD来发送到未知命令，那么这是危险的，因为可能有一些你必须对你不知道的特殊处理，所以你可能会导致自己未来的问题。

如何将方法修饰符应用于AUTOLOAD生成的方法？

3 个答案: