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


line stmt bran cond sub pod time code
1             package Net::Easypost::Rate;
2             $Net::Easypost::Rate::VERSION = '0.23';
3 6     6   35 use Moo;
  6         10  
  6         27  
4             with qw(Net::Easypost::Resource);
5              
6             has 'carrier' => (
7             is => 'ro',
8             default => 'USPS',
9             );
10              
11             has [qw/service rate shipment_id/] => (
12             is => 'ro',
13             );
14              
15             sub _build_fieldnames {
16 21     21   8406 return [qw(carrier service rate shipment_id)];
17             }
18 21     21   2810 sub _build_role { 'rate' }
19 21     21   425 sub _build_operation { '' }
20              
21             sub serialize {
22 2     2 1 9 my ($self) = @_;
23              
24             return {
25 2         17 'rate[id]' => $self->id
26             };
27             }
28              
29             sub clone {
30 0     0 1   my ($self) = @_;
31              
32             return Net::Easypost::Rate->new(
33 0           map { $_ => $self->$_ }
34 0           grep { defined $self->$_ }
35 0           'id', @{ $self->fieldnames }
  0            
36             );
37             }
38              
39             1;
40              
41             __END__