File Coverage

lib/eBay/API/XML/DataType/LiveAuctionDetailsType.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::DataType::LiveAuctionDetailsType;
4              
5 1     1   1967 use strict;
  1         4  
  1         40  
6 1     1   7 use warnings;
  1         2  
  1         71  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. LiveAuctionDetailsType.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::DataType::LiveAuctionDetailsType
21              
22             =head1 DESCRIPTION
23              
24             Describes the live auction-specific details of a lot item.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::LiveAuctionDetailsType inherits from the L class
36              
37             =cut
38              
39 1     1   47 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::AmountType;
43              
44              
45             my @gaProperties = ( [ 'HighEstimate', 'ns:AmountType', ''
46             ,'eBay::API::XML::DataType::AmountType', '1' ]
47             , [ 'LotNumber', 'xs:string', '', '', '' ]
48             , [ 'LowEstimate', 'ns:AmountType', ''
49             ,'eBay::API::XML::DataType::AmountType', '1' ]
50             , [ 'ScheduleID', 'xs:int', '', '', '' ]
51             , [ 'UserCatalogID', 'xs:int', '', '', '' ]
52             );
53             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
54              
55             my @gaAttributes = (
56             );
57             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
58              
59             =head1 Subroutines:
60              
61             =cut
62              
63             sub new {
64             my $classname = shift;
65             my %args = @_;
66             my $self = $classname->SUPER::new(%args);
67             return $self;
68             }
69              
70             sub isScalar {
71             return 0;
72             }
73              
74              
75              
76             =head2 setHighEstimate()
77              
78             Highest appraised value for the item.
79             Must be greater than zero and greater than the value in LowEstimate.
80             (Pass an integer value only, not a double.)
81              
82             Calls: AddLiveAuctionItem
83             RequiredInput: Yes
84              
85             Calls: ReviseLiveAuctionItem
86             RequiredInput: No
87              
88             # Argument: 'ns:AmountType'
89              
90             =cut
91              
92             sub setHighEstimate {
93             my $self = shift;
94             $self->{'HighEstimate'} = shift
95             }
96              
97             =head2 getHighEstimate()
98              
99             # Returns: 'ns:AmountType'
100              
101             =cut
102              
103             sub getHighEstimate {
104             my $self = shift;
105             return $self->_getDataTypeInstance( 'HighEstimate'
106             ,'eBay::API::XML::DataType::AmountType');
107             }
108              
109              
110             =head2 setLotNumber()
111              
112             Lot number defined by the seller. Each lot number must be unique within the schedule.
113             A lot number can consist of 1-10 alphanumeric characters beginning with a
114             number from 0-9. If all values are numbers, the highest allowed value is 2147483647.
115              
116             Calls: AddLiveAuctionItem
117             RequiredInput: Yes
118              
119             Calls: ReviseLiveAuctionItem
120             RequiredInput: No
121              
122             # Argument: 'xs:string'
123              
124             =cut
125              
126             sub setLotNumber {
127             my $self = shift;
128             $self->{'LotNumber'} = shift
129             }
130              
131             =head2 getLotNumber()
132              
133             # Returns: 'xs:string'
134              
135             =cut
136              
137             sub getLotNumber {
138             my $self = shift;
139             return $self->{'LotNumber'};
140             }
141              
142              
143             =head2 setLowEstimate()
144              
145             Lowest appraised value for the item. Must be greater than zero and
146             less than the value in HighEstimate.
147             (Pass an integer value only, not a double.)
148              
149             Calls: AddLiveAuctionItem
150             RequiredInput: Yes
151              
152             Calls: ReviseLiveAuctionItem
153             RequiredInput: No
154              
155             # Argument: 'ns:AmountType'
156              
157             =cut
158              
159             sub setLowEstimate {
160             my $self = shift;
161             $self->{'LowEstimate'} = shift
162             }
163              
164             =head2 getLowEstimate()
165              
166             # Returns: 'ns:AmountType'
167              
168             =cut
169              
170             sub getLowEstimate {
171             my $self = shift;
172             return $self->_getDataTypeInstance( 'LowEstimate'
173             ,'eBay::API::XML::DataType::AmountType');
174             }
175              
176              
177             =head2 setScheduleID()
178              
179             Number that identifies the sale schedule for the lot. The schedule ID must be
180             for a pending sale associated with the catalog identified in UserCatalogID.
181             Call GetLiveAuctionCatalogDetails to determine the valid schedule IDs for the catalog.
182              
183             Calls: AddLiveAuctionItem
184             ReviseLiveAuctionItem
185             RequiredInput: Yes
186              
187             # Argument: 'xs:int'
188              
189             =cut
190              
191             sub setScheduleID {
192             my $self = shift;
193             $self->{'ScheduleID'} = shift
194             }
195              
196             =head2 getScheduleID()
197              
198             # Returns: 'xs:int'
199              
200             =cut
201              
202             sub getScheduleID {
203             my $self = shift;
204             return $self->{'ScheduleID'};
205             }
206              
207              
208             =head2 setUserCatalogID()
209              
210             Number that identifies the seller's eBay Live Auctions catalog
211             within which the lot item will be listed. Use GetLiveAuctionCatalogDetails
212             to determine the seller's available catalog IDs.
213              
214             Calls: AddLiveAuctionItem
215             RequiredInput: Yes
216              
217             # Argument: 'xs:int'
218              
219             =cut
220              
221             sub setUserCatalogID {
222             my $self = shift;
223             $self->{'UserCatalogID'} = shift
224             }
225              
226             =head2 getUserCatalogID()
227              
228             # Returns: 'xs:int'
229              
230             =cut
231              
232             sub getUserCatalogID {
233             my $self = shift;
234             return $self->{'UserCatalogID'};
235             }
236              
237              
238              
239              
240              
241             ## Attribute and Property lists
242             sub getPropertiesList {
243             my $self = shift;
244             return \@gaProperties;
245             }
246              
247             sub getAttributesList {
248             my $self = shift;
249             return \@gaAttributes;
250             }
251              
252              
253              
254             1;