File Coverage

lib/WebService/Shippo/Update.pm
Criterion Covered Total %
statement 16 20 80.0
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 22 28 78.5


line stmt bran cond sub pod time code
1 7     7   45 use strict;
  7         15  
  7         179  
2 7     7   38 use warnings;
  7         15  
  7         186  
3 7     7   37 use MRO::Compat 'c3';
  7         13  
  7         325  
4              
5             package WebService::Shippo::Update;
6             require WebService::Shippo::Request;
7 7     7   39 use Params::Callbacks ( 'callbacks' );
  7         16  
  7         865  
8              
9             sub update
10             {
11 0     0 0   my ( $callbacks, $invocant, $id, @params ) = &callbacks;
12 0           my $class = $invocant->item_class;
13 0           my $response = Shippo::Request->put( $class->url( $id ), @params );
14 0           return $class->construct_from( $response, $callbacks );
15             }
16              
17             BEGIN {
18 7     7   40 no warnings 'once';
  7         13  
  7         292  
19 7     7   144 *Shippo::Updater:: = *WebService::Shippo::Updater::;
20             }
21              
22             1;