File Coverage

lib/eBay/API/XML/DataType/BidRangeType.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::BidRangeType;
4              
5 1     1   1102 use strict;
  1         2  
  1         61  
6 1     1   6 use warnings;
  1         2  
  1         34  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. BidRangeType.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::BidRangeType
21              
22             =head1 DESCRIPTION
23              
24             Contains fields for limiting a call response to items with
25             a minimum or maximum number
26             of bids. You also can specify a bid range by specifying
27             both a minimum and maximum number of bids in one call.
28              
29              
30              
31             =head1 SYNOPSIS
32              
33             =cut
34              
35              
36             =head1 INHERITANCE
37              
38             eBay::API::XML::DataType::BidRangeType inherits from the L class
39              
40             =cut
41              
42 1     1   71 use eBay::API::XML::BaseDataType;
  0            
  0            
43             our @ISA = ("eBay::API::XML::BaseDataType");
44              
45              
46              
47             my @gaProperties = ( [ 'MaximumBidCount', 'xs:int', '', '', '' ]
48             , [ 'MinimumBidCount', 'xs:int', '', '', '' ]
49             );
50             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
51              
52             my @gaAttributes = (
53             );
54             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
55              
56             =head1 Subroutines:
57              
58             =cut
59              
60             sub new {
61             my $classname = shift;
62             my %args = @_;
63             my $self = $classname->SUPER::new(%args);
64             return $self;
65             }
66              
67             sub isScalar {
68             return 0;
69             }
70              
71              
72              
73             =head2 setMaximumBidCount()
74              
75             Limits the results to items with a maximum number
76             of bids.
77              
78             Calls: GetSearchResults
79             RequiredInput: No
80              
81             # Argument: 'xs:int'
82              
83             =cut
84              
85             sub setMaximumBidCount {
86             my $self = shift;
87             $self->{'MaximumBidCount'} = shift
88             }
89              
90             =head2 getMaximumBidCount()
91              
92             # Returns: 'xs:int'
93              
94             =cut
95              
96             sub getMaximumBidCount {
97             my $self = shift;
98             return $self->{'MaximumBidCount'};
99             }
100              
101              
102             =head2 setMinimumBidCount()
103              
104             Limits the results to items with a minimum number
105             of bids.
106              
107             Calls: GetSearchResults
108             RequiredInput: No
109              
110             # Argument: 'xs:int'
111              
112             =cut
113              
114             sub setMinimumBidCount {
115             my $self = shift;
116             $self->{'MinimumBidCount'} = shift
117             }
118              
119             =head2 getMinimumBidCount()
120              
121             # Returns: 'xs:int'
122              
123             =cut
124              
125             sub getMinimumBidCount {
126             my $self = shift;
127             return $self->{'MinimumBidCount'};
128             }
129              
130              
131              
132              
133              
134             ## Attribute and Property lists
135             sub getPropertiesList {
136             my $self = shift;
137             return \@gaProperties;
138             }
139              
140             sub getAttributesList {
141             my $self = shift;
142             return \@gaAttributes;
143             }
144              
145              
146              
147             1;