我可以在构造函数中使用访问器方法吗？

Question

我正在编写一个简单的 Perl 模块来处理时间和日期信息。下面是构造函数和访问器方法之一的简化​​版本：

package Time;

# Constructor
sub new {
    my $class = shift;
    my %args  = @_;

    # Create an empty object
    my $self = bless {};

    # Get input arguments
    my $second = exists $args{'second'} ? $args{'second'} : (localtime)[0];

    # Use the accessor to validate and populate object data
    $self->second($second);

    return $self;
}

# Second accessor
sub second {
    my $self   = shift;
    my $second = shift;

    # Input validation
    if (defined $second) {
        if ($second =~ m{^\d+$} && $second >= 0 && $second <= 59) {
            $self->{'second'} = $second;
        }
        else {
            die "'second' must be an integer between 0 and 59!";
        }
    }

    return $self->{'second'};
}

我的问题是...... 在 Perl 的对象构造中使用访问器是否可以接受？

在构造函数内部使用访问器使得我不需要构造函数本身中的所有验证代码，因为输入由访问器验证，但这是不好的做法吗？

有什么理由我不想这样做吗？

Answer 1

是的，你可以这样做。

但从 OOP 的角度来看，将代码移动到 init 方法中可能是有意义的，因此构造函数仅创建对象。基本上是在你调用bless之后完成的。

sub new {
    my $class = shift;

    # Create an empty object
    my $self = bless {};

    # initialize the object
    $self->init(@_);

    return $self;
}

sub init {
    my ($self, %args) = @_;

    # Get input arguments
    my $second = exists $args{'second'} ? $args{'second'} : (localtime)[0];

    # Use the accessor to validate and populate object data
    $self->second($second);

    return;
}

---

您是否考虑过使用Moose？您也可以使用Type::Tiny 作为您的类型约束，即使您想坚持使用manual oop。