File Coverage

lib/eBay/API/XML/Call/GetStoreCategoryUpdateStatus/GetStoreCategoryUpdateStatusRequestType.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::GetStoreCategoryUpdateStatus::GetStoreCategoryUpdateStatusRequestType;
4              
5 1     1   1567 use strict;
  1         2  
  1         28  
6 1     1   5 use warnings;
  1         2  
  1         28  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetStoreCategoryUpdateStatusRequestType.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::GetStoreCategoryUpdateStatus::GetStoreCategoryUpdateStatusRequestType
21              
22             =head1 DESCRIPTION
23              
24             Returns the status of the processing progress for category structure changes
25             specified with a SetStoreCategories request. Use this call to retrieve status
26             when the SetStoreCategories call is being processed asynchronously.
27             SetStoreCategories will be processed asynchronously when many listings are
28             affected by the category structure changes.
29              
30              
31              
32             =head1 SYNOPSIS
33              
34             =cut
35              
36              
37             =head1 INHERITANCE
38              
39             eBay::API::XML::Call::GetStoreCategoryUpdateStatus::GetStoreCategoryUpdateStatusRequestType inherits from the L class
40              
41             =cut
42              
43 1     1   34 use eBay::API::XML::RequestDataType;
  0            
  0            
44             our @ISA = ("eBay::API::XML::RequestDataType");
45              
46              
47              
48             my @gaProperties = ( [ 'TaskID', 'xs:long', '', '', '' ]
49             );
50             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
51              
52             my @gaAttributes = (
53             );
54             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
55              
56             =head1 Subroutines:
57              
58             =cut
59              
60             sub new {
61             my $classname = shift;
62             my %args = @_;
63             my $self = $classname->SUPER::new(%args);
64             return $self;
65             }
66              
67             sub isScalar {
68             return 0;
69             }
70              
71              
72              
73             =head2 setTaskID()
74              
75             The task ID returned by the SetStoreCategories call. If the
76             SetStoreCategories call was processed asynchronously, the TaskID will be
77             a positive number, otherwise the TaskID will be 0.
78              
79             RequiredInput: Yes
80             # Argument: 'xs:long'
81              
82             =cut
83              
84             sub setTaskID {
85             my $self = shift;
86             $self->{'TaskID'} = shift
87             }
88              
89             =head2 getTaskID()
90              
91             # Returns: 'xs:long'
92              
93             =cut
94              
95             sub getTaskID {
96             my $self = shift;
97             return $self->{'TaskID'};
98             }
99              
100              
101              
102              
103              
104             ## Attribute and Property lists
105             sub getPropertiesList {
106             my $self = shift;
107             return \@gaProperties;
108             }
109              
110             sub getAttributesList {
111             my $self = shift;
112             return \@gaAttributes;
113             }
114              
115              
116              
117             1;