File Coverage

blib/lib/Net/Easypost/Rate.pm

Criterion	Covered	Total	%
statement	8	13	61.5
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	15	21	71.4

package Net::Easypost::Rate;
$Net::Easypost::Rate::VERSION = '0.20';
use Moo;
with qw(Net::Easypost::Resource);

has 'carrier' => (
    is      => 'ro',
    default => 'USPS',
);

has [qw/service rate shipment_id/] => (
    is => 'ro',
);

sub _build_fieldnames {
    return [qw(carrier service rate shipment_id)];
}
sub _build_role      { 'rate' }
sub _build_operation { ''     }

sub serialize {
   my ($self) = @_;

   return {
       'rate[id]' => $self->id
   };
}

sub clone {
   my ($self) = @_;

   return Net::Easypost::Rate->new(
       map  { $_ => $self->$_ }
       grep { defined $self->$_ }
           'id', @{ $self->fieldnames }
   );
}

1;

__END__