File Coverage

lib/eBay/API/XML/Call/SetCart.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::SetCart;
4              
5 1     1   2307 use strict;
  1         2  
  1         27  
6 1     1   5 use warnings;
  1         2  
  1         30  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. SetCart.pm
12             # Generated by: ......... genEBayApiDataTypes.pl
13             # Last Generated: ....... 07/07/2008 17:42
14             # API Release Number: ... 571
15             #
16             ##########################################################################
17              
18             =head1 NAME
19              
20             eBay::API::XML::Call::SetCart
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::Call::SetCart inherits from the L class
34              
35             =cut
36              
37 1     1   43 use eBay::API::XML::BaseCall;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseCall");
39              
40             use eBay::API::XML::Call::SetCart::SetCartRequestType;
41             use eBay::API::XML::Call::SetCart::SetCartResponseType;
42              
43              
44             =head1 Subroutines:
45              
46             =cut
47              
48             sub getApiCallName {
49             return 'SetCart';
50             }
51             sub getRequestDataTypeFullPackage {
52             return 'eBay::API::XML::Call::SetCart::SetCartRequestType';
53             }
54             sub getResponseDataTypeFullPackage {
55             return 'eBay::API::XML::Call::SetCart::SetCartResponseType';
56             }
57              
58             #
59             # input properties
60             #
61              
62             =head2 setAffiliateTrackingDetails()
63              
64             Container for affiliate tags.
65             If you use affiliate tags, it is possible to get affiliate commissions
66             based on calls made by your application.
67             (See the eBay Partner Network
68             for information about commissions.)
69             Affiliate tags enable the tracking of user activity.
70             You can use child tags of AffiliateTrackingDetails if you want
71             call output to include a string, in
72             Item.ListingDetails.ViewItemURL, that includes
73             affiliate tracking information.
74             Affiliate details that you provide appear in the CheckoutURL that is returned by SetCart.
75             Child elements of this element that are marked as conditionally required are required
76             only if this container is present.
77              
78             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=AffiliateTrackingConcepts
79             Title: Affiliate Tracking Concepts
80              
81             RequiredInput: No
82             # Argument: 'ns:AffiliateTrackingDetailsType'
83              
84             =cut
85            
86             sub setAffiliateTrackingDetails {
87             my $self = shift;
88             my $pAffiliateTrackingDetails = shift;
89             $self->getRequestDataType()->setAffiliateTrackingDetails($pAffiliateTrackingDetails);
90             }
91              
92             =head2 setCartID()
93              
94             The ID of an existing cart whose contents you wish to modify.
95             To create a new cart, omit this tag altogether and preserve
96             the CartID that is returned for subsequent calls to SetCart for that cart.
97              
98             RequiredInput: Conditionally
99             # Argument: 'xs:long'
100              
101             =cut
102            
103             sub setCartID {
104             my $self = shift;
105             my $sCartID = shift;
106             $self->getRequestDataType()->setCartID($sCartID);
107             }
108              
109             =head2 setCartItemArray()
110              
111             Array of CartItem (details about items and what is to be done with each,
112             such as add, delete, update).
113              
114             RequiredInput: No
115             # Argument: 'ns:CartItemArrayType'
116              
117             =cut
118            
119             sub setCartItemArray {
120             my $self = shift;
121             my $pCartItemArray = shift;
122             $self->getRequestDataType()->setCartItemArray($pCartItemArray);
123             }
124              
125             =head2 setCheckoutCompleteRedirect()
126              
127             When the user has completed eBay Express checkout with the shopping cart, the
128             user is shown a link to your website. This element enables you to define the
129             properties of that link--its URL and its visible name.
130              
131             RequiredInput: No
132             # Argument: 'ns:CheckoutCompleteRedirectType'
133              
134             =cut
135            
136             sub setCheckoutCompleteRedirect {
137             my $self = shift;
138             my $pCheckoutCompleteRedirect = shift;
139             $self->getRequestDataType()->setCheckoutCompleteRedirect($pCheckoutCompleteRedirect);
140             }
141              
142             =head2 setShippingAddress()
143              
144             The country and postal code to which the items in the cart are to be shipped. Required only
145             if you want shipping costs calculated for those items for which calculated
146             shipping applies. Of no value if there are no items in the cart with calculated shipping.
147              
148             RequiredInput: No
149             # Argument: 'ns:AddressType'
150              
151             =cut
152            
153             sub setShippingAddress {
154             my $self = shift;
155             my $pShippingAddress = shift;
156             $self->getRequestDataType()->setShippingAddress($pShippingAddress);
157             }
158              
159              
160              
161             #
162             # output properties
163             #
164              
165             =head2 getCart()
166              
167             Details about the cart.
168              
169             Returned: Always
170             # Returns: 'ns:CartType'
171              
172             =cut
173            
174             sub getCart {
175             my $self = shift;
176             return $self->getResponseDataType()->getCart();
177             }
178              
179              
180              
181              
182              
183             1;