对于 Moose 包,我尝试在 Perl(非 moose)中创建一个对象,然后尝试访问外部方法。解释这种情况的代码在这里。
package person;
{
use Moose;
sub test {
print "my test print";
}
}
package people {
use person;
my $obj = person->new();
}
$people::obj->test()
执行此 perl 代码时出现以下错误。
Can't call method "test" on an undefined value at test.pm
我在这里遗漏了什么吗?
最佳答案
您从未将任何内容分配给 $people::obj
。您将一些东西分配给一个名为 $obj
的不相关词法变量,这个变量在程序到达方法调用时甚至不存在。词法变量(例如那些由 my
创建的变量)被限制在它们所在的最里面的 curl 中,也就是说它们只在那里可见(可访问)。
修复:
package Person;
{
use Moose;
sub test {
print "my test print";
}
}
package People {
my $obj = person->new();
sub get_person {
return $obj;
}
}
People->get_person->test();
注意事项:
- 删除了
use person;
,它要么阻止程序编译,要么无意中执行了一些可能存在冲突的代码。 - 小写模块名称保留用于编译指示。
- 我本可以将词法变量更改为包变量,但使用全局变量是一种不好的做法。使用方法(或子方法)可以使将来的事情变得容易得多。
- 小心将多个包/类放在一个文件中。有陷阱。
关于perl - 访问要在外部显式调用的包中的 Moose 对象,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/62527023/