File Coverage

lib/eBay/API/XML/DataType/PromotionDetailsType.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::PromotionDetailsType;
4              
5 1     1   1568 use strict;
  1         3  
  1         36  
6 1     1   5 use warnings;
  1         2  
  1         32  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. PromotionDetailsType.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::PromotionDetailsType
21              
22             =head1 DESCRIPTION
23              
24             Contains information about a promoted item.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::PromotionDetailsType inherits from the L class
36              
37             =cut
38              
39 1     1   44 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::PromotionItemPriceTypeCodeType;
44              
45              
46             my @gaProperties = ( [ 'BidCount', 'xs:int', '', '', '' ]
47             , [ 'ConvertedPromotionPrice', 'ns:AmountType', ''
48             ,'eBay::API::XML::DataType::AmountType', '1' ]
49             , [ 'PromotionPrice', 'ns:AmountType', ''
50             ,'eBay::API::XML::DataType::AmountType', '1' ]
51             , [ 'PromotionPriceType', 'ns:PromotionItemPriceTypeCodeType', ''
52             ,'eBay::API::XML::DataType::Enum::PromotionItemPriceTypeCodeType', '' ]
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 setBidCount()
78              
79             Bid count if the item is an auction item and has bids.
80              
81             # Argument: 'xs:int'
82              
83             =cut
84              
85             sub setBidCount {
86             my $self = shift;
87             $self->{'BidCount'} = shift
88             }
89              
90             =head2 getBidCount()
91              
92             Calls: GetItem
93             Returned: Conditionally
94             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
95              
96             Calls: GetCrossPromotions
97             Returned: Conditionally
98              
99             # Returns: 'xs:int'
100              
101             =cut
102              
103             sub getBidCount {
104             my $self = shift;
105             return $self->{'BidCount'};
106             }
107              
108              
109             =head2 setConvertedPromotionPrice()
110              
111             The converted price of the cross-promoted item. Output only. Emitted
112             only when the item is listed on a site other than the site specified in the
113             request. Returns the price in the currency of the site specified in the
114             request. Not related to the Promotional Price Display feature.
115              
116             # Argument: 'ns:AmountType'
117              
118             =cut
119              
120             sub setConvertedPromotionPrice {
121             my $self = shift;
122             $self->{'ConvertedPromotionPrice'} = shift
123             }
124              
125             =head2 getConvertedPromotionPrice()
126              
127             Calls: GetItem
128             Returned: Conditionally
129             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
130              
131             Calls: GetCrossPromotions
132             Returned: Conditionally
133              
134             # Returns: 'ns:AmountType'
135              
136             =cut
137              
138             sub getConvertedPromotionPrice {
139             my $self = shift;
140             return $self->_getDataTypeInstance( 'ConvertedPromotionPrice'
141             ,'eBay::API::XML::DataType::AmountType');
142             }
143              
144              
145             =head2 setPromotionPrice()
146              
147             The price of the cross-promoted item in the currency of the site upon which
148             the item is listed. Output only. If the item is listed on a site different
149             from the site specified in the request, then ConvertedPromotionPrice is also
150             returned. Not related to the Promotional Price Display feature.
151              
152             # Argument: 'ns:AmountType'
153              
154             =cut
155              
156             sub setPromotionPrice {
157             my $self = shift;
158             $self->{'PromotionPrice'} = shift
159             }
160              
161             =head2 getPromotionPrice()
162              
163             Calls: GetItem
164             Returned: Conditionally
165             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
166              
167             Calls: GetCrossPromotions
168             Returned: Always
169              
170             # Returns: 'ns:AmountType'
171              
172             =cut
173              
174             sub getPromotionPrice {
175             my $self = shift;
176             return $self->_getDataTypeInstance( 'PromotionPrice'
177             ,'eBay::API::XML::DataType::AmountType');
178             }
179              
180              
181             =head2 setPromotionPriceType()
182              
183             The listing type for the promoted item and how the item price is used. Not
184             related to the Promotional Price Display feature.
185              
186             # Argument: 'ns:PromotionItemPriceTypeCodeType'
187              
188             =cut
189              
190             sub setPromotionPriceType {
191             my $self = shift;
192             $self->{'PromotionPriceType'} = shift
193             }
194              
195             =head2 getPromotionPriceType()
196              
197             Calls: GetItem
198             Returned: Conditionally
199             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
200              
201             Calls: GetCrossPromotions
202             Returned: Always
203              
204             # Returns: 'ns:PromotionItemPriceTypeCodeType'
205              
206             =cut
207              
208             sub getPromotionPriceType {
209             my $self = shift;
210             return $self->{'PromotionPriceType'};
211             }
212              
213              
214              
215              
216              
217             ## Attribute and Property lists
218             sub getPropertiesList {
219             my $self = shift;
220             return \@gaProperties;
221             }
222              
223             sub getAttributesList {
224             my $self = shift;
225             return \@gaAttributes;
226             }
227              
228              
229              
230             1;