File Coverage

lib/eBay/API/XML/Call/GetCategoryMappings/GetCategoryMappingsRequestType.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::Call::GetCategoryMappings::GetCategoryMappingsRequestType;
4              
5 1     1   1428 use strict;
  1         2  
  1         24  
6 1     1   4 use warnings;
  1         2  
  1         26  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetCategoryMappingsRequestType.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::Call::GetCategoryMappings::GetCategoryMappingsRequestType
21              
22             =head1 DESCRIPTION
23              
24             Retrieves a map of old category IDs and corresponding active
25             category IDs defined for the site to which the request is sent.
26             Typically used to update an older item definition with a new
27             category ID prior to listing the item.
28              
29              
30              
31             =head1 SYNOPSIS
32              
33             =cut
34              
35              
36             =head1 INHERITANCE
37              
38             eBay::API::XML::Call::GetCategoryMappings::GetCategoryMappingsRequestType inherits from the L class
39              
40             =cut
41              
42 1     1   33 use eBay::API::XML::RequestDataType;
  0            
  0            
43             our @ISA = ("eBay::API::XML::RequestDataType");
44              
45              
46              
47             my @gaProperties = ( [ 'CategoryVersion', 'xs:string', '', '', '' ]
48             );
49             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
50              
51             my @gaAttributes = (
52             );
53             push @gaAttributes, @{eBay::API::XML::RequestDataType::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 setCategoryVersion()
73              
74             A version of the category mapping for the site. Filters
75             out data from the call to return only the category
76             mappings for which the data has changed since the
77             specified version. If not specified, all category
78             mappings are returned. Typically, an application passes
79             the version value of the last set of category mappings
80             that the application stored locally. The latest version
81             value is not necessarily greater than the previous value
82             that was returned. Therefore, when comparing versions,
83             only compare whether the value has changed.
84              
85             RequiredInput: No
86             # Argument: 'xs:string'
87              
88             =cut
89              
90             sub setCategoryVersion {
91             my $self = shift;
92             $self->{'CategoryVersion'} = shift
93             }
94              
95             =head2 getCategoryVersion()
96              
97             # Returns: 'xs:string'
98              
99             =cut
100              
101             sub getCategoryVersion {
102             my $self = shift;
103             return $self->{'CategoryVersion'};
104             }
105              
106              
107              
108              
109              
110             ## Attribute and Property lists
111             sub getPropertiesList {
112             my $self = shift;
113             return \@gaProperties;
114             }
115              
116             sub getAttributesList {
117             my $self = shift;
118             return \@gaAttributes;
119             }
120              
121              
122              
123             1;