File Coverage

lib/eBay/API/XML/Call/ReviseMyMessagesFolders/ReviseMyMessagesFoldersRequestType.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::ReviseMyMessagesFolders::ReviseMyMessagesFoldersRequestType;
4              
5 1     1   1560 use strict;
  1         2  
  1         33  
6 1     1   5 use warnings;
  1         2  
  1         29  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ReviseMyMessagesFoldersRequestType.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::ReviseMyMessagesFolders::ReviseMyMessagesFoldersRequestType
21              
22             =head1 DESCRIPTION
23              
24             Renames, removes, or restores specified My Messages folders for
25             a given user.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::Call::ReviseMyMessagesFolders::ReviseMyMessagesFoldersRequestType inherits from the L class
37              
38             =cut
39              
40 1     1   45 use eBay::API::XML::RequestDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::RequestDataType");
42              
43             use eBay::API::XML::DataType::Enum::MyMessagesFolderOperationCodeType;
44              
45              
46             my @gaProperties = ( [ 'FolderID', 'xs:long', '1', '', '' ]
47             , [ 'FolderName', 'xs:string', '1', '', '' ]
48             , [ 'Operation', 'ns:MyMessagesFolderOperationCodeType', ''
49             ,'eBay::API::XML::DataType::Enum::MyMessagesFolderOperationCodeType', '' ]
50             );
51             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
52              
53             my @gaAttributes = (
54             );
55             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
56              
57             =head1 Subroutines:
58              
59             =cut
60              
61             sub new {
62             my $classname = shift;
63             my %args = @_;
64             my $self = $classname->SUPER::new(%args);
65             return $self;
66             }
67              
68             sub isScalar {
69             return 0;
70             }
71              
72              
73              
74             =head2 setFolderID()
75              
76             An ID that uniquely identifies the My Messages
77             folder to perform the operation on. This value is set by
78             eBay and cannot be changed. Retrieve FolderIDs
79             by calling GetMyMessages with a DetailLevel of
80             ReturnSummary. Inbox is FolderID = 0, and Sent is
81             FolderID = 1.
82              
83             RequiredInput: Yes
84             # Argument: reference to an array
85             of 'xs:long'
86              
87             =cut
88              
89             sub setFolderID {
90             my $self = shift;
91             $self->{'FolderID'} =
92             $self->convertArray_To_RefToArrayIfNeeded(@_);
93             }
94              
95             =head2 getFolderID()
96              
97             # Returns: reference to an array
98             of 'xs:long'
99              
100             =cut
101              
102             sub getFolderID {
103             my $self = shift;
104             return $self->_getDataTypeArray('FolderID');
105             }
106              
107              
108             =head2 setFolderName()
109              
110             The name of a specified My Messages folder. Depending
111             on the specified Operation, the value is an existing
112             folder name or a new folder name. Retrieve existing
113             FolderNames by calling GetMyMessages with a DetailLevel
114             of ReturnSummary. Inbox is FolderID = 0, and Sent is
115             FolderID = 1.
116              
117             RequiredInput: Conditionally
118             # Argument: reference to an array
119             of 'xs:string'
120              
121             =cut
122              
123             sub setFolderName {
124             my $self = shift;
125             $self->{'FolderName'} =
126             $self->convertArray_To_RefToArrayIfNeeded(@_);
127             }
128              
129             =head2 getFolderName()
130              
131             # Returns: reference to an array
132             of 'xs:string'
133              
134             =cut
135              
136             sub getFolderName {
137             my $self = shift;
138             return $self->_getDataTypeArray('FolderName');
139             }
140              
141              
142             =head2 setOperation()
143              
144             Indicates the type of operation to perform on a
145             specified My Messages folder. Operations include
146             renaming, removing, and restoring folders. Operations
147             cannot be performed on the Inbox and Sent folders.
148              
149             RequiredInput: Yes
150             # Argument: 'ns:MyMessagesFolderOperationCodeType'
151              
152             =cut
153              
154             sub setOperation {
155             my $self = shift;
156             $self->{'Operation'} = shift
157             }
158              
159             =head2 getOperation()
160              
161             # Returns: 'ns:MyMessagesFolderOperationCodeType'
162              
163             =cut
164              
165             sub getOperation {
166             my $self = shift;
167             return $self->{'Operation'};
168             }
169              
170              
171              
172              
173              
174             ## Attribute and Property lists
175             sub getPropertiesList {
176             my $self = shift;
177             return \@gaProperties;
178             }
179              
180             sub getAttributesList {
181             my $self = shift;
182             return \@gaAttributes;
183             }
184              
185              
186              
187             1;