File Coverage

lib/eBay/API/XML/DataType/ItemSpecificDetailsType.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::ItemSpecificDetailsType;
4              
5 1     1   1654 use strict;
  1         2  
  1         33  
6 1     1   5 use warnings;
  1         2  
  1         34  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ItemSpecificDetailsType.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::ItemSpecificDetailsType
21              
22             =head1 DESCRIPTION
23              
24             Details about custom Item Specifics validation rules.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::ItemSpecificDetailsType inherits from the L class
36              
37             =cut
38              
39 1     1   42 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42              
43              
44             my @gaProperties = ( [ 'MaxCharactersPerName', 'xs:int', '', '', '' ]
45             , [ 'MaxCharactersPerValue', 'xs:int', '', '', '' ]
46             , [ 'MaxItemSpecificsPerItem', 'xs:int', '', '', '' ]
47             , [ 'MaxValuesPerName', 'xs:int', '', '', '' ]
48             );
49             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
50              
51             my @gaAttributes = (
52             );
53             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
54              
55             =head1 Subroutines:
56              
57             =cut
58              
59             sub new {
60             my $classname = shift;
61             my %args = @_;
62             my $self = $classname->SUPER::new(%args);
63             return $self;
64             }
65              
66             sub isScalar {
67             return 0;
68             }
69              
70              
71              
72             =head2 setMaxCharactersPerName()
73              
74             The maximum number of characters the site supports per custom
75             Item Specific name.
76            
77             Related fields:
78             Item.ItemSpecifics in AddItem
79             ItemSpecifics in GetCategorySpecifics
80             ItemSpecifics in GetItemRecommendations
81              
82             # Argument: 'xs:int'
83              
84             =cut
85              
86             sub setMaxCharactersPerName {
87             my $self = shift;
88             $self->{'MaxCharactersPerName'} = shift
89             }
90              
91             =head2 getMaxCharactersPerName()
92              
93             Calls: GeteBayDetails
94             Returned: Conditionally
95              
96             # Returns: 'xs:int'
97              
98             =cut
99              
100             sub getMaxCharactersPerName {
101             my $self = shift;
102             return $self->{'MaxCharactersPerName'};
103             }
104              
105              
106             =head2 setMaxCharactersPerValue()
107              
108             The maximum number of characters the site supports per custom
109             Item Specific value.
110            
111             Related fields:
112             Item.ItemSpecifics in AddItem
113             ItemSpecifics in GetCategorySpecifics
114             ItemSpecifics in GetItemRecommendations
115              
116             # Argument: 'xs:int'
117              
118             =cut
119              
120             sub setMaxCharactersPerValue {
121             my $self = shift;
122             $self->{'MaxCharactersPerValue'} = shift
123             }
124              
125             =head2 getMaxCharactersPerValue()
126              
127             Calls: GeteBayDetails
128             Returned: Conditionally
129              
130             # Returns: 'xs:int'
131              
132             =cut
133              
134             sub getMaxCharactersPerValue {
135             my $self = shift;
136             return $self->{'MaxCharactersPerValue'};
137             }
138              
139              
140             =head2 setMaxItemSpecificsPerItem()
141              
142             The maximum number of custom Item Specifics allowed
143             when you list an item. Also the maximum returned per category in
144             GetCategorySpecifics and GetItemRecommendations.
145            
146             Related fields:
147             Item.ItemSpecifics in AddItem
148             ItemSpecifics in GetCategorySpecifics
149             ItemSpecifics in GetItemRecommendations
150              
151             # Argument: 'xs:int'
152              
153             =cut
154              
155             sub setMaxItemSpecificsPerItem {
156             my $self = shift;
157             $self->{'MaxItemSpecificsPerItem'} = shift
158             }
159              
160             =head2 getMaxItemSpecificsPerItem()
161              
162             Calls: GeteBayDetails
163             Returned: Conditionally
164              
165             # Returns: 'xs:int'
166              
167             =cut
168              
169             sub getMaxItemSpecificsPerItem {
170             my $self = shift;
171             return $self->{'MaxItemSpecificsPerItem'};
172             }
173              
174              
175             =head2 setMaxValuesPerName()
176              
177             The maximum number of values returned for each custom Item Specific
178             in GetCategorySpecifics and GetItemRecommendations.
179            
180             Related fields:
181             ItemSpecifics in GetCategorySpecifics
182             ItemSpecifics in GetItemRecommendations
183              
184             # Argument: 'xs:int'
185              
186             =cut
187              
188             sub setMaxValuesPerName {
189             my $self = shift;
190             $self->{'MaxValuesPerName'} = shift
191             }
192              
193             =head2 getMaxValuesPerName()
194              
195             Calls: GeteBayDetails
196             Returned: Conditionally
197              
198             # Returns: 'xs:int'
199              
200             =cut
201              
202             sub getMaxValuesPerName {
203             my $self = shift;
204             return $self->{'MaxValuesPerName'};
205             }
206              
207              
208              
209              
210              
211             ## Attribute and Property lists
212             sub getPropertiesList {
213             my $self = shift;
214             return \@gaProperties;
215             }
216              
217             sub getAttributesList {
218             my $self = shift;
219             return \@gaAttributes;
220             }
221              
222              
223              
224             1;