File Coverage

lib/eBay/API/XML/Call/AddDisputeResponse.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::AddDisputeResponse;
4              
5 1     1   2988 use strict;
  1         2  
  1         34  
6 1     1   4 use warnings;
  1         2  
  1         33  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. AddDisputeResponse.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::AddDisputeResponse
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::Call::AddDisputeResponse inherits from the L class
34              
35             =cut
36              
37 1     1   41 use eBay::API::XML::BaseCall;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseCall");
39              
40             use eBay::API::XML::Call::AddDisputeResponse::AddDisputeResponseRequestType;
41             use eBay::API::XML::Call::AddDisputeResponse::AddDisputeResponseResponseType;
42              
43              
44             =head1 Subroutines:
45              
46             =cut
47              
48             sub getApiCallName {
49             return 'AddDisputeResponse';
50             }
51             sub getRequestDataTypeFullPackage {
52             return 'eBay::API::XML::Call::AddDisputeResponse::AddDisputeResponseRequestType';
53             }
54             sub getResponseDataTypeFullPackage {
55             return 'eBay::API::XML::Call::AddDisputeResponse::AddDisputeResponseResponseType';
56             }
57              
58             #
59             # input properties
60             #
61              
62             =head2 setDisputeActivity()
63              
64             The type of activity the seller is taking on the dispute.
65             The allowed value is determined by the current value of
66             DisputeState, returned by GetDispute or GetUserDisputes.
67             Some values are for Unpaid Item disputes and some are for Item
68             Not Received disputes.
69              
70             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=UnpaidItemDisputes
71             Title: Unpaid Item Disputes
72             , URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=ItemNotReceivedDisputes
73             Title: Item Not Received Disputes
74              
75              
76             RequiredInput: Conditionally
77             # Argument: 'ns:DisputeActivityCodeType'
78              
79             =cut
80            
81             sub setDisputeActivity {
82             my $self = shift;
83             my $sDisputeActivity = shift;
84             $self->getRequestDataType()->setDisputeActivity($sDisputeActivity);
85             }
86              
87             =head2 setDisputeID()
88              
89             The unique identifier of the dispute,
90             returned when the dispute was created.
91              
92             RequiredInput: Yes
93             # Argument: 'ns:DisputeIDType'
94              
95             =cut
96            
97             sub setDisputeID {
98             my $self = shift;
99             my $pDisputeID = shift;
100             $self->getRequestDataType()->setDisputeID($pDisputeID);
101             }
102              
103             =head2 setMessageText()
104              
105             The text of a comment or response being posted to the dispute. Required
106             when DisputeActivity is SellerAddInformation, SellerComment, or
107             SellerPaymentNotReceived; otherwise, optional.
108              
109             RequiredInput: Conditionally
110             # Argument: 'xs:string'
111              
112             =cut
113            
114             sub setMessageText {
115             my $self = shift;
116             my $sMessageText = shift;
117             $self->getRequestDataType()->setMessageText($sMessageText);
118             }
119              
120             =head2 setShipmentTrackNumber()
121              
122             The shipper's tracking number for the item being shipped. Required
123             if DisputeActivity is SellerShippedItem; otherwise, optional.
124              
125             RequiredInput: Conditionally
126             # Argument: 'xs:string'
127              
128             =cut
129            
130             sub setShipmentTrackNumber {
131             my $self = shift;
132             my $sShipmentTrackNumber = shift;
133             $self->getRequestDataType()->setShipmentTrackNumber($sShipmentTrackNumber);
134             }
135              
136             =head2 setShippingCarrierUsed()
137              
138             The shipping carrier used for the item in dispute. Required if DisputeActivity
139             is SellerShippedItem; otherwise, optional.
140              
141             RequiredInput: Conditionally
142             # Argument: 'xs:string'
143              
144             =cut
145            
146             sub setShippingCarrierUsed {
147             my $self = shift;
148             my $sShippingCarrierUsed = shift;
149             $self->getRequestDataType()->setShippingCarrierUsed($sShippingCarrierUsed);
150             }
151              
152             =head2 setShippingTime()
153              
154             The date the item under dispute was shipped. Required if DisputeActivity
155             is SellerShippedItem; otherwise, optional.
156              
157             RequiredInput: Conditionally
158             # Argument: 'xs:dateTime'
159              
160             =cut
161            
162             sub setShippingTime {
163             my $self = shift;
164             my $sShippingTime = shift;
165             $self->getRequestDataType()->setShippingTime($sShippingTime);
166             }
167              
168              
169              
170             #
171             # output properties
172             #
173              
174              
175              
176              
177              
178             1;