DelegationToAClassWhichIsNotLoaded 错误与 Moose 和 XML::LibXML

Question

我有一个使用 Moose 的简单测试类，具有 XML::LibXML::Document 属性，但是当我使用这个测试类时出现错误。 测试类是：

package moosetest;

use strict;
use warnings;

use XML::LibXML;

use Moose;

has dom => ( is => 'rw', isa => 'XML::LibXML::Document', required => 0, handles => qr/^( findnodes | documentElement | setDocumentElement | toString | toFile )$/x );


1;

然后在test.pl中使用：

use XML::LibXML;

use moosetest;

my $tt = moosetest->new();

当我运行 test.pl 时，我得到一个错误：

dom 属性试图委托给一个尚未加载的类 - XML::LibXML::Document

我用的是perlbrew，安装了XML::LibXML（不用Moose也可以实例化一个XML::LibXML::Document对象），Moose也安装成功了。

看起来我在这里遗漏了一些重要的东西，但我找不到问题的根源......

感谢您的帮助。

弗朗索瓦。

Answer 1

Moose::Meta::Attribute::_find_delegate_metaclass 使用Moose::Util::_is_package_loaded 在@INC 中查找XML::LibXML::Document。但是，包XML::LibXML::Document 位于 XML/LibXML.pm 中。

使用数组代替正则表达式处理句柄可以避免这个问题：

handles => [ qw( findnodes documentElement setDocumentElement toString toFile ) ],