File Coverage

lib/eBay/API/XML/DataType/CategoryItemSpecificsType.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::CategoryItemSpecificsType;
4              
5 1     1   1169 use strict;
  1         2  
  1         25  
6 1     1   4 use warnings;
  1         3  
  1         25  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. CategoryItemSpecificsType.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::CategoryItemSpecificsType
21              
22             =head1 DESCRIPTION
23              
24             Defines details about recommended names and values for custom Item Specifics.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::CategoryItemSpecificsType inherits from the L class
36              
37             =cut
38              
39 1     1   34 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::NameValueListArrayType;
43              
44              
45             my @gaProperties = ( [ 'CategoryID', 'xs:string', '', '', '' ]
46             , [ 'ItemSpecifics', 'ns:NameValueListArrayType', ''
47             ,'eBay::API::XML::DataType::NameValueListArrayType', '1' ]
48             , [ 'Updated', 'xs:boolean', '', '', '' ]
49             );
50             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
51              
52             my @gaAttributes = (
53             );
54             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
55              
56             =head1 Subroutines:
57              
58             =cut
59              
60             sub new {
61             my $classname = shift;
62             my %args = @_;
63             my $self = $classname->SUPER::new(%args);
64             return $self;
65             }
66              
67             sub isScalar {
68             return 0;
69             }
70              
71              
72              
73             =head2 setCategoryID()
74              
75             The leaf category in which the associated Item Specifics are popular.
76             This is always a category that you specified in the request.
77            
78             Only returned for categories that have popular Item Specifics,
79             or when you also pass in the Name field.
80              
81             MaxLength: 10
82              
83             # Argument: 'xs:string'
84              
85             =cut
86              
87             sub setCategoryID {
88             my $self = shift;
89             $self->{'CategoryID'} = shift
90             }
91              
92             =head2 getCategoryID()
93              
94             Calls: GetCategorySpecifics
95             Returned: Conditionally
96              
97             # Returns: 'xs:string'
98              
99             =cut
100              
101             sub getCategoryID {
102             my $self = shift;
103             return $self->{'CategoryID'};
104             }
105              
106              
107             =head2 setItemSpecifics()
108              
109             Contains a list of Item Specifics that eBay recommends as most popular
110             within the specified category.
111            
112             Not returned when you pass LastUpdateTime in the request.
113              
114             # Argument: 'ns:NameValueListArrayType'
115              
116             =cut
117              
118             sub setItemSpecifics {
119             my $self = shift;
120             $self->{'ItemSpecifics'} = shift
121             }
122              
123             =head2 getItemSpecifics()
124              
125             Calls: GetCategorySpecifics
126             Returned: Conditionally
127              
128             # Returns: 'ns:NameValueListArrayType'
129              
130             =cut
131              
132             sub getItemSpecifics {
133             my $self = shift;
134             return $self->_getDataTypeInstance( 'ItemSpecifics'
135             ,'eBay::API::XML::DataType::NameValueListArrayType');
136             }
137              
138              
139             =head2 setUpdated()
140              
141             If true, the recommended Item Specifics for this category
142             have changed since the time you specified (in LastUpdateTime).
143             (In this case, we suggest you retrieve the latest data for
144             the category.)
145             If false, the recommended Item Specifics for this category
146             have not changed since the time you specified.
147            
148             Only returned when you pass LastUpdateTime in the request.
149              
150             # Argument: 'xs:boolean'
151              
152             =cut
153              
154             sub setUpdated {
155             my $self = shift;
156             $self->{'Updated'} = shift
157             }
158              
159             =head2 isUpdated()
160              
161             Calls: GetCategorySpecifics
162             Returned: Conditionally
163              
164             # Returns: 'xs:boolean'
165              
166             =cut
167              
168             sub isUpdated {
169             my $self = shift;
170             return $self->{'Updated'};
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;