如何在主脚本同一文件中使用自定义的Moose类？

我明白你遇到的问题啦——把原本在单独.pm文件里的Moose类移到主脚本后，没法正常实例化对象对吧？这是因为Moose类的定义需要遵循Perl的包（package）命名空间规则，直接丢进主脚本里的话，Perl没法识别P1这个类的存在。下面给你两种可行的解决方法：

方法一：在主脚本内直接声明包并定义Moose类 #

你只需要在主脚本里先声明package P1;，然后定义Moose属性，最后切回主包package main;继续写你的主逻辑就行。完整代码如下：

#! /usr/bin/env perl
use feature qw(say);
use strict;
use warnings;

# 定义P1类
package P1;
use Moose;
has name => (is => 'rw', isa => 'Str');
__PACKAGE__->meta->make_immutable; # 可选，优化Moose类的性能
package main; # 切回主程序的命名空间

my $obj = P1->new(name => 'John');
say "The name is: ", $obj->name;

简单解释下：Perl是通过命名空间来区分不同类的，你声明package P1;后，后续的代码就属于P1这个命名空间，Moose的has关键字会在这个空间下创建类属性。完成类定义后一定要切回package main;，这样后面的主逻辑代码才会在正确的命名空间里执行。

方法二：用__DATA__段分离类定义（适合复杂类） #

如果你的类逻辑比较复杂，不想和主代码混在一起，可以把类定义放在主脚本的__DATA__段里，通过eval加载。示例代码：

#! /usr/bin/env perl
use feature qw(say);
use strict;
use warnings;

# 加载内嵌的P1类定义
do { local $/; eval <DATA> } or die $@;

my $obj = P1->new(name => 'John');
say "The name is: ", $obj->name;

__DATA__
package P1;
use Moose;
has name => (is => 'rw', isa => 'Str');
1; # 保持Perl模块的传统，结尾要返回真值

这种方式的好处是类定义和主逻辑清晰分离，和原来单独的.pm文件用法几乎一致。local $/会一次性读取__DATA__后的所有内容，eval则负责执行这段类定义代码，确保P1类被正确加载。

为什么原来分开的文件能正常运行？ #

当你使用use P1;时，Perl会自动找到P1.pm文件，加载里面的package P1;代码，帮你完成了命名空间切换和类的定义。而直接把类代码移到主脚本却不声明包的话，代码会跑到main命名空间下，自然没法通过P1->new来实例化对象啦。

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