File Coverage

lib/eBay/API/XML/DataType/CategoryMappingType.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::CategoryMappingType;
4              
5 1     1   1184 use strict;
  1         2  
  1         32  
6 1     1   5 use warnings;
  1         1  
  1         26  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. CategoryMappingType.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::CategoryMappingType
21              
22             =head1 DESCRIPTION
23              
24             Mapping between an old category ID and an active category ID.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::CategoryMappingType inherits from the L class
36              
37             =cut
38              
39 1     1   40 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42              
43              
44             my @gaProperties = (
45             );
46             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
47              
48             my @gaAttributes = ( [ 'id', 'xs:string', '', '', '' ]
49             , [ 'oldID', 'xs:string', '', '', '' ]
50             );
51             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
52              
53             =head1 Subroutines:
54              
55             =cut
56              
57             sub new {
58             my $classname = shift;
59             my %args = @_;
60             my $self = $classname->SUPER::new(%args);
61             return $self;
62             }
63              
64             sub isScalar {
65             return 0;
66             }
67              
68              
69              
70              
71              
72             =head2 setId()
73              
74             Identifier for an active category. Unique for the site.
75             These IDs correspond to the current IDs in the category hierarchy
76             (returned from GetCategories and related calls). Multiple mappings can
77             specify the same active category ID, because different old IDs can be mapped
78             to the same active category. See "Mapping Categories on the Client Side" in the
79             eBay Web Services guide.
80             In GetCategoryMappings, this is always returned when CategoryMapping is returned.
81              
82             # Argument: 'xs:string'
83              
84             =cut
85              
86             sub setId {
87             my $self = shift;
88             $self->{'id'} = shift
89             }
90              
91             =head2 getId()
92              
93             Calls: GetCategoryMappings
94             Returned: Conditionally
95              
96             # Returns: 'xs:string'
97              
98             =cut
99              
100             sub getId {
101             my $self = shift;
102             return $self->{'id'};
103             }
104              
105              
106             =head2 setOldID()
107              
108             Identifier for an old category that has been combined with an active category.
109             Unique for the site. These IDs correspond to older category IDs that
110             calls like GetCategories have returned in the past.
111             In GetCategoryMappings, this is always returned when CategoryMapping is returned.
112              
113             # Argument: 'xs:string'
114              
115             =cut
116              
117             sub setOldID {
118             my $self = shift;
119             $self->{'oldID'} = shift
120             }
121              
122             =head2 getOldID()
123              
124             Calls: GetCategoryMappings
125             Returned: Conditionally
126              
127             # Returns: 'xs:string'
128              
129             =cut
130              
131             sub getOldID {
132             my $self = shift;
133             return $self->{'oldID'};
134             }
135              
136              
137              
138             ## Attribute and Property lists
139             sub getPropertiesList {
140             my $self = shift;
141             return \@gaProperties;
142             }
143              
144             sub getAttributesList {
145             my $self = shift;
146             return \@gaAttributes;
147             }
148              
149              
150              
151             1;