File Coverage

lib/eBay/API/XML/DataType/MaximumItemRequirementsType.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::MaximumItemRequirementsType;
4              
5 1     1   1956 use strict;
  1         2  
  1         36  
6 1     1   6 use warnings;
  1         3  
  1         33  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. MaximumItemRequirementsType.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::MaximumItemRequirementsType
21              
22             =head1 DESCRIPTION
23              
24             Container for items bid.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::MaximumItemRequirementsType inherits from the L class
36              
37             =cut
38              
39 1     1   45 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42              
43              
44             my @gaProperties = ( [ 'MaximumItemCount', 'xs:int', '', '', '' ]
45             , [ 'MinimumFeedbackScore', 'xs:int', '', '', '' ]
46             );
47             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
48              
49             my @gaAttributes = (
50             );
51             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
52              
53             =head1 Subroutines:
54              
55             =cut
56              
57             sub new {
58             my $classname = shift;
59             my %args = @_;
60             my $self = $classname->SUPER::new(%args);
61             return $self;
62             }
63              
64             sub isScalar {
65             return 0;
66             }
67              
68              
69              
70             =head2 setMaximumItemCount()
71              
72             If this field is present, blocking is enabled,
73             where the value of this field represents the
74             maximum number of this seller's items a bidder is allowed to bid
75             on in a 10 day period before being blocked.
76             Valid values: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 25, 50, 75, 100.
77              
78             Max: Min:
79             Calls: AddItem
80             GetItemRecommendations
81             RelistItem
82             ReviseItem
83             VerifyAddItem
84             RequiredInput: No
85              
86             # Argument: 'xs:int'
87              
88             =cut
89              
90             sub setMaximumItemCount {
91             my $self = shift;
92             $self->{'MaximumItemCount'} = shift
93             }
94              
95             =head2 getMaximumItemCount()
96              
97             Calls: GetBidderList
98             GetSellerList
99             Returned: Conditionally
100              
101             Calls: GetItem
102             Returned: Conditionally
103             Details: DetailLevel: none, ItemReturnDescription,
104             ItemReturnAttributes, ReturnAll
105              
106             # Returns: 'xs:int'
107              
108             =cut
109              
110             sub getMaximumItemCount {
111             my $self = shift;
112             return $self->{'MaximumItemCount'};
113             }
114              
115              
116             =head2 setMinimumFeedbackScore()
117              
118             This field is ignored on input unless MaximumItemCount has
119             been provided.
120             If this field is present, the user's feedback score is also considered:
121             a user is blocked from bidding if the user's feedback score is
122             less than or equal to the value of this field.
123             Valid values: 0, 1, 2, 3, 4, 5.
124              
125             Max: Min:
126             Calls: AddItem
127             GetItemRecommendations
128             RelistItem
129             ReviseItem
130             VerifyAddItem
131             RequiredInput: No
132              
133             # Argument: 'xs:int'
134              
135             =cut
136              
137             sub setMinimumFeedbackScore {
138             my $self = shift;
139             $self->{'MinimumFeedbackScore'} = shift
140             }
141              
142             =head2 getMinimumFeedbackScore()
143              
144             Calls: GetBidderList
145             GetSellerList
146             Returned: Conditionally
147              
148             Calls: GetItem
149             Returned: Conditionally
150             Details: DetailLevel: none, ItemReturnDescription,
151             ItemReturnAttributes, ReturnAll
152              
153             # Returns: 'xs:int'
154              
155             =cut
156              
157             sub getMinimumFeedbackScore {
158             my $self = shift;
159             return $self->{'MinimumFeedbackScore'};
160             }
161              
162              
163              
164              
165              
166             ## Attribute and Property lists
167             sub getPropertiesList {
168             my $self = shift;
169             return \@gaProperties;
170             }
171              
172             sub getAttributesList {
173             my $self = shift;
174             return \@gaAttributes;
175             }
176              
177              
178              
179             1;