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

时间:2015-09-11 19:35:21

标签: perl autoload moose method-modifier

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

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

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

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

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

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

  

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

3 个答案:

答案 0 :(得分:3)

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

答案 1 :(得分:0)

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

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

答案 2 :(得分:0)

我建议您重新设计系统以使用特征,而不是依赖于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来发送到未知命令,那么这是危险的,因为可能有一些你必须对你不知道的特殊处理,所以你可能会导致自己未来的问题。