File Coverage

lib/eBay/API/XML/Call/GetItemShipping.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package eBay::API::XML::Call::GetItemShipping;
4              
5 1     1   3988 use strict;
  1         4  
  1         63  
6 1     1   9 use warnings;
  1         3  
  1         53  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetItemShipping.pm
12             # Generated by: ......... genEBayApiDataTypes.pl
13             # Last Generated: ....... 08/24/2008 16:44
14             # API Release Number: ... 579
15             #
16             ##########################################################################
17              
18             =head1 NAME
19              
20             eBay::API::XML::Call::GetItemShipping
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::Call::GetItemShipping inherits from the L class
34              
35             =cut
36              
37 1     1   65 use eBay::API::XML::BaseCall;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseCall");
39              
40             use eBay::API::XML::Call::GetItemShipping::GetItemShippingRequestType;
41             use eBay::API::XML::Call::GetItemShipping::GetItemShippingResponseType;
42              
43              
44             =head1 Subroutines:
45              
46             =cut
47              
48             sub getApiCallName {
49             return 'GetItemShipping';
50             }
51             sub getRequestDataTypeFullPackage {
52             return 'eBay::API::XML::Call::GetItemShipping::GetItemShippingRequestType';
53             }
54             sub getResponseDataTypeFullPackage {
55             return 'eBay::API::XML::Call::GetItemShipping::GetItemShippingResponseType';
56             }
57              
58             #
59             # input properties
60             #
61              
62             =head2 setDestinationCountryCode()
63              
64             Destination country code. If DestinationCountryCode is US,
65             postal code is required and represents US zip code.
66              
67             Default: US
68              
69             RequiredInput: Conditionally
70             # Argument: 'ns:CountryCodeType'
71              
72             =cut
73            
74             sub setDestinationCountryCode {
75             my $self = shift;
76             my $sDestinationCountryCode = shift;
77             $self->getRequestDataType()->setDestinationCountryCode($sDestinationCountryCode);
78             }
79              
80             =head2 setDestinationPostalCode()
81              
82             Destination country postal code (or zipcode, for US). Ignored if no
83             country code is provided. Optional tag for some countries. More likely to
84             be required for large countries.
85              
86             RequiredInput: Conditionally
87             # Argument: 'xs:string'
88              
89             =cut
90            
91             sub setDestinationPostalCode {
92             my $self = shift;
93             my $sDestinationPostalCode = shift;
94             $self->getRequestDataType()->setDestinationPostalCode($sDestinationPostalCode);
95             }
96              
97             =head2 setItemID()
98              
99             The item ID that uniquely identifies the item listing for which
100             to retrieve the data. Required input.
101              
102             MaxLength: 19 (Note: The eBay database specifies 38. Currently, Item IDs are usually 9 to 12 digits)
103              
104             RequiredInput: Yes
105             # Argument: 'ns:ItemIDType'
106              
107             =cut
108            
109             sub setItemID {
110             my $self = shift;
111             my $pItemID = shift;
112             $self->getRequestDataType()->setItemID($pItemID);
113             }
114              
115             =head2 setQuantitySold()
116              
117             Number of items sold to a single buyer and to be shipped together.
118              
119             RequiredInput: No
120             # Argument: 'xs:int'
121              
122             =cut
123            
124             sub setQuantitySold {
125             my $self = shift;
126             my $sQuantitySold = shift;
127             $self->getRequestDataType()->setQuantitySold($sQuantitySold);
128             }
129              
130              
131              
132             #
133             # output properties
134             #
135              
136             =head2 getShippingDetails()
137              
138             Shipping-related details for the specified item. Any error about shipping services
139             (returned by a vendor of eBay's who calculates shipping costs) is returned in
140             ShippingRateErrorMessage. Errors from a shipping service are likely to be related to
141             issues with shipping specifications, such as package size and the selected shipping
142             method not supported by a particular shipping service.
143            
It is possible for a seller to offer a shipping service which turns out
144             to be a mismatch in some way with the item(s) being shipped. For example, if a
145             buyer purchases more than one of an item, the weight might be too great for First
146             Class mail. In such a case, GetItemShipping will omit that shipping service from
147             the response.
148              
149             Returned: Always
150             # Returns: 'ns:ShippingDetailsType'
151              
152             =cut
153            
154             sub getShippingDetails {
155             my $self = shift;
156             return $self->getResponseDataType()->getShippingDetails();
157             }
158              
159              
160              
161              
162              
163             1;