在 Perl 脚本中“使用”基于 Moose 的包[关闭]

Question

我一直在摸索大约一个小时，试图让 .pm 成为我的模块。

我的问题很简单。

故事：

1. 我制作了一个包并使用 Moose 进行 OOP。
2. 我已将包 My::FileIO 保存在所有此类自定义模块的公共目录下的主目录中，格式为 /home/USER/DIRECTORY/My/FileIO.pm。事实上，这是在我使用 Module::Starter 并使用 perl Makefile.PL 以该格式安装它之后完成的。
3. 我使用外部脚本来测试模块。在那，我使用了use lib '/home/USER/DIRECTORY/'，然后通过检查%INC 来确认模块的存在，它产生了正确的文件名值。这使我得出结论，perl 加载了该模块，没有任何抱怨。
4. 我尝试使用My::FileIO这个模块，当时测试脚本也没有报错。
5. 在我以 Moose 方式使用构造函数后，测试脚本失败，my $test = My::FileIO->new()，这就是它抛出的 - Can't locate object method "new" via package "My::FileIO" (perhaps you forgot to load "My::FileIO"?) at line 1.
6. 我尝试制作一个名为 init 的模拟子例程，但也失败了。
7. 然而，Perl Maven 的作者成功使用了这些代码 (https://perlmaven.com/object-oriented-perl-using-moose)

他的测试脚本

use strict;
use warnings;
use v5.10;

use Person;

my $teacher = Person->new( name => 'Joe' );
say $teacher->name;

他的测试模块

package Person;
use Moose;

has 'name' => (is => 'rw');

1;

总结：

1. 测试脚本能够成功加载模块。
2. 我根本无法使用该软件包。

这是假定的 FileIO.pm

package My::FileIO; 
use feature 'state'; 
use List::Util qw(max); 
use Data::Dumper; 
use Moose;
use Type::Params qw(compile);
use Type::Utils; 
use Types::Standard qw(Str FileHandle Int HashRef ArrayRef Maybe);

[ ALL THE CODE ]

1;

完整代码在https://pastebin.com/1kxiPazd

这是我的测试文件 - test.pl

use lib '/home/USER/DIRECTORY';
use My::FileIO; 

$test = My::FileIO->new() # Fails 

我做错了什么？我制作了一个类似 Perl Maven 的模拟模块并尝试对其进行测试，但它也失败了。

更新 - 对于我的文章中的愚蠢错误，我深表歉意。

Answer 1

假设您称为FileIO.pm 的文件的完整路径是/home/USER/DIRECTORY/My/FileIO.pm，您在底部发布的内容将起作用。

您在底部发布的代码显然不是您在测试中使用的导致错误的代码。你提供的错误信息说你使用了-e而不是test.pl，并且说你试图创建一个My::Test类的对象而不是My::FileIO。