File Coverage

lib/eBay/API/XML/DataType/SearchLocationType.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::SearchLocationType;
4              
5 1     1   1148 use strict;
  1         4  
  1         25  
6 1     1   4 use warnings;
  1         2  
  1         25  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. SearchLocationType.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::SearchLocationType
21              
22             =head1 DESCRIPTION
23              
24             One of the data filters used when searching for items using
25             GetSearchResults or GetCategoryListings. Allows filtering based on the
26             location of the item or its availability relative to an eBay site. Or allows
27             for filtering based on regional listing.
28              
29              
30              
31             =head1 SYNOPSIS
32              
33             =cut
34              
35              
36             =head1 INHERITANCE
37              
38             eBay::API::XML::DataType::SearchLocationType inherits from the L class
39              
40             =cut
41              
42 1     1   35 use eBay::API::XML::BaseDataType;
  0            
  0            
43             our @ISA = ("eBay::API::XML::BaseDataType");
44              
45             use eBay::API::XML::DataType::SiteLocationType;
46              
47              
48             my @gaProperties = ( [ 'RegionID', 'xs:string', '', '', '' ]
49             , [ 'SiteLocation', 'ns:SiteLocationType', ''
50             ,'eBay::API::XML::DataType::SiteLocationType', '1' ]
51             );
52             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
53              
54             my @gaAttributes = (
55             );
56             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
57              
58             =head1 Subroutines:
59              
60             =cut
61              
62             sub new {
63             my $classname = shift;
64             my %args = @_;
65             my $self = $classname->SUPER::new(%args);
66             return $self;
67             }
68              
69             sub isScalar {
70             return 0;
71             }
72              
73              
74              
75             =head2 setRegionID()
76              
77             Specifies a region ID. The item must have been listed for the specified
78             region to be returned in the search result set.
79              
80             Calls: GetSearchResults
81             GetCategoryListings
82             RequiredInput: No
83              
84             # Argument: 'xs:string'
85              
86             =cut
87              
88             sub setRegionID {
89             my $self = shift;
90             $self->{'RegionID'} = shift
91             }
92              
93             =head2 getRegionID()
94              
95             # Returns: 'xs:string'
96              
97             =cut
98              
99             sub getRegionID {
100             my $self = shift;
101             return $self->{'RegionID'};
102             }
103              
104              
105             =head2 setSiteLocation()
106              
107             Specifies a filter based on a particular eBay site and the item's relation
108             to that site (items listed with a site's currency, items located in the
109             country for the site, items available to the country for the site, and
110             items listed on the specified site).
111              
112             Calls: GetSearchResults
113             GetCategoryListings
114             RequiredInput: No
115              
116             # Argument: 'ns:SiteLocationType'
117              
118             =cut
119              
120             sub setSiteLocation {
121             my $self = shift;
122             $self->{'SiteLocation'} = shift
123             }
124              
125             =head2 getSiteLocation()
126              
127             # Returns: 'ns:SiteLocationType'
128              
129             =cut
130              
131             sub getSiteLocation {
132             my $self = shift;
133             return $self->_getDataTypeInstance( 'SiteLocation'
134             ,'eBay::API::XML::DataType::SiteLocationType');
135             }
136              
137              
138              
139              
140              
141             ## Attribute and Property lists
142             sub getPropertiesList {
143             my $self = shift;
144             return \@gaProperties;
145             }
146              
147             sub getAttributesList {
148             my $self = shift;
149             return \@gaAttributes;
150             }
151              
152              
153              
154             1;