Object::Pad与class特性违反Perl包规范的利弊及布局疑问

结论先行 #

Object::Pad 官方建议的写法完全没有弊端，你设想的规避写法反而画蛇添足，甚至可能引发不必要的问题。

为什么 Object::Pad 要求先 use Object::Pad #

Object::Pad 是靠编译期钩子来实现 class 这个新语法的——它必须在 Perl 解析到 class 关键字之前就被加载，才能识别并处理这个语法。而且更关键的是：
class MyClass; 这条语句本身就已经完成了包的创建工作，它等价于传统的 package MyClass; 加上类的元数据初始化，根本不需要额外写 package 声明。

关于 Perl::Critic 规则的适配 #

Perl::Critic 的 Modules::RequireExplicitPackage 规则是针对传统 Perl 模块设计的，这套规则没考虑现代 Perl 类系统（比如 Object::Pad 或者 Perl 5.38+ 原生的 class 特性）的设计逻辑。你可以通过两种方式解决这个冲突：

1. 全局配置：在 .perlcriticrc 里添加例外

   [Modules::RequireExplicitPackage]
   exempt_modules = Object::Pad
   

2. 单模块豁免：在模块开头添加注释

   ## no critic (Modules::RequireExplicitPackage)
   use Object::Pad;
   class MyClass;
   

你的规避写法的问题 #

你写的这段代码：

package MyClass; # ensure that Object::Pad is loaded within the `MyClass` package
use Object::Pad;
class MyClass;

有两个明显问题：

• 冗余：class MyClass; 会自动创建/初始化 MyClass 包，提前的 package 声明完全多余
• 逻辑矛盾：Object::Pad 的加载是全局生效的（它是给 Perl 解析器加钩子），不是“在某个包内加载就只对该包生效”，所以你注释里的意图根本无法实现

最终建议 #

直接遵循 Object::Pad 的官方写法即可：简洁、符合工具设计逻辑，也不会有任何潜在问题。Perl::Critic 的规则是死的，代码的设计意图是活的，针对现代特性灵活调整规则才是合理做法。

内容的提问来源于stack exchange，提问作者Håkon Hægland