File Coverage

lib/eBay/API/XML/DataType/SiteWideCharacteristicsType.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::SiteWideCharacteristicsType;
4              
5 1     1   1374 use strict;
  1         3  
  1         39  
6 1     1   7 use warnings;
  1         3  
  1         36  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. SiteWideCharacteristicsType.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::SiteWideCharacteristicsType
21              
22             =head1 DESCRIPTION
23              
24             A list of one or more characteristics sets mapped to the category, if any. Use this information when working with Item Specifics (Attributes) and Pre-filled Item Information (Catalogs) functionality.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::SiteWideCharacteristicsType inherits from the L class
36              
37             =cut
38              
39 1     1   48 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::CharacteristicsSetType;
43              
44              
45             my @gaProperties = ( [ 'CharacteristicsSet', 'ns:CharacteristicsSetType', ''
46             ,'eBay::API::XML::DataType::CharacteristicsSetType', '1' ]
47             , [ 'ExcludeCategoryID', 'xs:string', '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 setCharacteristicsSet()
73              
74             Container for site-wide characteristics set information.
75              
76             # Argument: 'ns:CharacteristicsSetType'
77              
78             =cut
79              
80             sub setCharacteristicsSet {
81             my $self = shift;
82             $self->{'CharacteristicsSet'} = shift
83             }
84              
85             =head2 getCharacteristicsSet()
86              
87             Calls: GetCategory2CS
88             Returned: Conditionally
89             Details: DetailLevel: ReturnAll
90              
91             # Returns: 'ns:CharacteristicsSetType'
92              
93             =cut
94              
95             sub getCharacteristicsSet {
96             my $self = shift;
97             return $self->_getDataTypeInstance( 'CharacteristicsSet'
98             ,'eBay::API::XML::DataType::CharacteristicsSetType');
99             }
100              
101              
102             =head2 setExcludeCategoryID()
103              
104             A category that does not support the specified site-wide characteristics set.
105              
106             # Argument: reference to an array
107             of 'xs:string'
108              
109             =cut
110              
111             sub setExcludeCategoryID {
112             my $self = shift;
113             $self->{'ExcludeCategoryID'} =
114             $self->convertArray_To_RefToArrayIfNeeded(@_);
115             }
116              
117             =head2 getExcludeCategoryID()
118              
119             Calls: GetCategory2CS
120             Returned: Conditionally
121             Details: DetailLevel: ReturnAll
122              
123             # Returns: reference to an array
124             of 'xs:string'
125              
126             =cut
127              
128             sub getExcludeCategoryID {
129             my $self = shift;
130             return $self->_getDataTypeArray('ExcludeCategoryID');
131             }
132              
133              
134              
135              
136              
137             ## Attribute and Property lists
138             sub getPropertiesList {
139             my $self = shift;
140             return \@gaProperties;
141             }
142              
143             sub getAttributesList {
144             my $self = shift;
145             return \@gaAttributes;
146             }
147              
148              
149              
150             1;