File Coverage

lib/eBay/API/XML/DataType/DomainHistogramType.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::DomainHistogramType;
4              
5 1     1   1228 use strict;
  1         3  
  1         33  
6 1     1   6 use warnings;
  1         2  
  1         168  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. DomainHistogramType.pm
12             # Generated by: ......... genEBayApiDataTypes.pl
13             # Last Generated: ....... 07/07/2008 17:42
14             # API Release Number: ... 571
15             #
16             ##########################################################################
17              
18             =head1 NAME
19              
20             eBay::API::XML::DataType::DomainHistogramType
21              
22             =head1 DESCRIPTION
23              
24             Container for a list of Express departments, aisles, and/or products.
25             Can contain zero, one, or multiple ExpressHistogramDepartmentType objects.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::DataType::DomainHistogramType inherits from the L class
37              
38             =cut
39              
40 1     1   46 use eBay::API::XML::BaseDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::BaseDataType");
42              
43             use eBay::API::XML::DataType::ExpressHistogramDepartmentType;
44              
45              
46             my @gaProperties = ( [ 'Department', 'ns:ExpressHistogramDepartmentType', '1'
47             ,'eBay::API::XML::DataType::ExpressHistogramDepartmentType', '1' ]
48             );
49             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
50              
51             my @gaAttributes = (
52             );
53             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
54              
55             =head1 Subroutines:
56              
57             =cut
58              
59             sub new {
60             my $classname = shift;
61             my %args = @_;
62             my $self = $classname->SUPER::new(%args);
63             return $self;
64             }
65              
66             sub isScalar {
67             return 0;
68             }
69              
70              
71              
72             =head2 setDepartment()
73              
74             Contains item and product counts for a department, aisles, and/or Express product types.
75             Only returned when HistogramDetails is configured to retrieve histogram data.
76             Multiple Department nodes can be returned.
77              
78             # Argument: reference to an array
79             of 'ns:ExpressHistogramDepartmentType'
80              
81             =cut
82              
83             sub setDepartment {
84             my $self = shift;
85             $self->{'Department'} =
86             $self->convertArray_To_RefToArrayIfNeeded(@_);
87             }
88              
89             =head2 getDepartment()
90              
91             Calls: GetSearchResultsExpress
92             Returned: Conditionally
93              
94             # Returns: reference to an array
95             of 'ns:ExpressHistogramDepartmentType'
96              
97             =cut
98              
99             sub getDepartment {
100             my $self = shift;
101             return $self->_getDataTypeArray('Department');
102             }
103              
104              
105              
106              
107              
108             ## Attribute and Property lists
109             sub getPropertiesList {
110             my $self = shift;
111             return \@gaProperties;
112             }
113              
114             sub getAttributesList {
115             my $self = shift;
116             return \@gaAttributes;
117             }
118              
119              
120              
121             1;