使用 MooseX::Declare 创建 BUILDARGS 方法的正确方法是什么？

Question

调用 BUILDARGS 时，我无法正确使用 MooseX::Declare。

我正在尝试创建一个对象作为文件的接口。 （具体来说，我想要一个二进制文件的接口，让我可以查看文件中接下来的几个字节，然后将它们截断以进行进一步处理。）

我希望能够像这样创建这些对象之一

my $f = binary_file_buffer->new( $file_name );

，然后像这样使用它我

while( my $block_id = $f->peek( $id_offset, $id_length ) ) {
    $block_id = unpack_block_id( $block_id );
    $munge_block{ $block_id }->(
        $f->pop( $block_size[ $block_id ] )
    );
}

的 binary_file_buffer 类定义/声明看起来像这样

use MooseX::Declare;
class binary_file_buffer {
    use FileHandle;
    use Carp;

    has _file      => ( is => 'ro', isa => 'FileHandle' );
    has _file_name => ( is => 'ro', isa => 'Str' );
    has _buff      => ( is => 'rw', isa => 'Str',  default => '' );

    method BUILDARGS ( Str $file_name ) {
      my $file = FileHandle->new( $file_name );
      carp "unable to open $file_name : $!" unless defined $file;
      $file->binmode;
      return (
        _file_name => $file_name,
        _file      => $file,
      );
    }

    # get the next n bytes from the buffer.
    method pop ( Int $len ) {
        # ... Make sure there is data in _buff
        return substr( $self->{_buff}, 0, $len, '' );
    }

    # Look around inside the buffer without changing the location for pop
    method peek ( Int $offset, Int $len ) {
        # ... Make sure there is data in _buff
        return substr( $self->{_buff}, $offset, $len );
    }
}

（这里没有包含缓冲区加载和管理代码。它相当简单。）

问题是，我使用关键字 method在 BUILDARGS 声明中。因此，MooseX::Declare 需要一个 binary_file_buffer object 作为 BUILDARGS 的第一个参数。但是 BUILDARGS 获取传递给 new 的参数，因此第一个参数是 'binary_file_buffer' 的字符串，即包的名称。结果，它在使用 new 创建对象时未通过类型检查并终止，就像我在第一个代码片段中所做的那样。 （至少这是我对正在发生的事情的理解。）

我得到的错误消息是：

Validation failed for 'MooseX::Types::Structured::Tuple[MooseX::Types::Structured::Tuple[Object,Str,Bool],MooseX::Types::Structured::Dict[]]' failed with value [ [ "binary_file_buffer", "drap_iono_t1.log", 0 ], {  } ], Internal Validation Error is: Validation failed for 'MooseX::Types::Structured::Tuple[Object,Str,Bool]' failed with value [ "binary_file_buffer", "drap_iono_t1.log", 0 ] at C:/bin/perl/site/lib/MooseX/Method/Signatures/Meta/Method.pm line 445
 MooseX::Method::Signatures::Meta::Method::validate('MooseX::Method::Signatures::Meta::Method=HASH(0x2a623b4)', 'ARRAY(0x2a62764)') called at C:/bin/perl/site/lib/MooseX/Method/Signatures/Meta/Method.pm line 145
 binary_file_buffer::BUILDARGS('binary_file_buffer', 'drap_iono_t1.log') called at generated method (unknown origin) line 5
 binary_file_buffer::new('binary_file_buffer', 'drap_iono_t1.log') called at logshred.pl line 13

我喜欢 method 关键字为 $file_name 提供的类型检查糖，但我不知道如何获取它因为 BUILDARGS 从技术上讲并不是一种方法。

MooseX::Declare 是否有办法跳过 $self 创建或类似的事情？

我是否以正确的 MooseX::Declare 方式执行此操作？或者我错过了什么？

Answer 1

我认为您想要类似 method BUILDARGS (ClassName $class: Str $filename) { ... } 的东西，其中您将调用者显式定义为 ClassName $class。

Answer 2

我想你想要：

#!/use/bin/perl

use strict;
use warnings;

use MooseX::Declare;
class BinaryFile::Buffer {
    use FileHandle;
    use Carp;

    has file      => ( is => 'ro', isa => 'FileHandle');
    has file_name => ( is => 'ro', isa => 'Str');
    has _buff     => (
        is       => 'rw',
        isa      => 'Str',
        default  => '',
        init_arg => undef
    );

    sub BUILDARGS {
        my ($class, $file_name) = @_;
        my $file = FileHandle->new( $file_name ) or do {
            carp "unable to open ", $file_name, " : $!";
            return;
        };
        $file->binmode;
        return $class->SUPER::BUILDARGS(
                file_name => $file_name,
                file      => $file
        );
    }

    # get the next n bytes from the buffer.
    method pop(Int $len) {
        # ... Make sure there is data in _buff
        return substr( $self->buff, 0, $len, '' );
    }

    # Look around inside the buffer without changing the location for pop
    method peek(Int $offset, Int $len) {
        # ... Make sure there is data in _buff
        return substr( $self->buff, $offset, $len );
    }
}

my $f = BinaryFile::Buffer->new($0);

print $f->file_name, "\n";

Answer 3

这也是一种非常巧妙的方法（只是我面前答案的扩展）：

use MooseX::MultiMethods;

multi method BUILDARGS (ClassName $class: Str $filename) {

#do whatever you want to do if only a strg is passed

}

这样，MooseX::MultiMethods 会照顾到，如果你不调用
FileHandle->new( $file_name )，

但是

FileHandle->new(
_filename => $file_name
);

（这是正常语法），

它仍然可以工作！

另外，您可以（这对于文件名不太有用，但在其他情况下）

添加一个

multi method ( ClassName $class, Int $some_number ){}

这样的方式， new 现在可以处理哈希引用、整数和字符串......

哦可能性......;）