File Coverage

lib/eBay/API/XML/DataType/CharacteristicSetIDsType.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::CharacteristicSetIDsType;
4              
5 1     1   1134 use strict;
  1         2  
  1         33  
6 1     1   6 use warnings;
  1         2  
  1         28  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. CharacteristicSetIDsType.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::CharacteristicSetIDsType
21              
22             =head1 DESCRIPTION
23              
24             A list of one or more characteristic set IDs.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::CharacteristicSetIDsType inherits from the L class
36              
37             =cut
38              
39 1     1   33 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42              
43              
44             my @gaProperties = ( [ 'ID', 'xs:string', '1', '', '' ]
45             );
46             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
47              
48             my @gaAttributes = (
49             );
50             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
51              
52             =head1 Subroutines:
53              
54             =cut
55              
56             sub new {
57             my $classname = shift;
58             my %args = @_;
59             my $self = $classname->SUPER::new(%args);
60             return $self;
61             }
62              
63             sub isScalar {
64             return 0;
65             }
66              
67              
68              
69             =head2 setID()
70              
71             Numeric identifier for a domain (characteristic set).
72            
73             For GetProducts (for buying tools), you can use the list of
74             catalog-enabled attribute sets in the documentation
75             (see link below).
76            
77             For GetProductSearchResults (for selling tools), it's best to use
78             GetCategory2CS to determine mappings between categories and
79             characteristic sets that are flagged as CatalogEnabled.
80              
81             SeeLink: URL: ../../Support/CatalogEnabledAttrSets.html
82             Title: Catalog-Enabled Attribute Sets
83              
84             Calls: GetProductSearchResults
85             GetProducts
86             RequiredInput: No
87              
88             # Argument: reference to an array
89             of 'xs:string'
90              
91             =cut
92              
93             sub setID {
94             my $self = shift;
95             $self->{'ID'} =
96             $self->convertArray_To_RefToArrayIfNeeded(@_);
97             }
98              
99             =head2 getID()
100              
101             # Returns: reference to an array
102             of 'xs:string'
103              
104             =cut
105              
106             sub getID {
107             my $self = shift;
108             return $self->_getDataTypeArray('ID');
109             }
110              
111              
112              
113              
114              
115             ## Attribute and Property lists
116             sub getPropertiesList {
117             my $self = shift;
118             return \@gaProperties;
119             }
120              
121             sub getAttributesList {
122             my $self = shift;
123             return \@gaAttributes;
124             }
125              
126              
127              
128             1;