Perl 子例程参考

Question

我有一组字段，每个字段都有不同的验证规则集。

我已经放置了用于验证哈希引用的子例程引用。

目前它在我的构造函数中，但我想将它从私有子构造函数中取出。

我已经按如下方式完成了

sub new {
my $class = shift;
my $self  = {@_};

$class = (ref($class)) ? ref $class : $class;
bless($self, $class);

$self->{Validations} = {
  Field1 => {name => sub{$self->checkField1(@_);},args => [qw(a b c)]}
  Field2 => {name => sub{$self->checkField2(@_);},args => {key1, val1}}
..
..
..
..
};

return $self;
}

现在我想从我的构造函数中取出所有这些验证规则，并想做一些如下所示的事情，以便我可以更好地控制基于类型字段的验证规则。（假设一些规则是在一组字段中很常见，我可以通过覆盖字段的值来覆盖其他规则的规则。）

bless($self, $class);

  $self->{Validations} = $self->_getValidation($self->{type});

  return $self;
}
sub _getValidation{
     my ($self,$type) = @_;
     my $validation = {
     Field1  => {name => sub {$self->checkField1(@_);}, args => {key1 => val1}},};

     return $validation;
}

但我得到 Can't use string ("") as a subroutine ref while "strict refs" in use at... 谁能告诉我为什么子引用会出现这种行为。如果我检查我的名字键，它会变成 null 或 sub {DUMMY}；

Answer 1

在我看来，你正在差点重新发明 Moose 。考虑使用 Moose 而不是构建类似但不太有用的东西。

该错误消息意味着您正在代码需要代码引用的位置传递字符串。获取堆栈跟踪以找出错误来自何处。

您可以通过使用 Carp::Always、覆盖 $SIG{__DIE__} 处理程序来生成堆栈跟踪或在代码中插入 Carp::confess 来实现此目的。

这是一个 sigdie 解决方案，将其粘贴到您的代码中，它将在模块初始化之前运行：

$SIG{__DIE__} = sub { Carp::confess(@_) };

您可能需要将其放在 BEGIN 块中。

我真的很想劝阻您不要采用这种方法来构建对象。您很高兴地祝福作为对象一部分传递给构造函数的任何随机垃圾！你愉快地触及你的物体内部。字段验证规则*不不属于构造函数——它们属于属性修改器。

如果您必须使用 DIY 对象，请清理您的做法：

# Here's a bunch of validators.
# I set them up so that each attribute supports:
#   Multiple validators per attribute
#   Distinct error message per attribute
my %VALIDATORS = (

    some_attribute  => [
        [ sub { 'foo1' }, 'Foo 1 is bad thing' ],
        [ sub { 'foo2' }, 'Foo 2 is bad thing' ],
        [ sub { 'foo3' }, 'Foo 3 is bad thing' ],
    ],
    other_attribute => [ [ sub { 'bar' }, 'Bar is bad thing' ] ],

);


sub new {
    my $class = shift;  # Get the invocant
    my %args = @_;      # Get named arguments

    # Do NOT make this a clone method as well   

    my $self = {};
    bless $class, $self;

    # Initialize the object;
    for my $arg ( keys %args ) {

        # Make sure we have a sane error message on a bad argument.
        croak "Bogus argument $arg not allowed in $class\n"
            unless $class->can( $arg );

        $self->$arg( $args{$arg} );
    }

    return $self;
}

# Here's an example getter/setter method combined in one.
# You may prefer to separate get and set behavior.

sub some_attribute {
    my $self = shift;

    if( @_ ){
        my $val = shift;

        # Do any validation for the field
        $_->[0]->($val) or croak $_->[1]
            for @{ $VALIDATORS{some_attribute} || [] };

        $self->{some_attribute} = $val;
    }

    return $self->{some_attribute};

}

所有这些代码都非常好，但您必须为每个属性重复您的属性代码。这意味着大量容易出错的样板代码。您可以通过学习使用闭包或字符串 eval 动态创建方法来解决此问题，或者您可以使用 Perl 的众多类生成库之一，例如 Class::Accessor、Class::Struct、Accessor::Tiny 等。

或者你可以学习[驼鹿][3]。 Moose 是一个新的对象库，它已经取代了 Perl OOP 实践。与经典 Perl OOP 相比，它提供了一组强大的功能并显着减少了样板代码：

use Moose;

type 'Foo'
    => as 'Int'
    => where {
        $_ > 23 and $_ < 42
    }
    => message 'Monkeys flew out my butt';

has 'some_attribute' => (
    is  => 'rw',
    isa => 'Foo',
);

Answer 2

我还没有阅读您所拥有的所有内容，但这让我印象深刻：

sub new {
    my $class = shift;
    my $self  = {@_};

    $class = (ref($class)) ? ref $class : $class;
    bless($self, $class);

通常，当您创建一个新对象时，用户不会将 $self 作为对象之一传递。这就是你正在创造的。

您通常会看到类似这样的内容：

sub new {
    my $class = shift;   #Contains the class
    my %params = @_;     #What other parameters used

    my $self = {};       #You're creating the $self object as a reference to something
    foreach my $param (keys (%params)) {
       $self->{$param} = $params{$param};
    }

    bless ($self, $class)  #Class is provided. You don't have to check for it.
    return $self    #This is the object you created.
}

现在，$self 不必像上面的示例那样是对哈希的引用。它可以是对数组的引用。或者也许是一个函数。但是，它通常是一个参考。要点是，用户不会传入 $self，因为它是由您的 new 子例程创建的。

您也不必检查 $class 的值，因为该值是在调用 new 子例程时给出的。

如果您想在私有类中进行验证（顺便说一下，这是一个好主意），您可以在 bless 之后执行此操作：

sub new {
    my $class = shift;   #Contains the class
    my %params = @_;     #What other parameters used

    my $self = {};       #You're creating the $self object as a reference to something
    foreach my $param (keys (%params)) {
       $self->{$param} = $params{$param};
    }

    bless ($self, $class)  #Class is provided. You don't have to check for it.

    #Now you can run your verifications since you've blessed the object created
    if (not $self->_validate_parameters()) {
       croak qq(Invalid parameters passed in class $class);
    }
    return $self    #This is the object you created.
}