File Coverage

lib/eBay/API/XML/DataType/LiveAuctionCatalogType.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::LiveAuctionCatalogType;
4              
5 1     1   1249 use strict;
  1         2  
  1         49  
6 1     1   6 use warnings;
  1         1  
  1         34  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. LiveAuctionCatalogType.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::LiveAuctionCatalogType
21              
22             =head1 DESCRIPTION
23              
24             Describes one live auction catalog and its sale schedules.
25             Use this information to determine an appropriate combination of catalog and schedule IDs
26             in which to list a lot item when you use AddLiveAuctionItem.
27              
28              
29              
30             =head1 SYNOPSIS
31              
32             =cut
33              
34              
35             =head1 INHERITANCE
36              
37             eBay::API::XML::DataType::LiveAuctionCatalogType inherits from the L class
38              
39             =cut
40              
41 1     1   38 use eBay::API::XML::BaseDataType;
  0            
  0            
42             our @ISA = ("eBay::API::XML::BaseDataType");
43              
44             use eBay::API::XML::DataType::ScheduleType;
45              
46              
47             my @gaProperties = ( [ 'CatalogName', 'xs:string', '', '', '' ]
48             , [ 'Schedule', 'ns:ScheduleType', '1'
49             ,'eBay::API::XML::DataType::ScheduleType', '1' ]
50             , [ 'UserCatalogID', 'xs:int', '', '', '' ]
51             );
52             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
53              
54             my @gaAttributes = (
55             );
56             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
57              
58             =head1 Subroutines:
59              
60             =cut
61              
62             sub new {
63             my $classname = shift;
64             my %args = @_;
65             my $self = $classname->SUPER::new(%args);
66             return $self;
67             }
68              
69             sub isScalar {
70             return 0;
71             }
72              
73              
74              
75             =head2 setCatalogName()
76              
77             Descriptive name that the seller created for the catalog.
78             Pass as input to AddLiveAuctionItem when you list a lot item.
79              
80             MaxLength: 45
81              
82             # Argument: 'xs:string'
83              
84             =cut
85              
86             sub setCatalogName {
87             my $self = shift;
88             $self->{'CatalogName'} = shift
89             }
90              
91             =head2 getCatalogName()
92              
93             Calls: GetLiveAuctionCatalogDetails
94             Returned: Conditionally
95              
96             # Returns: 'xs:string'
97              
98             =cut
99              
100             sub getCatalogName {
101             my $self = shift;
102             return $self->{'CatalogName'};
103             }
104              
105              
106             =head2 setSchedule()
107              
108             Describes a single live auction sale schedule that the user defined.
109             A seller can define a maximum of 5 schedules for each catalog.
110             Each schedule defines the start and end time of a live auction event.
111             (Only the start time is returned from GetLiveAuctionCatalogDetails.)
112             A schedule must be created at least 48 hours in advance of the auction.
113             The seller then lists one or more lots that will be auctioned during that event.
114             Only schedules for future sales are returned. That is, schedules for
115             ended sales or sales in progress are not returned.
116             Pass as input to AddLiveAuctionItem when you list a lot item.
117              
118             # Argument: reference to an array
119             of 'ns:ScheduleType'
120              
121             =cut
122              
123             sub setSchedule {
124             my $self = shift;
125             $self->{'Schedule'} =
126             $self->convertArray_To_RefToArrayIfNeeded(@_);
127             }
128              
129             =head2 getSchedule()
130              
131             Calls: GetLiveAuctionCatalogDetails
132             Returned: Conditionally
133              
134             # Returns: reference to an array
135             of 'ns:ScheduleType'
136              
137             =cut
138              
139             sub getSchedule {
140             my $self = shift;
141             return $self->_getDataTypeArray('Schedule');
142             }
143              
144              
145             =head2 setUserCatalogID()
146              
147             ID number identifiying a specific eBay Live Auctions catalog that the user has created.
148             Pass as input to AddLiveAuctionItem when you list a lot item.
149              
150             # Argument: 'xs:int'
151              
152             =cut
153              
154             sub setUserCatalogID {
155             my $self = shift;
156             $self->{'UserCatalogID'} = shift
157             }
158              
159             =head2 getUserCatalogID()
160              
161             Calls: GetLiveAuctionCatalogDetails
162             Returned: Conditionally
163              
164             # Returns: 'xs:int'
165              
166             =cut
167              
168             sub getUserCatalogID {
169             my $self = shift;
170             return $self->{'UserCatalogID'};
171             }
172              
173              
174              
175              
176              
177             ## Attribute and Property lists
178             sub getPropertiesList {
179             my $self = shift;
180             return \@gaProperties;
181             }
182              
183             sub getAttributesList {
184             my $self = shift;
185             return \@gaAttributes;
186             }
187              
188              
189              
190             1;