File Coverage

lib/WebService/Shippo/Create.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   49 use strict;
  7         15  
  7         245  
2 7     7   43 use warnings;
  7         14  
  7         210  
3 7     7   38 use MRO::Compat 'c3';
  7         15  
  7         336  
4              
5             package WebService::Shippo::Create;
6             require WebService::Shippo::Request;
7 7     7   40 use Params::Callbacks ( 'callbacks' );
  7         14  
  7         978  
8              
9             sub create
10             {
11 0     0 0   my ( $callbacks, $invocant, @params ) = &callbacks;
12 0           my $class = $invocant->item_class;
13 0           my $response = Shippo::Request->post( $class->url, @params );
14 0           return $class->construct_from( $response, $callbacks );
15             }
16              
17             BEGIN {
18 7     7   41 no warnings 'once';
  7         209  
  7         325  
19 7     7   190 *Shippo::Creator:: = *WebService::Shippo::Creator::;
20             }
21              
22             1;