答案。

问题的历史:

自 Perl 5 的首次发布以来，该语言通过将引用与包（blessing）关联的机制支持基本的对象模型。在 Perl 中，对象是普通的引用（指向哈希、数组或标量），通过 bless 函数“祝福”，使系统能够通过包（namespace）查找方法。

问题:

未祝福的引用仍然是普通数据结构，试图在其上调用方法将导致运行时错误。开发者如果不注意引用的类型，可能会意外修改对象的内部状态，从而破坏封装。此外，使用“原始”的解引用操作 {} 或 @{} 而不加控制，会导致难以追踪的错误。

解决方案:

只能通过 bless 正确创建对象，然后通过解引用访问对象数据，同时使用 Scalar::Util 模块（ref, blessed）检查类型。始终避免在类方法之外直接访问结构（例如，$obj->{key}），并实现访问器（getter/setter）进行控制。

代码示例：

package Animal;
sub new {
    my $class = shift;
    my $self  = { name => shift };
    bless $self, $class;
    return $self;
}
sub name {
    my $self = shift;
    $self->{name} = shift if @_;
    return $self->{name};
}

my $dog = Animal->new("Rex");
print $dog->name;           # 通过访问器安全
print $dog->{name};         # 直接访问，不推荐

关键特性：

将引用与包关联能够在任何结构之上提供简单的面向对象编程
为了防止错误，建议使用访问器方法来访问数据
通过 blessed 或 ref 进行引用类型和类归属的检查显著降低了错误数量

诱导性问题。

没有 bless 的普通哈希引用能否用作对象？

不能，未调用 bless 的引用没有与包的关联，Perl 不会找到方法（会出现错误 "Can't call method"），尽管内部结构相同。

如何安全地判断一个变量是否真的是对象，而不只是引用？

使用函数 Scalar::Util::blessed($obj) 检查引用是否被祝福。只有被祝福的引用才被视为对象。

use Scalar::Util 'blessed';
my $obj = {};
print blessed($obj) ? 'yes' : 'no'; # 输出 'no'

是否可以在非对象引用上安全调用方法而不出错？

在未祝福的引用上调用方法将引发致命错误：Perl 期望该引用了解其包。AUTOLOAD 机制和动态加载的例外情况，但这属于反模式，将导致错误。

常见错误和反模式

将未祝福的引用作为对象传递
在没有访问器方法的情况下直接访问对象内部
缺乏类型检查和类归属检查

生活中的示例

消极案例

年轻开发者手动创建结构 $person = {name => 'Vasya'} 并忘记调用 bless，之后尝试调用 $person->name()，导致运行时错误。

优点：

快速编写代码

缺点：

缺乏封装
致命的运行时错误

积极案例

代码中始终在创建对象时调用 bless，并仅使用 method name() 访问数据。通过 blessed() 检查在执行方法之前处理错误。