3

我有一个使用 Attribute::Handler 实现的 perl 模块

package FOO;

use strict;
use warnings;

use Attribute::Handlers;

use base 'Exporter';
our @EXPORT = qw(__RETRY);

sub __RETRY : ATTR(CODE) {
    my ($pkg, $sym, $code) = @_;

    no warnings 'redefine';

    *{ $sym } = sub
    {
        my $self = $_[0];
        my $result;
        print ("Executing subroutine\n");
        $result = $code->();
        if ($result)
        {
            print "You Pass\n";
        }
        else
        {
            print "You Fail\n";
        }
    }
}

sub foo : __RETRY
{
    print "Executing Foo\n";
    return 1;
}

1;

现在，当我使用 require 调用这个模块并调用函数 foo() 时，它只执行 foo 的打印语句。

require "FOO.pm";
FOO->import();
FOO::foo();

输出：

Executing Foo

但后来我使用 use 做同样的事情，它做了正确的工作。

use FOO;
FOO::foo();

输出：

Executing subroutine
Executing Foo
You Pass

实际上，在我的代码中，我使用 require 来调用它，但它不起作用。您的帮助将不胜感激！！

4

2 回答 2

4

perldoc attributes：

子程序属性的设置发生在编译时。

于 2012-07-10T13:32:22.723 回答
1

更准确地说 - 属性在 CHECK 阶段处理。因此，当您评估/请求它们时，它们没有被填满。

但是，您可以尝试以下方法：

sub __RETRY : ATTR(CODE,BEGIN) {

强迫它。有了它，下一个作品，但也许你的里程是......

eval { require "FOO.pm"; FOO->import(); FOO::foo() };
于 2012-07-10T17:46:18.443 回答