File Coverage

lib/eBay/API/XML/Call/GetContextualKeywords/GetContextualKeywordsRequestType.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::Call::GetContextualKeywords::GetContextualKeywordsRequestType;
4              
5 1     1   3497 use strict;
  1         4  
  1         73  
6 1     1   10 use warnings;
  1         3  
  1         73  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetContextualKeywordsRequestType.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::Call::GetContextualKeywords::GetContextualKeywordsRequestType
21              
22             =head1 DESCRIPTION
23              
24             The use of this call requires approval from the eBay Developers Program.
25             If you would like access,
26             please send an email to developer-relations@ebay.com detailing your typical usage,
27             with estimated usage numbers for this call.
28            
29            
30             This call retrieves top-ranked contextual eBay keywords and categories for a specified web
31             page. Results are ranked according to score. This enables developers to create
32             applications that are different from traditional contextual ad serving. For
33             instance, instead of building a standard ad banner or skyscraper ad like those
34             from eBay AdContext, a developer could create an application that does inline
35             hyperlinking of keywords on any page or create widgets for blog platforms.
36             Not available for SG and HK sites.
37              
38              
39              
40             =head1 SYNOPSIS
41              
42             =cut
43              
44              
45             =head1 INHERITANCE
46              
47             eBay::API::XML::Call::GetContextualKeywords::GetContextualKeywordsRequestType inherits from the L class
48              
49             =cut
50              
51 1     1   75 use eBay::API::XML::RequestDataType;
  0            
  0            
52             our @ISA = ("eBay::API::XML::RequestDataType");
53              
54              
55              
56             my @gaProperties = ( [ 'CategoryID', 'xs:string', '1', '', '' ]
57             , [ 'Encoding', 'xs:string', '', '', '' ]
58             , [ 'URL', 'xs:anyURI', '', '', '' ]
59             );
60             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
61              
62             my @gaAttributes = (
63             );
64             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
65              
66             =head1 Subroutines:
67              
68             =cut
69              
70             sub new {
71             my $classname = shift;
72             my %args = @_;
73             my $self = $classname->SUPER::new(%args);
74             return $self;
75             }
76              
77             sub isScalar {
78             return 0;
79             }
80              
81              
82              
83             =head2 setCategoryID()
84              
85             The ID of the category to which keywords are to be limited.
86             Zero or more category IDs can be specified.
87              
88             RequiredInput: No
89             # Argument: reference to an array
90             of 'xs:string'
91              
92             =cut
93              
94             sub setCategoryID {
95             my $self = shift;
96             $self->{'CategoryID'} =
97             $self->convertArray_To_RefToArrayIfNeeded(@_);
98             }
99              
100             =head2 getCategoryID()
101              
102             # Returns: reference to an array
103             of 'xs:string'
104              
105             =cut
106              
107             sub getCategoryID {
108             my $self = shift;
109             return $self->_getDataTypeArray('CategoryID');
110             }
111              
112              
113             =head2 setEncoding()
114              
115             Web page encoding by which the URL is to be handled, such as ISO-8859-1.
116              
117             RequiredInput: Yes
118             # Argument: 'xs:string'
119              
120             =cut
121              
122             sub setEncoding {
123             my $self = shift;
124             $self->{'Encoding'} = shift
125             }
126              
127             =head2 getEncoding()
128              
129             # Returns: 'xs:string'
130              
131             =cut
132              
133             sub getEncoding {
134             my $self = shift;
135             return $self->{'Encoding'};
136             }
137              
138              
139             =head2 setURL()
140              
141             The URL of the web page from which eBay is to extract keywords.
142              
143             RequiredInput: Yes
144             # Argument: 'xs:anyURI'
145              
146             =cut
147              
148             sub setURL {
149             my $self = shift;
150             $self->{'URL'} = shift
151             }
152              
153             =head2 getURL()
154              
155             # Returns: 'xs:anyURI'
156              
157             =cut
158              
159             sub getURL {
160             my $self = shift;
161             return $self->{'URL'};
162             }
163              
164              
165              
166              
167              
168             ## Attribute and Property lists
169             sub getPropertiesList {
170             my $self = shift;
171             return \@gaProperties;
172             }
173              
174             sub getAttributesList {
175             my $self = shift;
176             return \@gaAttributes;
177             }
178              
179              
180              
181             1;