MooseX::类型声明问题，严格的测试用例:)

Question

因此，经过一段令人尴尬的时间调试后，我终于解决了 这个问题 简化为一个简单的测试用例。我会谦虚地请求一些帮助来理解它失败的原因。 :) 这是我收到的错误消息：

plxc16479> $h2/tmp/tmp18.pl
This method [new] requires a single argument. at /nfs/pdx/disks/nehalem.pde.077/perl/5.12.2/lib64/site_perl/MooseX/Types/TypeDecorator.pm line 91

MooseX::Types::TypeDecorator::new('MooseX::Types::TypeDecorator=HASH(0x655b90)') called at /nfs/pdx/disks/nehalem.pde.077/projects/lib/Program-Plist-Pl/lib/Program/Plist/Pl.pm line 10

Program::Plist::Pl::BUILD('Program::Plist::Pl=HASH(0x63d478)', 'HASH(0x63d220)') called at generated method (unknown origin) line 29

Program::Plist::Pl::new('Program::Plist::Pl') called at /nfs/pdx/disks/nehalem.pde.077/tmp/tmp18.pl line 10

Wrapper test script:

use strict;
use warnings;

BEGIN {push(@INC, split(':', $ENV{PERL_TEST_LIBS}))};

use Program::Plist::Pl;

my $obj = Program::Plist::Pl->new();

Program::Plist::Pl file:

package Program::Plist::Pl;

use Moose;
use namespace::autoclean;

use Program::Types qw(Pattern); # <-- Removing this fixes error
use Program::Plist::Pl::Pattern;

sub BUILD {
  my $pattern_obj = Program::Plist::Pl::Pattern->new();
}

__PACKAGE__->meta->make_immutable;

1;

Program::Types file:

package Program::Types;

use MooseX::Types -declare => [qw(Pattern)];

class_type Pattern, {class => 'Program::Plist::Pl::Pattern'};

1;

And the Program::Plist::Pl::Pattern file:

package Program::Plist::Pl::Pattern;

use Moose;
use namespace::autoclean;

__PACKAGE__->meta->make_immutable;

1;

Notes: While I don't在上面的代码中不需要来自 Program::Types 的 Pattern 类型，我在其他被删除的代码中需要。我从中提取 INC 路径的 PERL_TEST_LIBS 环境变量仅包含项目模块的路径。没有从这些路径加载其他模块。

看来 Pattern 的 MooseX::Types 定义引起了问题，但我不知道为什么。文档显示了我正在使用的语法，但我可能误用了 class_type 因为对此没有太多说明。目的是能够通过 MooseX:: 使用 Pattern 进行类型检查Params::Validate 用于验证参数是否为 Program::Plist::Pl::Program 对象。

我发现通过直接从 tmp18.pl< 调用 Pattern->new 从等式中删除介入类 Program::Plist::Pl即使导入 Program::Types Pattern 类型，/code> 包装器也不会产生错误。

Answer 1

当您说

package Program::Plist::Pl;
...
use Program::Types qw(Pattern);

要将名为 Pattern 的子例程导入到包 Program::Plist::Pl 中时。它的完全限定名称是Program::Plist::Pl::Pattern。因此，

Program::Plist::Pl::Pattern->new();

解析为

Program::Plist::Pl::Pattern()->new();

而

'Program::Plist::Pl::Pattern'->new();

不是您的意思。如果你愿意的话，你可以用明确的引号来写（并且它会起作用），但这是一个令人讨厌的特殊情况。另一种解决方案是将类型重命名为不会与包名称冲突的名称（例如 PatternObj）。

namespace::autoclean 对此没有帮助。它可以防止人们将导入的子程序调用为方法。但是您直接调用 Program::Plist::Pl::Pattern()，然后在其返回值上调用方法。