File Coverage

lib/eBay/API/XML/DataType/MaximumBuyerPolicyViolationsType.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::MaximumBuyerPolicyViolationsType;
4              
5 1     1   1392 use strict;
  1         2  
  1         32  
6 1     1   6 use warnings;
  1         4  
  1         33  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. MaximumBuyerPolicyViolationsType.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::MaximumBuyerPolicyViolationsType
21              
22             =head1 DESCRIPTION
23              
24             Container for Maximum Buyer Policy Violation Reports buyer requirements in listing calls.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::MaximumBuyerPolicyViolationsType inherits from the L class
36              
37             =cut
38              
39 1     1   43 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::Enum::PeriodCodeType;
43              
44              
45             my @gaProperties = ( [ 'Count', 'xs:int', '', '', '' ]
46             , [ 'Period', 'ns:PeriodCodeType', ''
47             ,'eBay::API::XML::DataType::Enum::PeriodCodeType', '' ]
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 setCount()
73              
74             Maximum allowed buyer policy violation reports against the buyer. If the limit is reached, the buyer can not bid on this item.
75             Used with Period.
76              
77             Max: Default: 4
78             Min:
79             Calls: AddItem
80             GetItemRecommendations
81             RelistItem
82             ReviseItem
83             VerifyAddItem
84             RequiredInput: No
85             OnlyTheseValues: 4, 5, 6, 7
86              
87             # Argument: 'xs:int'
88              
89             =cut
90              
91             sub setCount {
92             my $self = shift;
93             $self->{'Count'} = shift
94             }
95              
96             =head2 getCount()
97              
98             Calls: GetBidderList
99             GetSellerList
100             Returned: Conditionally
101             OnlyTheseValues: 4, 5, 6, 7
102              
103             Calls: GetItem
104             Returned: Conditionally
105             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
106             OnlyTheseValues: 4, 5, 6, 7
107              
108             # Returns: 'xs:int'
109              
110             =cut
111              
112             sub getCount {
113             my $self = shift;
114             return $self->{'Count'};
115             }
116              
117              
118             =head2 setPeriod()
119              
120             If a buyer fails to follow eBay policy guidelines for an auction, they may incur a buyer violation report on their account. The Period and Count elements
121             allow a seller to specify that only buyers with a specified number of
122             buyer violation reports within a given period of time can bid on their
123             item. If a buyer has more buyer violation reports than specified within these limits, the buyer can not bid on this item.
124             The Period is the past number of days (last 60 days, last 180 days, etc.)
125             within which the buyer violation reports are calculated.
126             Used with Count.
127              
128             Max: Default: Days_30
129             Min:
130             Calls: AddItem
131             GetItemRecommendations
132             RelistItem
133             ReviseItem
134             VerifyAddItem
135             RequiredInput: No
136             OnlyTheseValues: Days_30, Days_180, Days_360
137              
138             # Argument: 'ns:PeriodCodeType'
139              
140             =cut
141              
142             sub setPeriod {
143             my $self = shift;
144             $self->{'Period'} = shift
145             }
146              
147             =head2 getPeriod()
148              
149             Calls: GetBidderList
150             GetSellerList
151             Returned: Conditionally
152             OnlyTheseValues: Days_30, Days_180, Days_360
153              
154             Calls: GetItem
155             Returned: Conditionally
156             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
157             OnlyTheseValues: Days_30, Days_180, Days_360
158              
159             # Returns: 'ns:PeriodCodeType'
160              
161             =cut
162              
163             sub getPeriod {
164             my $self = shift;
165             return $self->{'Period'};
166             }
167              
168              
169              
170              
171              
172             ## Attribute and Property lists
173             sub getPropertiesList {
174             my $self = shift;
175             return \@gaProperties;
176             }
177              
178             sub getAttributesList {
179             my $self = shift;
180             return \@gaAttributes;
181             }
182              
183              
184              
185             1;