File Coverage

lib/eBay/API/XML/DataType/BuyingGuideDetailsType.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::BuyingGuideDetailsType;
4              
5 1     1   1083 use strict;
  1         2  
  1         26  
6 1     1   4 use warnings;
  1         3  
  1         33  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. BuyingGuideDetailsType.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::BuyingGuideDetailsType
21              
22             =head1 DESCRIPTION
23              
24             Information about zero or more buying guides and the site's buying guide hub.
25             Buying guides contain content about particular product areas, categories, or subjects
26             to help buyers decide which type of item to purchase based on their particular interests.
27             Multiple buying guides can be returned. See the eBay Web Services Guide for additional information.
28              
29              
30              
31             =head1 SYNOPSIS
32              
33             =cut
34              
35              
36             =head1 INHERITANCE
37              
38             eBay::API::XML::DataType::BuyingGuideDetailsType inherits from the L class
39              
40             =cut
41              
42 1     1   40 use eBay::API::XML::BaseDataType;
  0            
  0            
43             our @ISA = ("eBay::API::XML::BaseDataType");
44              
45             use eBay::API::XML::DataType::BuyingGuideType;
46              
47              
48             my @gaProperties = ( [ 'BuyingGuide', 'ns:BuyingGuideType', '1'
49             ,'eBay::API::XML::DataType::BuyingGuideType', '1' ]
50             , [ 'BuyingGuideHub', 'xs:anyURI', '', '', '' ]
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 setBuyingGuide()
76              
77             Information that identifies a buying guide. A buying guide contains content about particular
78             product areas, categories, or subjects to help buyers decide which type of item
79             to purchase based on their particular interests.
80             Buying guides are useful to buyers who do not have a specific product in mind.
81             For example, a digital camera buying guide could help a buyer determine what kind of
82             digital camera is right for them.
83              
84             # Argument: reference to an array
85             of 'ns:BuyingGuideType'
86              
87             =cut
88              
89             sub setBuyingGuide {
90             my $self = shift;
91             $self->{'BuyingGuide'} =
92             $self->convertArray_To_RefToArrayIfNeeded(@_);
93             }
94              
95             =head2 getBuyingGuide()
96              
97             Calls: GetSearchResults
98             Returned: Conditionally
99             Details: DetailLevel: ItemReturnAttributes, ItemReturnCategories, none, ReturnAll
100             GranularityLevel: Coarse
101              
102              
103             Calls: GetCategoryListings
104             Returned: Conditionally
105              
106             Calls: GetProducts
107             Returned: Conditionally
108             MaxOccurs: 5
109              
110             # Returns: reference to an array
111             of 'ns:BuyingGuideType'
112              
113             =cut
114              
115             sub getBuyingGuide {
116             my $self = shift;
117             return $self->_getDataTypeArray('BuyingGuide');
118             }
119              
120              
121             =head2 setBuyingGuideHub()
122              
123             URL of the buying guide home page for the site being searched.
124             Your application can present this URL as a link. Optionally,
125             you can use a value like "See all buying guides" as the link's
126             display name. GetProducts returns this URL even when no guides
127             are available for the product.
128              
129             # Argument: 'xs:anyURI'
130              
131             =cut
132              
133             sub setBuyingGuideHub {
134             my $self = shift;
135             $self->{'BuyingGuideHub'} = shift
136             }
137              
138             =head2 getBuyingGuideHub()
139              
140             Calls: GetSearchResults
141             Returned: Conditionally
142             Details: DetailLevel: ItemReturnAttributes, ItemReturnCategories, none, ReturnAll
143             GranularityLevel: Coarse
144              
145              
146             Calls: GetCategoryListings
147             Returned: Conditionally
148              
149             Calls: GetProducts
150             Returned: Conditionally
151              
152             # Returns: 'xs:anyURI'
153              
154             =cut
155              
156             sub getBuyingGuideHub {
157             my $self = shift;
158             return $self->{'BuyingGuideHub'};
159             }
160              
161              
162              
163              
164              
165             ## Attribute and Property lists
166             sub getPropertiesList {
167             my $self = shift;
168             return \@gaProperties;
169             }
170              
171             sub getAttributesList {
172             my $self = shift;
173             return \@gaAttributes;
174             }
175              
176              
177              
178             1;