File Coverage

lib/eBay/API/XML/DataType/RequestCategoriesType.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::RequestCategoriesType;
4              
5 1     1   1327 use strict;
  1         3  
  1         34  
6 1     1   5 use warnings;
  1         2  
  1         33  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. RequestCategoriesType.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::RequestCategoriesType
21              
22             =head1 DESCRIPTION
23              
24             A set of parameters that control the retrieval of categories (not items)
25             that match a search query. In GetSearchResults, at least one child element
26             must be specified in order to retrieve matching categories. If empty or
27             not present, no matching category information is returned.
28              
29              
30              
31             =head1 SYNOPSIS
32              
33             =cut
34              
35              
36             =head1 INHERITANCE
37              
38             eBay::API::XML::DataType::RequestCategoriesType inherits from the L class
39              
40             =cut
41              
42 1     1   41 use eBay::API::XML::BaseDataType;
  0            
  0            
43             our @ISA = ("eBay::API::XML::BaseDataType");
44              
45              
46              
47             my @gaProperties = ( [ 'CategoriesOnly', 'xs:boolean', '', '', '' ]
48             , [ 'DemandData', 'xs:boolean', '', '', '' ]
49             , [ 'Levels', 'xs:int', '', '', '' ]
50             , [ 'MaxCategories', 'xs:int', '', '', '' ]
51             , [ 'MaxSubcategories', '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 setCategoriesOnly()
77              
78             Filter to retrieve matching categories but not matching items or buying
79             guides.
80             If true, only matching categories are returned (with no item or buying
81             guide details).
82             If false or not present, matching items and matching categories are both
83             returned, along with buying guide details (if any).
84             If TotalOnly and Categories.CategoriesOnly are both specified
85             in the request and their values are inconsistent with each other,
86             TotalOnly overrides Categories.CategoriesOnly.
87             That is, if TotalOnly is true and Categories.CategoriesOnly is false,
88             the results include matching categories but no item data or buying
89             guides.
90             If TotalOnly is false and Categories.CategoriesOnly is true, the
91             results include matching categories, item data, and buying guides.
92              
93             Calls: GetSearchResults
94             RequiredInput: No
95              
96             # Argument: 'xs:boolean'
97              
98             =cut
99              
100             sub setCategoriesOnly {
101             my $self = shift;
102             $self->{'CategoriesOnly'} = shift
103             }
104              
105             =head2 isCategoriesOnly()
106              
107             # Returns: 'xs:boolean'
108              
109             =cut
110              
111             sub isCategoriesOnly {
112             my $self = shift;
113             return $self->{'CategoriesOnly'};
114             }
115              
116              
117             =head2 setDemandData()
118              
119             If you specify that DemandData is true, then the categories
120             returned will be sorted based on Best Match. The most
121             relevant categories will be returned first.
122              
123             Calls: GetSearchResults
124             RequiredInput: No
125              
126             # Argument: 'xs:boolean'
127              
128             =cut
129              
130             sub setDemandData {
131             my $self = shift;
132             $self->{'DemandData'} = shift
133             }
134              
135             =head2 isDemandData()
136              
137             # Returns: 'xs:boolean'
138              
139             =cut
140              
141             sub isDemandData {
142             my $self = shift;
143             return $self->{'DemandData'};
144             }
145              
146              
147             =head2 setLevels()
148              
149             Filter to control the deepest matching category level to return.
150             If you specify 0, no category data is returned. If you specify a
151             negative number, the results are unpredictable.
152              
153             Default: 2
154             Min: 1
155              
156             Calls: GetSearchResults
157             RequiredInput: No
158              
159             # Argument: 'xs:int'
160              
161             =cut
162              
163             sub setLevels {
164             my $self = shift;
165             $self->{'Levels'} = shift
166             }
167              
168             =head2 getLevels()
169              
170             # Returns: 'xs:int'
171              
172             =cut
173              
174             sub getLevels {
175             my $self = shift;
176             return $self->{'Levels'};
177             }
178              
179              
180             =head2 setMaxCategories()
181              
182             Maximum quantity of matching categories to return at the first level of the
183             category hierarchy (CategoryLevel 1).
184              
185             Default: 3
186              
187             Calls: GetSearchResults
188             RequiredInput: No
189              
190             # Argument: 'xs:int'
191              
192             =cut
193              
194             sub setMaxCategories {
195             my $self = shift;
196             $self->{'MaxCategories'} = shift
197             }
198              
199             =head2 getMaxCategories()
200              
201             # Returns: 'xs:int'
202              
203             =cut
204              
205             sub getMaxCategories {
206             my $self = shift;
207             return $self->{'MaxCategories'};
208             }
209              
210              
211             =head2 setMaxSubcategories()
212              
213             Maximum quantity of matching subcategories to return at each lower level
214             of the hierarchy.
215              
216             Default: 3
217              
218             Calls: GetSearchResults
219             RequiredInput: No
220              
221             # Argument: 'xs:int'
222              
223             =cut
224              
225             sub setMaxSubcategories {
226             my $self = shift;
227             $self->{'MaxSubcategories'} = shift
228             }
229              
230             =head2 getMaxSubcategories()
231              
232             # Returns: 'xs:int'
233              
234             =cut
235              
236             sub getMaxSubcategories {
237             my $self = shift;
238             return $self->{'MaxSubcategories'};
239             }
240              
241              
242              
243              
244              
245             ## Attribute and Property lists
246             sub getPropertiesList {
247             my $self = shift;
248             return \@gaProperties;
249             }
250              
251             sub getAttributesList {
252             my $self = shift;
253             return \@gaAttributes;
254             }
255              
256              
257              
258             1;