用Moo包装Web服务

Question

我最近接手了一个Perl客户端的维护工作，这个客户端封装了一个航运web服务。处于初始状态的项目使用直接映射到web服务对象的Moo对象，例如，有类Parcel、Address和Label。

在API的v2中，您必须将表示这些对象之一的所有数据发布到web服务中，然后返回该对象的唯一id，该id必须用于所有后续事务。

例如，如果我发布了：

{ name   => 'Hunter',
  street => '121 Baker St',
  city   => 'New York',
  state  => 'NY',
}

我会得到相同的数据，但其中包括一个id：

{ id     => 'adr_xq1411',
  name   => 'Hunter',
  street => '121 Baker St',
  city   => 'New York',
  state  => 'NY',
}

我很难决定如何创建这些对象。目前，我有一个构造函数，它执行实际的POSTing来获取ID，然后修改当前对象：

sub BUILD {
    my $self = shift;

    my $requestor = Net::Easypost::Request->new;
    my $resp = $requestor->post( 
        '/addresses', 
        $self->serialize( [qw(street1 street2 city state zip)] ) 
    );

    # save the id for this Address from Easypost   
    $self->id( $resp->{id} );

    return $self;
}

在Perl中包装web服务时，这是一种常见的方法吗？理想的方法似乎是一次性向web服务发布并创建Address对象的所有属性，但是在Moo(se)中，一旦您进入了BUILD方法，对象就已经创建好了。

我不太熟悉包装web服务的习惯用法，有比这更简单的方法吗？

如有任何意见/评论/建议，将不胜感激。

Answer 1

这当然是一种方法。将BUILD方法分解为一个角色可能是个好主意。类似于：

package MyApp::PostOnBuild;

use Moo::Role;

has id          => (is => 'rwp');
has endpoint    => (is => 'ro', default => sub { '/addresses' });
has requestor   => (is => 'ro', default => sub { Net::Easypost::Request->new });
has field_names => (is => 'ro', builder => 1);

requires '_build_field_names';
requires 'serialize';  # or maybe just implement serialize within this role!

sub BUILD { }
after BUILD => sub {
    my $self = shift;
    my $resp = $self->requestor->post($self->endpoint, $self->serialize($self->field_names));
    $self->_set_id( $resp->{id} );
};

现在，您的类不需要定义自己的BUILD方法。他们所需要做的就是：

package MyApp::Address;

use Moo;
with 'MyApp::PostOnBuild';

my @fields = qw/ street1 street2 city state zip /;

has $_ => (is => 'ro') for @fields;

sub _build_field_names { \@fields }

sub serialize { ... }  # would this method be better defined in MyApp::PostOnBuild??

请注意，requestor现在是一个属性，所以在测试该类时，可以执行以下操作：

my $adr = MyApp::Address->new(
    street1   => '123 Example Lane',
    city      => 'Sydney',
    state     => 'NSW',
    zip       => '2035',
    requestor => Test::Requestor->new,
);