File Coverage

lib/eBay/API/XML/Call/GetUserContactDetails/GetUserContactDetailsRequestType.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::GetUserContactDetailsRequestType;
4              
5 1     1   1474 use strict;
  1         3  
  1         27  
6 1     1   5 use warnings;
  1         1  
  1         29  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetUserContactDetailsRequestType.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::GetUserContactDetailsRequestType
21              
22             =head1 DESCRIPTION
23              
24             Returns contact information for a specified user if a
25             bidding relationship exists.
26             The bidder must be bidding on the seller's active
27             item, or an eBay user must have made an offer on
28             the item using Best Offer.
29             The item must be in the Motors or Business & Industrial categories.
30             Bidders can use this call to contact
31             sellers of an item they are bidding on or have made an
32             offer on (through Best Offer).
33             Note that this call does NOT return an email address.
34             Sellers who wish to send an
35             email to bidders should use AddMemberMessagesAAQToBidder.
36              
37              
38              
39             =head1 SYNOPSIS
40              
41             =cut
42              
43              
44             =head1 INHERITANCE
45              
46             eBay::API::XML::Call::GetUserContactDetails::GetUserContactDetailsRequestType inherits from the L class
47              
48             =cut
49              
50 1     1   33 use eBay::API::XML::RequestDataType;
  0            
  0            
51             our @ISA = ("eBay::API::XML::RequestDataType");
52              
53              
54              
55             my @gaProperties = ( [ 'ContactID', 'xs:string', '', '', '' ]
56             , [ 'ItemID', 'xs:string', '', '', '' ]
57             , [ 'RequesterID', 'xs:string', '', '', '' ]
58             );
59             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
60              
61             my @gaAttributes = (
62             );
63             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
64              
65             =head1 Subroutines:
66              
67             =cut
68              
69             sub new {
70             my $classname = shift;
71             my %args = @_;
72             my $self = $classname->SUPER::new(%args);
73             return $self;
74             }
75              
76             sub isScalar {
77             return 0;
78             }
79              
80              
81              
82             =head2 setContactID()
83              
84             An eBay ID that uniquely identifies a given
85             user. The same as the contact's eBay username.
86             Either the seller's or bidder's username may be
87             specified here, as long as a bidding
88             relationship exists between them. That is, the
89             bidder must be bidding on the seller's active
90             item, or an eBay user must have made an offer on
91             the item via Best Offer.
92              
93             RequiredInput: Yes
94             # Argument: 'xs:string'
95              
96             =cut
97              
98             sub setContactID {
99             my $self = shift;
100             $self->{'ContactID'} = shift
101             }
102              
103             =head2 getContactID()
104              
105             # Returns: 'xs:string'
106              
107             =cut
108              
109             sub getContactID {
110             my $self = shift;
111             return $self->{'ContactID'};
112             }
113              
114              
115             =head2 setItemID()
116              
117             An eBay ID that uniquely identifies a given
118             item. Must be a currently active item.
119              
120             MaxLength: 19 (Note: The eBay database specifies 38. Currently, Item IDs are usually 9 to 12 digits)
121              
122             RequiredInput: Yes
123             # Argument: 'xs:string'
124              
125             =cut
126              
127             sub setItemID {
128             my $self = shift;
129             $self->{'ItemID'} = shift
130             }
131              
132             =head2 getItemID()
133              
134             # Returns: 'xs:string'
135              
136             =cut
137              
138             sub getItemID {
139             my $self = shift;
140             return $self->{'ItemID'};
141             }
142              
143              
144             =head2 setRequesterID()
145              
146             An eBay ID that uniquely identifies a given
147             user. The same as the seller's eBay username.
148             Either the seller's or bidder's username may be
149             specified here, as long as a bidding
150             relationship exists between them. That is, the
151             bidder must be bidding on the seller's active
152             item, or an eBay user must have made an offer on
153             the item via Best Offer.
154              
155             RequiredInput: Yes
156             # Argument: 'xs:string'
157              
158             =cut
159              
160             sub setRequesterID {
161             my $self = shift;
162             $self->{'RequesterID'} = shift
163             }
164              
165             =head2 getRequesterID()
166              
167             # Returns: 'xs:string'
168              
169             =cut
170              
171             sub getRequesterID {
172             my $self = shift;
173             return $self->{'RequesterID'};
174             }
175              
176              
177              
178              
179              
180             ## Attribute and Property lists
181             sub getPropertiesList {
182             my $self = shift;
183             return \@gaProperties;
184             }
185              
186             sub getAttributesList {
187             my $self = shift;
188             return \@gaAttributes;
189             }
190              
191              
192              
193             1;