34、Perl 对象编程：最佳实践与陷阱规避

Perl 对象编程：最佳实践与陷阱规避

1. 访问器方法的选择

在 Perl 编程中，访问器方法是操作对象属性的重要手段。有两种常见的访问器实现方式：独立的“get”和“set”访问器，以及 lvalue 访问器。

1.1 独立的“get”和“set”访问器

独立的“get”和“set”访问器为属性提供了明确的访问方式，有助于提高代码的可读性和自文档性，甚至能在一定程度上提升性能。例如，当程序员错误地尝试更新只读的序列号时，由于没有实现 set_serial_num() 方法，解释器会立即检测并报告错误：

$dogtag->set_serial_num( $division_code . $old_serial_num );
# 输出错误信息
# Can't locate object method "set_serial_num" via package "Dogtag"
# at rollcall.pl line 99

这种方式利用了程序员避免编写多余代码的习惯，自动检测并报告错误。

1.2 lvalue 访问器

自 Perl 5.6 起，可以将返回标量结果的子例程指定为 lvalue，从而实现另一种属性访问器方法。示例代码如下：

# Provide access to the name attribute...
sub name :lvalue {
    my ($self) = @_;
    r