File Coverage

lib/eBay/API/XML/DataType/LiveAuctionBidType.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::LiveAuctionBidType;
4              
5 1     1   1357 use strict;
  1         4  
  1         36  
6 1     1   6 use warnings;
  1         2  
  1         33  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. LiveAuctionBidType.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::LiveAuctionBidType
21              
22             =head1 DESCRIPTION
23              
24             Contains the data for one listing found by a search .
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::LiveAuctionBidType 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             use eBay::API::XML::DataType::AmountType;
43             use eBay::API::XML::DataType::Enum::BidderStatusCodeType;
44              
45              
46             my @gaProperties = ( [ 'ApprovedBiddingLimit', 'ns:AmountType', ''
47             ,'eBay::API::XML::DataType::AmountType', '1' ]
48             , [ 'BidderStatus', 'ns:BidderStatusCodeType', ''
49             ,'eBay::API::XML::DataType::Enum::BidderStatusCodeType', '' ]
50             , [ 'DeclinedComment', 'xs:string', '', '', '' ]
51             , [ 'RequestedBiddingLimit', 'ns:AmountType', ''
52             ,'eBay::API::XML::DataType::AmountType', '1' ]
53             );
54             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
55              
56             my @gaAttributes = (
57             );
58             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
59              
60             =head1 Subroutines:
61              
62             =cut
63              
64             sub new {
65             my $classname = shift;
66             my %args = @_;
67             my $self = $classname->SUPER::new(%args);
68             return $self;
69             }
70              
71             sub isScalar {
72             return 0;
73             }
74              
75              
76              
77             =head2 setApprovedBiddingLimit()
78              
79             Maximum amount that the seller will allow the bidder to bid.
80              
81             # Argument: 'ns:AmountType'
82              
83             =cut
84              
85             sub setApprovedBiddingLimit {
86             my $self = shift;
87             $self->{'ApprovedBiddingLimit'} = shift
88             }
89              
90             =head2 getApprovedBiddingLimit()
91              
92             Calls: GetLiveAuctionBidders
93             Returned: Always
94              
95             # Returns: 'ns:AmountType'
96              
97             =cut
98              
99             sub getApprovedBiddingLimit {
100             my $self = shift;
101             return $self->_getDataTypeInstance( 'ApprovedBiddingLimit'
102             ,'eBay::API::XML::DataType::AmountType');
103             }
104              
105              
106             =head2 setBidderStatus()
107              
108             Indicates whether the seller has approved the user to bid on the
109             seller's Live Auctions (in the catalog identifed by UserCatalogID).
110              
111             # Argument: 'ns:BidderStatusCodeType'
112              
113             =cut
114              
115             sub setBidderStatus {
116             my $self = shift;
117             $self->{'BidderStatus'} = shift
118             }
119              
120             =head2 getBidderStatus()
121              
122             Calls: GetLiveAuctionBidders
123             Returned: Always
124              
125             # Returns: 'ns:BidderStatusCodeType'
126              
127             =cut
128              
129             sub getBidderStatus {
130             my $self = shift;
131             return $self->{'BidderStatus'};
132             }
133              
134              
135             =head2 setDeclinedComment()
136              
137             Comments entered by the seller if the seller has denied the bidder's
138             approval request.
139              
140             # Argument: 'xs:string'
141              
142             =cut
143              
144             sub setDeclinedComment {
145             my $self = shift;
146             $self->{'DeclinedComment'} = shift
147             }
148              
149             =head2 getDeclinedComment()
150              
151             Calls: GetLiveAuctionBidders
152             Returned: Always
153              
154             # Returns: 'xs:string'
155              
156             =cut
157              
158             sub getDeclinedComment {
159             my $self = shift;
160             return $self->{'DeclinedComment'};
161             }
162              
163              
164             =head2 setRequestedBiddingLimit()
165              
166             Maximum amount that the bidder would like to be able to bid.
167             This is returned if the auction house has requested that the bidder
168             enter an amount for the seller's approval.
169              
170             # Argument: 'ns:AmountType'
171              
172             =cut
173              
174             sub setRequestedBiddingLimit {
175             my $self = shift;
176             $self->{'RequestedBiddingLimit'} = shift
177             }
178              
179             =head2 getRequestedBiddingLimit()
180              
181             Calls: GetLiveAuctionBidders
182             Returned: Always
183              
184             # Returns: 'ns:AmountType'
185              
186             =cut
187              
188             sub getRequestedBiddingLimit {
189             my $self = shift;
190             return $self->_getDataTypeInstance( 'RequestedBiddingLimit'
191             ,'eBay::API::XML::DataType::AmountType');
192             }
193              
194              
195              
196              
197              
198             ## Attribute and Property lists
199             sub getPropertiesList {
200             my $self = shift;
201             return \@gaProperties;
202             }
203              
204             sub getAttributesList {
205             my $self = shift;
206             return \@gaAttributes;
207             }
208              
209              
210              
211             1;