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   42 use strict;
  7         17  
  7         192  
2 7     7   52 use warnings;
  7         13  
  7         190  
3 7     7   38 use MRO::Compat 'c3';
  7         14  
  7         335  
4              
5             package WebService::Shippo::Create;
6             require WebService::Shippo::Request;
7 7     7   41 use Params::Callbacks ( 'callbacks' );
  7         16  
  7         973  
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         15  
  7         525  
19 7     7   159 *Shippo::Creator:: = *WebService::Shippo::Creator::;
20             }
21              
22             1;