File Coverage

lib/eBay/API/XML/DataType/PaginatedItemArrayType.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::PaginatedItemArrayType;
4              
5 1     1   1434 use strict;
  1         3  
  1         47  
6 1     1   5 use warnings;
  1         3  
  1         34  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. PaginatedItemArrayType.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::PaginatedItemArrayType
21              
22             =head1 DESCRIPTION
23              
24             Contains a paginated list of items.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::PaginatedItemArrayType 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             use eBay::API::XML::DataType::ItemArrayType;
43             use eBay::API::XML::DataType::PaginationResultType;
44              
45              
46             my @gaProperties = ( [ 'ItemArray', 'ns:ItemArrayType', ''
47             ,'eBay::API::XML::DataType::ItemArrayType', '1' ]
48             , [ 'PaginationResult', 'ns:PaginationResultType', ''
49             ,'eBay::API::XML::DataType::PaginationResultType', '1' ]
50             );
51             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
52              
53             my @gaAttributes = (
54             );
55             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
56              
57             =head1 Subroutines:
58              
59             =cut
60              
61             sub new {
62             my $classname = shift;
63             my %args = @_;
64             my $self = $classname->SUPER::new(%args);
65             return $self;
66             }
67              
68             sub isScalar {
69             return 0;
70             }
71              
72              
73              
74             =head2 setItemArray()
75              
76             Contains a list of Item types.
77              
78             # Argument: 'ns:ItemArrayType'
79              
80             =cut
81              
82             sub setItemArray {
83             my $self = shift;
84             $self->{'ItemArray'} = shift
85             }
86              
87             =head2 getItemArray()
88              
89             Calls: GetMyeBayBuying
90             Returned: Conditionally
91             Details: DetailLevel: none, ReturnSummary, ReturnAll
92             Context: BidList
93             BestOfferList
94             LostList
95             WatchList
96             DeletedFromLostList
97              
98             Calls: GetMyeBaySelling
99             Returned: Conditionally
100             Details: DetailLevel: none, ReturnSummary, ReturnAll
101             Context: ActiveList
102             ScheduledList
103             UnsoldList
104             BidList
105             DeletedFromUnsoldList
106              
107             # Returns: 'ns:ItemArrayType'
108              
109             =cut
110              
111             sub getItemArray {
112             my $self = shift;
113             return $self->_getDataTypeInstance( 'ItemArray'
114             ,'eBay::API::XML::DataType::ItemArrayType');
115             }
116              
117              
118             =head2 setPaginationResult()
119              
120             Provides information about the list, including number of pages and number
121             of entries.
122              
123             # Argument: 'ns:PaginationResultType'
124              
125             =cut
126              
127             sub setPaginationResult {
128             my $self = shift;
129             $self->{'PaginationResult'} = shift
130             }
131              
132             =head2 getPaginationResult()
133              
134             Calls: GetMyeBayBuying
135             Returned: Conditionally
136             Details: DetailLevel: none, ReturnSummary, ReturnAll
137             Context: BidList
138             LostList
139             WatchList
140             WonList
141             DeletedFromLostList
142             DeletedFromWonList
143              
144             Calls: GetMyeBaySelling
145             Returned: Conditionally
146             Details: DetailLevel: none, ReturnSummary, ReturnAll
147             Context: ActiveList
148             ScheduledList
149             SoldList
150             UnsoldList
151             BidList
152             DeletedFromSoldList
153             DeletedFromUnsoldList
154              
155             # Returns: 'ns:PaginationResultType'
156              
157             =cut
158              
159             sub getPaginationResult {
160             my $self = shift;
161             return $self->_getDataTypeInstance( 'PaginationResult'
162             ,'eBay::API::XML::DataType::PaginationResultType');
163             }
164              
165              
166              
167              
168              
169             ## Attribute and Property lists
170             sub getPropertiesList {
171             my $self = shift;
172             return \@gaProperties;
173             }
174              
175             sub getAttributesList {
176             my $self = shift;
177             return \@gaAttributes;
178             }
179              
180              
181              
182             1;