我是Moose的新手并且做得很好,直到我用PDL作为财产。我希望能够将对象写入文件(我一直在使用use MooseX::Storage; with Storage('io' => 'StorableFile');
,并且此对象具有PDL
作为属性。PDL::IO::Storable
提供了使用{Storable
的必要方法以这种方式,但是我不知道如何在穆斯这样做。
这是一个例子,我知道它有点长,但它尽可能地小到我能做到:
#!/usr/bin/perl
package LinearPDL;
use Moose;
use PDL::Lite;
use PDL::IO::Storable;
use MooseX::Storage;
with Storage('io' => 'StorableFile');
has 'length' => (is => 'ro', isa => 'Num', required => 1);
has 'divisions' => (is => 'ro', isa => 'Int', required => 1);
has 'linear_pdl' => (is => 'ro', isa => 'PDL', lazy => 1, builder => '_build_pdl');
sub _build_pdl {
my $self = shift;
my $pdl = $self->length() / ( $self->divisions() - 1 ) * PDL::Basic::xvals($self->divisions());
return $pdl;
}
no Moose;
__PACKAGE__->meta->make_immutable;
use strict;
use warnings;
my $linear_pdl = LinearPDL->new('length' => 5, 'divisions' => 10);
print $linear_pdl->linear_pdl;
$linear_pdl->store('file'); # blows up here!
my $loaded_lpdl = load('file');
print $loaded_lpdl->linear_pdl;
我想我可能不得不制作一个PDL类型,或者甚至可能将PDL包装成某些东西(使用MooseX::NonMoose::InsideOut
),但也许有人可以将我从中拯救出来(或者指出我是正确的道路,如果是的话)。
答案 0 :(得分:7)
你没有说实际上出了什么问题。猜测你需要告诉MooseX::Storage如何使用PDL对象的Storable钩子来处理PDL对象。 MooseX :: Storage中此功能的文档非常差,但MooseX :: Storage :: Engine有一个add_custom_type_handler()
方法,它接受一个类型名称(在您的情况下为PDL)和一个HashRef处理程序。
MooseX::Storage::Engine->add_custom_type_handler(
'PDL' => (
expand => sub { my ($data) = @_; ... },
collapse => sub { my ($object) = @_; ... },
)
);
请在irc.perl.org或Moose邮件列表上浏览#moose
并询问。
[编辑:使用基于tests的示例进行更新。]
答案 1 :(得分:1)
Joel的问题和perigrin的回应帮助我解决了一段时间以来一直存在于我脑海中的存储问题。我在这里发布一个有效的例子。它不使用PDL,但它是相关的,并可能在将来帮助某人。
{
package MVR;
use Moose;
use MooseX::Storage;
use Math::Vector::Real;
use Data::Structure::Util qw (unbless);
with Storage('format' => 'JSON', 'io' => 'File');
MooseX::Storage::Engine->add_custom_type_handler(
'Math::Vector::Real' => (
expand => sub {my $v = shift; Math::Vector::Real->new(@{$v})},
collapse => sub {my $mvr = shift; return (unbless($mvr)) },
)
);
has 'mvr' => (is => 'rw', isa => 'Math::Vector::Real');
1;
}
use Math::Vector::Real;
my $p = MVR->new(mvr => V(0,1,3));
print $p->dump;
$p->store('my_point.json');
my $p1 = MVR->load('my_point.json');
print $p1->dump;