File Coverage

lib/eBay/API/XML/Call/GetUserContactDetails.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::GetUserContactDetails;
4              
5 1     1   2321 use strict;
  1         1  
  1         25  
6 1     1   4 use warnings;
  1         1  
  1         24  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetUserContactDetails.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::GetUserContactDetails
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::Call::GetUserContactDetails inherits from the L class
34              
35             =cut
36              
37 1     1   38 use eBay::API::XML::BaseCall;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseCall");
39              
40             use eBay::API::XML::Call::GetUserContactDetails::GetUserContactDetailsRequestType;
41             use eBay::API::XML::Call::GetUserContactDetails::GetUserContactDetailsResponseType;
42              
43              
44             =head1 Subroutines:
45              
46             =cut
47              
48             sub getApiCallName {
49             return 'GetUserContactDetails';
50             }
51             sub getRequestDataTypeFullPackage {
52             return 'eBay::API::XML::Call::GetUserContactDetails::GetUserContactDetailsRequestType';
53             }
54             sub getResponseDataTypeFullPackage {
55             return 'eBay::API::XML::Call::GetUserContactDetails::GetUserContactDetailsResponseType';
56             }
57              
58             #
59             # input properties
60             #
61              
62             =head2 setContactID()
63              
64             An eBay ID that uniquely identifies a given
65             user. The same as the contact's eBay username.
66             Either the seller's or bidder's username may be
67             specified here, as long as a bidding
68             relationship exists between them. That is, the
69             bidder must be bidding on the seller's active
70             item, or an eBay user must have made an offer on
71             the item via Best Offer.
72              
73             RequiredInput: Yes
74             # Argument: 'xs:string'
75              
76             =cut
77            
78             sub setContactID {
79             my $self = shift;
80             my $sContactID = shift;
81             $self->getRequestDataType()->setContactID($sContactID);
82             }
83              
84             =head2 setItemID()
85              
86             An eBay ID that uniquely identifies a given
87             item. Must be a currently active item.
88              
89             MaxLength: 19 (Note: The eBay database specifies 38. Currently, Item IDs are usually 9 to 12 digits)
90              
91             RequiredInput: Yes
92             # Argument: 'xs:string'
93              
94             =cut
95            
96             sub setItemID {
97             my $self = shift;
98             my $sItemID = shift;
99             $self->getRequestDataType()->setItemID($sItemID);
100             }
101              
102             =head2 setRequesterID()
103              
104             An eBay ID that uniquely identifies a given
105             user. The same as the seller's eBay username.
106             Either the seller's or bidder's username may be
107             specified here, as long as a bidding
108             relationship exists between them. That is, the
109             bidder must be bidding on the seller's active
110             item, or an eBay user must have made an offer on
111             the item via Best Offer.
112              
113             RequiredInput: Yes
114             # Argument: 'xs:string'
115              
116             =cut
117            
118             sub setRequesterID {
119             my $self = shift;
120             my $sRequesterID = shift;
121             $self->getRequestDataType()->setRequesterID($sRequesterID);
122             }
123              
124              
125              
126             #
127             # output properties
128             #
129              
130             =head2 getContactAddress()
131              
132             Contact information for the requested contact.
133             Note that the email address is NOT returned.
134              
135             Returned: Always
136             # Returns: 'ns:AddressType'
137              
138             =cut
139            
140             sub getContactAddress {
141             my $self = shift;
142             return $self->getResponseDataType()->getContactAddress();
143             }
144              
145             =head2 getRegistrationDate()
146              
147             The date and time that the requested contact
148             registered with eBay.
149              
150             Returned: Always
151             # Returns: 'xs:dateTime'
152              
153             =cut
154            
155             sub getRegistrationDate {
156             my $self = shift;
157             return $self->getResponseDataType()->getRegistrationDate();
158             }
159              
160             =head2 getUserID()
161              
162             An eBay ID that uniquely identifies a given
163             user. The eBay username of the requested
164             contact.
165              
166             Returned: Always
167             # Returns: 'xs:string'
168              
169             =cut
170            
171             sub getUserID {
172             my $self = shift;
173             return $self->getResponseDataType()->getUserID();
174             }
175              
176              
177              
178              
179              
180             1;