File Coverage

lib/eBay/API/XML/DataType/MyeBaySelectionType.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::MyeBaySelectionType;
4              
5 1     1   2666 use strict;
  1         6  
  1         73  
6 1     1   8 use warnings;
  1         4  
  1         59  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. MyeBaySelectionType.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::MyeBaySelectionType
21              
22             =head1 DESCRIPTION
23              
24             Specifies how the result list for My eBay features such as favorite searches,
25             favorite sellers, and second chance offers should be returned.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::DataType::MyeBaySelectionType inherits from the L class
37              
38             =cut
39              
40 1     1   65 use eBay::API::XML::BaseDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::BaseDataType");
42              
43             use eBay::API::XML::DataType::Enum::SortOrderCodeType;
44              
45              
46             my @gaProperties = ( [ 'Include', 'xs:boolean', '', '', '' ]
47             , [ 'MaxResults', 'xs:int', '', '', '' ]
48             , [ 'Sort', 'ns:SortOrderCodeType', ''
49             ,'eBay::API::XML::DataType::Enum::SortOrderCodeType', '' ]
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 setInclude()
75              
76             Specifies whether to include a container in the response.
77             Required if you do not specify any other tags to filter the
78             result list. If so, the list is returned according to
79             the default values. Ignored if you specify at least
80             one other tag for the result list.
81              
82             Calls: GetMyeBayBuying
83             RequiredInput: No
84              
85             # Argument: 'xs:boolean'
86              
87             =cut
88              
89             sub setInclude {
90             my $self = shift;
91             $self->{'Include'} = shift
92             }
93              
94             =head2 isInclude()
95              
96             # Returns: 'xs:boolean'
97              
98             =cut
99              
100             sub isInclude {
101             my $self = shift;
102             return $self->{'Include'};
103             }
104              
105              
106             =head2 setMaxResults()
107              
108             Specifies the maximum number of items in the returned list.
109             If not specified, returns all items in the list.
110              
111             Calls: GetMyeBayBuying
112             RequiredInput: No
113              
114             # Argument: 'xs:int'
115              
116             =cut
117              
118             sub setMaxResults {
119             my $self = shift;
120             $self->{'MaxResults'} = shift
121             }
122              
123             =head2 getMaxResults()
124              
125             # Returns: 'xs:int'
126              
127             =cut
128              
129             sub getMaxResults {
130             my $self = shift;
131             return $self->{'MaxResults'};
132             }
133              
134              
135             =head2 setSort()
136              
137             Specifies the result sort order. Default is Ascending.
138              
139             Calls: GetMyeBayBuying
140             RequiredInput: No
141              
142             # Argument: 'ns:SortOrderCodeType'
143              
144             =cut
145              
146             sub setSort {
147             my $self = shift;
148             $self->{'Sort'} = shift
149             }
150              
151             =head2 getSort()
152              
153             # Returns: 'ns:SortOrderCodeType'
154              
155             =cut
156              
157             sub getSort {
158             my $self = shift;
159             return $self->{'Sort'};
160             }
161              
162              
163              
164              
165              
166             ## Attribute and Property lists
167             sub getPropertiesList {
168             my $self = shift;
169             return \@gaProperties;
170             }
171              
172             sub getAttributesList {
173             my $self = shift;
174             return \@gaAttributes;
175             }
176              
177              
178              
179             1;