File Coverage

lib/eBay/API/XML/DataType/BidGroupItemType.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::BidGroupItemType;
4              
5 1     1   1251 use strict;
  1         2  
  1         30  
6 1     1   5 use warnings;
  1         2  
  1         31  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. BidGroupItemType.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::BidGroupItemType
21              
22             =head1 DESCRIPTION
23              
24             Contains information about items that are part of a bid group.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::BidGroupItemType inherits from the L class
36              
37             =cut
38              
39 1     1   40 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::ItemType;
44             use eBay::API::XML::DataType::Enum::BidGroupItemStatusCodeType;
45              
46              
47             my @gaProperties = ( [ 'BidGroupItemStatus', 'ns:BidGroupItemStatusCodeType', ''
48             ,'eBay::API::XML::DataType::Enum::BidGroupItemStatusCodeType', '' ]
49             , [ 'Item', 'ns:ItemType', ''
50             ,'eBay::API::XML::DataType::ItemType', '1' ]
51             , [ 'MaxBidAmount', '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 setBidGroupItemStatus()
78              
79             Contains the status of the items in the bid group.
80              
81             # Argument: 'ns:BidGroupItemStatusCodeType'
82              
83             =cut
84              
85             sub setBidGroupItemStatus {
86             my $self = shift;
87             $self->{'BidGroupItemStatus'} = shift
88             }
89              
90             =head2 getBidGroupItemStatus()
91              
92             Calls: GetMyeBayBuying
93             Returned: Conditionally
94             Details: DetailLevel: none, ReturnSummary, ReturnAll
95             OnlyTheseValues: Pending, CurrentBid, Skipped, Won
96             Context: BidAssistantList
97              
98             # Returns: 'ns:BidGroupItemStatusCodeType'
99              
100             =cut
101              
102             sub getBidGroupItemStatus {
103             my $self = shift;
104             return $self->{'BidGroupItemStatus'};
105             }
106              
107              
108             =head2 setItem()
109              
110             Contains a list of the items in a bid group.
111              
112             # Argument: 'ns:ItemType'
113              
114             =cut
115              
116             sub setItem {
117             my $self = shift;
118             $self->{'Item'} = shift
119             }
120              
121             =head2 getItem()
122              
123             Calls: GetMyeBayBuying
124             Returned: Conditionally
125             Details: DetailLevel: none, ReturnSummary, ReturnAll
126             Context: BidAssistantList
127              
128             # Returns: 'ns:ItemType'
129              
130             =cut
131              
132             sub getItem {
133             my $self = shift;
134             return $self->_getDataTypeInstance( 'Item'
135             ,'eBay::API::XML::DataType::ItemType');
136             }
137              
138              
139             =head2 setMaxBidAmount()
140              
141             Contains the maximum bid amount for the item in the bid group.
142              
143             # Argument: 'ns:AmountType'
144              
145             =cut
146              
147             sub setMaxBidAmount {
148             my $self = shift;
149             $self->{'MaxBidAmount'} = shift
150             }
151              
152             =head2 getMaxBidAmount()
153              
154             Calls: GetMyeBayBuying
155             Returned: Conditionally
156             Details: DetailLevel: none, ReturnSummary, ReturnAll
157             Context: BidAssistantList
158              
159             # Returns: 'ns:AmountType'
160              
161             =cut
162              
163             sub getMaxBidAmount {
164             my $self = shift;
165             return $self->_getDataTypeInstance( 'MaxBidAmount'
166             ,'eBay::API::XML::DataType::AmountType');
167             }
168              
169              
170              
171              
172              
173             ## Attribute and Property lists
174             sub getPropertiesList {
175             my $self = shift;
176             return \@gaProperties;
177             }
178              
179             sub getAttributesList {
180             my $self = shift;
181             return \@gaAttributes;
182             }
183              
184              
185              
186             1;