File Coverage

lib/eBay/API/XML/Call/GetUser/GetUserRequestType.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::GetUser::GetUserRequestType;
4              
5 1     1   1480 use strict;
  1         3  
  1         27  
6 1     1   5 use warnings;
  1         2  
  1         28  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetUserRequestType.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::GetUser::GetUserRequestType
21              
22             =head1 DESCRIPTION
23              
24             Retrieves information about a user. Input fields control what user
25             data is returned. This includes the eBay user ID for the user
26             whose data is to be returned and the item ID for a listing to
27             indicate a transactional relationship between the requestor and
28             the target user.
29              
30              
31              
32             =head1 SYNOPSIS
33              
34             =cut
35              
36              
37             =head1 INHERITANCE
38              
39             eBay::API::XML::Call::GetUser::GetUserRequestType inherits from the L class
40              
41             =cut
42              
43 1     1   32 use eBay::API::XML::RequestDataType;
  0            
  0            
44             our @ISA = ("eBay::API::XML::RequestDataType");
45              
46             use eBay::API::XML::DataType::ItemIDType;
47              
48              
49             my @gaProperties = ( [ 'IncludeExpressRequirements', 'xs:boolean', '', '', '' ]
50             , [ 'ItemID', 'ns:ItemIDType', ''
51             ,'eBay::API::XML::DataType::ItemIDType', '1' ]
52             , [ 'UserID', 'xs:string', '', '', '' ]
53             );
54             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
55              
56             my @gaAttributes = (
57             );
58             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
59              
60             =head1 Subroutines:
61              
62             =cut
63              
64             sub new {
65             my $classname = shift;
66             my %args = @_;
67             my $self = $classname->SUPER::new(%args);
68             return $self;
69             }
70              
71             sub isScalar {
72             return 0;
73             }
74              
75              
76              
77             =head2 setIncludeExpressRequirements()
78              
79             Indicates if the response should include detailed information relating to
80             whether a user qualifies to list an item on Express. To list an item on Express, a user must qualify based on conditions described in the eBay Web Services Guide.
81              
82             Default: false
83             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=ExpressSellerCriteria
84             Title: Seller Criteria for eBay Express
85              
86             RequiredInput: No
87             # Argument: 'xs:boolean'
88              
89             =cut
90              
91             sub setIncludeExpressRequirements {
92             my $self = shift;
93             $self->{'IncludeExpressRequirements'} = shift
94             }
95              
96             =head2 isIncludeExpressRequirements()
97              
98             # Returns: 'xs:boolean'
99              
100             =cut
101              
102             sub isIncludeExpressRequirements {
103             my $self = shift;
104             return $self->{'IncludeExpressRequirements'};
105             }
106              
107              
108             =head2 setItemID()
109              
110             Specifies the item ID for a successfully concluded listing in which
111             the requestor and target user were participants (one as seller and
112             the other as buyer). Necessary to return certain data (like an email
113             address). Not necessary if the requestor is retrieving their own data.
114             ItemID is an optional input.
115              
116             MaxLength: 19 (Note: The eBay database specifies 38. Currently, Item IDs are usually 9 to 12 digits)
117              
118             RequiredInput: No
119             # Argument: 'ns:ItemIDType'
120              
121             =cut
122              
123             sub setItemID {
124             my $self = shift;
125             $self->{'ItemID'} = shift
126             }
127              
128             =head2 getItemID()
129              
130             # Returns: 'ns:ItemIDType'
131              
132             =cut
133              
134             sub getItemID {
135             my $self = shift;
136             return $self->_getDataTypeInstance( 'ItemID'
137             ,'eBay::API::XML::DataType::ItemIDType');
138             }
139              
140              
141             =head2 setUserID()
142              
143             Specifies the user whose data will be returned by the call. UserID is
144             optional. If not specified, the user data returned is for
145             the requesting user (as specified with the eBayAuthToken).
146              
147             RequiredInput: No
148             # Argument: 'xs:string'
149              
150             =cut
151              
152             sub setUserID {
153             my $self = shift;
154             $self->{'UserID'} = shift
155             }
156              
157             =head2 getUserID()
158              
159             # Returns: 'xs:string'
160              
161             =cut
162              
163             sub getUserID {
164             my $self = shift;
165             return $self->{'UserID'};
166             }
167              
168              
169              
170              
171              
172             ## Attribute and Property lists
173             sub getPropertiesList {
174             my $self = shift;
175             return \@gaProperties;
176             }
177              
178             sub getAttributesList {
179             my $self = shift;
180             return \@gaAttributes;
181             }
182              
183              
184              
185             1;