File Coverage

blib/lib/Net/Easypost/PostOnBuild.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch			n/a
condition	1	3	33.3
subroutine	3	3	100.0
pod	2	2	100.0
total	14	16	87.5

package Net::Easypost::PostOnBuild;
$Net::Easypost::PostOnBuild::VERSION = '0.23';
use Moo::Role;

sub BUILD {}
after 'BUILD' => sub {
    my $self = shift;

   my $resp = $self->requester->post(
      $self->operation,
      $self->serialize,
   );
   $self->_set_id( $resp->{id} );
};

sub serialize {
   my ($self, $attrs) = @_;
   $attrs //= $self->fieldnames;

   # want a hashref of e.g., role[field1] => foo from all defined attributes
   return {
      map  { $self->role . "[$_]" => $self->$_ }
      grep { defined $self->$_ } @$attrs
   };
}

1;

__END__