line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
package eBay::API::XML::Call::GetAccount::GetAccountRequestType; |
4
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
1415
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
27
|
|
6
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
33
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
########################################################################## |
9
|
|
|
|
|
|
|
# |
10
|
|
|
|
|
|
|
# Module: ............... eBay/API/XML |
11
|
|
|
|
|
|
|
# File: ................. GetAccountRequestType.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::GetAccount::GetAccountRequestType |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
=head1 DESCRIPTION |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
Enables a seller to retreive his or her own account data. Returns account |
25
|
|
|
|
|
|
|
data in a report format the user selects. Also returns summary data for the account. |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
=head1 SYNOPSIS |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
=cut |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
=head1 INHERITANCE |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
eBay::API::XML::Call::GetAccount::GetAccountRequestType inherits from the L class |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
=cut |
39
|
|
|
|
|
|
|
|
40
|
1
|
|
|
1
|
|
38
|
use eBay::API::XML::RequestDataType; |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
our @ISA = ("eBay::API::XML::RequestDataType"); |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
use eBay::API::XML::DataType::ItemIDType; |
44
|
|
|
|
|
|
|
use eBay::API::XML::DataType::PaginationType; |
45
|
|
|
|
|
|
|
use eBay::API::XML::DataType::Enum::AccountEntrySortTypeCodeType; |
46
|
|
|
|
|
|
|
use eBay::API::XML::DataType::Enum::AccountHistorySelectionCodeType; |
47
|
|
|
|
|
|
|
use eBay::API::XML::DataType::Enum::CurrencyCodeType; |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
my @gaProperties = ( [ 'AccountEntrySortType', 'ns:AccountEntrySortTypeCodeType', '' |
51
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::Enum::AccountEntrySortTypeCodeType', '' ] |
52
|
|
|
|
|
|
|
, [ 'AccountHistorySelection', 'ns:AccountHistorySelectionCodeType', '' |
53
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::Enum::AccountHistorySelectionCodeType', '' ] |
54
|
|
|
|
|
|
|
, [ 'BeginDate', 'xs:dateTime', '', '', '' ] |
55
|
|
|
|
|
|
|
, [ 'Currency', 'ns:CurrencyCodeType', '' |
56
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::Enum::CurrencyCodeType', '' ] |
57
|
|
|
|
|
|
|
, [ 'EndDate', 'xs:dateTime', '', '', '' ] |
58
|
|
|
|
|
|
|
, [ 'ExcludeBalance', 'xs:boolean', '', '', '' ] |
59
|
|
|
|
|
|
|
, [ 'ExcludeSummary', 'xs:boolean', '', '', '' ] |
60
|
|
|
|
|
|
|
, [ 'InvoiceDate', 'xs:dateTime', '', '', '' ] |
61
|
|
|
|
|
|
|
, [ 'ItemID', 'ns:ItemIDType', '' |
62
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::ItemIDType', '1' ] |
63
|
|
|
|
|
|
|
, [ 'Pagination', 'ns:PaginationType', '' |
64
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::PaginationType', '1' ] |
65
|
|
|
|
|
|
|
); |
66
|
|
|
|
|
|
|
push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()}; |
67
|
|
|
|
|
|
|
|
68
|
|
|
|
|
|
|
my @gaAttributes = ( |
69
|
|
|
|
|
|
|
); |
70
|
|
|
|
|
|
|
push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()}; |
71
|
|
|
|
|
|
|
|
72
|
|
|
|
|
|
|
=head1 Subroutines: |
73
|
|
|
|
|
|
|
|
74
|
|
|
|
|
|
|
=cut |
75
|
|
|
|
|
|
|
|
76
|
|
|
|
|
|
|
sub new { |
77
|
|
|
|
|
|
|
my $classname = shift; |
78
|
|
|
|
|
|
|
my %args = @_; |
79
|
|
|
|
|
|
|
my $self = $classname->SUPER::new(%args); |
80
|
|
|
|
|
|
|
return $self; |
81
|
|
|
|
|
|
|
} |
82
|
|
|
|
|
|
|
|
83
|
|
|
|
|
|
|
sub isScalar { |
84
|
|
|
|
|
|
|
return 0; |
85
|
|
|
|
|
|
|
} |
86
|
|
|
|
|
|
|
|
87
|
|
|
|
|
|
|
|
88
|
|
|
|
|
|
|
|
89
|
|
|
|
|
|
|
=head2 setAccountEntrySortType() |
90
|
|
|
|
|
|
|
|
91
|
|
|
|
|
|
|
Specifies how account entries should be sorted in |
92
|
|
|
|
|
|
|
the response, by an element and then in ascending or |
93
|
|
|
|
|
|
|
descending order. |
94
|
|
|
|
|
|
|
|
95
|
|
|
|
|
|
|
RequiredInput: No |
96
|
|
|
|
|
|
|
# Argument: 'ns:AccountEntrySortTypeCodeType' |
97
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
=cut |
99
|
|
|
|
|
|
|
|
100
|
|
|
|
|
|
|
sub setAccountEntrySortType { |
101
|
|
|
|
|
|
|
my $self = shift; |
102
|
|
|
|
|
|
|
$self->{'AccountEntrySortType'} = shift |
103
|
|
|
|
|
|
|
} |
104
|
|
|
|
|
|
|
|
105
|
|
|
|
|
|
|
=head2 getAccountEntrySortType() |
106
|
|
|
|
|
|
|
|
107
|
|
|
|
|
|
|
# Returns: 'ns:AccountEntrySortTypeCodeType' |
108
|
|
|
|
|
|
|
|
109
|
|
|
|
|
|
|
=cut |
110
|
|
|
|
|
|
|
|
111
|
|
|
|
|
|
|
sub getAccountEntrySortType { |
112
|
|
|
|
|
|
|
my $self = shift; |
113
|
|
|
|
|
|
|
return $self->{'AccountEntrySortType'}; |
114
|
|
|
|
|
|
|
} |
115
|
|
|
|
|
|
|
|
116
|
|
|
|
|
|
|
|
117
|
|
|
|
|
|
|
=head2 setAccountHistorySelection() |
118
|
|
|
|
|
|
|
|
119
|
|
|
|
|
|
|
Specifies the report format in which to return account entries. |
120
|
|
|
|
|
|
|
|
121
|
|
|
|
|
|
|
RequiredInput: Conditionally |
122
|
|
|
|
|
|
|
# Argument: 'ns:AccountHistorySelectionCodeType' |
123
|
|
|
|
|
|
|
|
124
|
|
|
|
|
|
|
=cut |
125
|
|
|
|
|
|
|
|
126
|
|
|
|
|
|
|
sub setAccountHistorySelection { |
127
|
|
|
|
|
|
|
my $self = shift; |
128
|
|
|
|
|
|
|
$self->{'AccountHistorySelection'} = shift |
129
|
|
|
|
|
|
|
} |
130
|
|
|
|
|
|
|
|
131
|
|
|
|
|
|
|
=head2 getAccountHistorySelection() |
132
|
|
|
|
|
|
|
|
133
|
|
|
|
|
|
|
# Returns: 'ns:AccountHistorySelectionCodeType' |
134
|
|
|
|
|
|
|
|
135
|
|
|
|
|
|
|
=cut |
136
|
|
|
|
|
|
|
|
137
|
|
|
|
|
|
|
sub getAccountHistorySelection { |
138
|
|
|
|
|
|
|
my $self = shift; |
139
|
|
|
|
|
|
|
return $self->{'AccountHistorySelection'}; |
140
|
|
|
|
|
|
|
} |
141
|
|
|
|
|
|
|
|
142
|
|
|
|
|
|
|
|
143
|
|
|
|
|
|
|
=head2 setBeginDate() |
144
|
|
|
|
|
|
|
|
145
|
|
|
|
|
|
|
Specifies the beginning of a date range during which a credit or debit |
146
|
|
|
|
|
|
|
occurred. Used when AccountHistorySelection is BetweenSpecifiedDates. |
147
|
|
|
|
|
|
|
Value must be less than or equal to the value specified in EndDate. The allowed date |
148
|
|
|
|
|
|
|
formats are YYYY-MM-DD and YYYY-MM-DD HH:mm:ss. |
149
|
|
|
|
|
|
|
You can retrieve information that is up to 4 months old. |
150
|
|
|
|
|
|
|
|
151
|
|
|
|
|
|
|
RequiredInput: Conditionally |
152
|
|
|
|
|
|
|
# Argument: 'xs:dateTime' |
153
|
|
|
|
|
|
|
|
154
|
|
|
|
|
|
|
=cut |
155
|
|
|
|
|
|
|
|
156
|
|
|
|
|
|
|
sub setBeginDate { |
157
|
|
|
|
|
|
|
my $self = shift; |
158
|
|
|
|
|
|
|
$self->{'BeginDate'} = shift |
159
|
|
|
|
|
|
|
} |
160
|
|
|
|
|
|
|
|
161
|
|
|
|
|
|
|
=head2 getBeginDate() |
162
|
|
|
|
|
|
|
|
163
|
|
|
|
|
|
|
# Returns: 'xs:dateTime' |
164
|
|
|
|
|
|
|
|
165
|
|
|
|
|
|
|
=cut |
166
|
|
|
|
|
|
|
|
167
|
|
|
|
|
|
|
sub getBeginDate { |
168
|
|
|
|
|
|
|
my $self = shift; |
169
|
|
|
|
|
|
|
return $self->{'BeginDate'}; |
170
|
|
|
|
|
|
|
} |
171
|
|
|
|
|
|
|
|
172
|
|
|
|
|
|
|
|
173
|
|
|
|
|
|
|
=head2 setCurrency() |
174
|
|
|
|
|
|
|
|
175
|
|
|
|
|
|
|
Specifies the currency used in the account report. Do not specify Currency in the request |
176
|
|
|
|
|
|
|
unless the following conditions are met. First, the user has or had multiple accounts under |
177
|
|
|
|
|
|
|
the same UserID. Second, the account identified in the request uses the currency you specify in the request. An error is returned if no account is found that uses the currency you specify in the request. |
178
|
|
|
|
|
|
|
|
179
|
|
|
|
|
|
|
RequiredInput: No |
180
|
|
|
|
|
|
|
# Argument: 'ns:CurrencyCodeType' |
181
|
|
|
|
|
|
|
|
182
|
|
|
|
|
|
|
=cut |
183
|
|
|
|
|
|
|
|
184
|
|
|
|
|
|
|
sub setCurrency { |
185
|
|
|
|
|
|
|
my $self = shift; |
186
|
|
|
|
|
|
|
$self->{'Currency'} = shift |
187
|
|
|
|
|
|
|
} |
188
|
|
|
|
|
|
|
|
189
|
|
|
|
|
|
|
=head2 getCurrency() |
190
|
|
|
|
|
|
|
|
191
|
|
|
|
|
|
|
# Returns: 'ns:CurrencyCodeType' |
192
|
|
|
|
|
|
|
|
193
|
|
|
|
|
|
|
=cut |
194
|
|
|
|
|
|
|
|
195
|
|
|
|
|
|
|
sub getCurrency { |
196
|
|
|
|
|
|
|
my $self = shift; |
197
|
|
|
|
|
|
|
return $self->{'Currency'}; |
198
|
|
|
|
|
|
|
} |
199
|
|
|
|
|
|
|
|
200
|
|
|
|
|
|
|
|
201
|
|
|
|
|
|
|
=head2 setEndDate() |
202
|
|
|
|
|
|
|
|
203
|
|
|
|
|
|
|
Specifies the end of a date range during which a credit or debit |
204
|
|
|
|
|
|
|
occurred. Used when AccountHistorySelection is BetweenSpecifiedDates. |
205
|
|
|
|
|
|
|
Value must be greater than or equal to the value specified in BeginDate. The |
206
|
|
|
|
|
|
|
allowed date formats are YYYY-MM-DD and YYYY-MM-DD HH:mm:ss. |
207
|
|
|
|
|
|
|
|
208
|
|
|
|
|
|
|
RequiredInput: Conditionally |
209
|
|
|
|
|
|
|
# Argument: 'xs:dateTime' |
210
|
|
|
|
|
|
|
|
211
|
|
|
|
|
|
|
=cut |
212
|
|
|
|
|
|
|
|
213
|
|
|
|
|
|
|
sub setEndDate { |
214
|
|
|
|
|
|
|
my $self = shift; |
215
|
|
|
|
|
|
|
$self->{'EndDate'} = shift |
216
|
|
|
|
|
|
|
} |
217
|
|
|
|
|
|
|
|
218
|
|
|
|
|
|
|
=head2 getEndDate() |
219
|
|
|
|
|
|
|
|
220
|
|
|
|
|
|
|
# Returns: 'xs:dateTime' |
221
|
|
|
|
|
|
|
|
222
|
|
|
|
|
|
|
=cut |
223
|
|
|
|
|
|
|
|
224
|
|
|
|
|
|
|
sub getEndDate { |
225
|
|
|
|
|
|
|
my $self = shift; |
226
|
|
|
|
|
|
|
return $self->{'EndDate'}; |
227
|
|
|
|
|
|
|
} |
228
|
|
|
|
|
|
|
|
229
|
|
|
|
|
|
|
|
230
|
|
|
|
|
|
|
=head2 setExcludeBalance() |
231
|
|
|
|
|
|
|
|
232
|
|
|
|
|
|
|
Specifies whether to calculate balances. Default is |
233
|
|
|
|
|
|
|
false, which calculates balances. The value true means |
234
|
|
|
|
|
|
|
do not calculate balances. If true, AccountEntry.Balance and |
235
|
|
|
|
|
|
|
AccountSummary.CurrentBalance are never returned in the response. |
236
|
|
|
|
|
|
|
|
237
|
|
|
|
|
|
|
RequiredInput: No |
238
|
|
|
|
|
|
|
# Argument: 'xs:boolean' |
239
|
|
|
|
|
|
|
|
240
|
|
|
|
|
|
|
=cut |
241
|
|
|
|
|
|
|
|
242
|
|
|
|
|
|
|
sub setExcludeBalance { |
243
|
|
|
|
|
|
|
my $self = shift; |
244
|
|
|
|
|
|
|
$self->{'ExcludeBalance'} = shift |
245
|
|
|
|
|
|
|
} |
246
|
|
|
|
|
|
|
|
247
|
|
|
|
|
|
|
=head2 isExcludeBalance() |
248
|
|
|
|
|
|
|
|
249
|
|
|
|
|
|
|
# Returns: 'xs:boolean' |
250
|
|
|
|
|
|
|
|
251
|
|
|
|
|
|
|
=cut |
252
|
|
|
|
|
|
|
|
253
|
|
|
|
|
|
|
sub isExcludeBalance { |
254
|
|
|
|
|
|
|
my $self = shift; |
255
|
|
|
|
|
|
|
return $self->{'ExcludeBalance'}; |
256
|
|
|
|
|
|
|
} |
257
|
|
|
|
|
|
|
|
258
|
|
|
|
|
|
|
|
259
|
|
|
|
|
|
|
=head2 setExcludeSummary() |
260
|
|
|
|
|
|
|
|
261
|
|
|
|
|
|
|
Specifies whether to return account summary information in an |
262
|
|
|
|
|
|
|
AccountSummary node. Default is true, to return AccountSummary. |
263
|
|
|
|
|
|
|
|
264
|
|
|
|
|
|
|
RequiredInput: No |
265
|
|
|
|
|
|
|
# Argument: 'xs:boolean' |
266
|
|
|
|
|
|
|
|
267
|
|
|
|
|
|
|
=cut |
268
|
|
|
|
|
|
|
|
269
|
|
|
|
|
|
|
sub setExcludeSummary { |
270
|
|
|
|
|
|
|
my $self = shift; |
271
|
|
|
|
|
|
|
$self->{'ExcludeSummary'} = shift |
272
|
|
|
|
|
|
|
} |
273
|
|
|
|
|
|
|
|
274
|
|
|
|
|
|
|
=head2 isExcludeSummary() |
275
|
|
|
|
|
|
|
|
276
|
|
|
|
|
|
|
# Returns: 'xs:boolean' |
277
|
|
|
|
|
|
|
|
278
|
|
|
|
|
|
|
=cut |
279
|
|
|
|
|
|
|
|
280
|
|
|
|
|
|
|
sub isExcludeSummary { |
281
|
|
|
|
|
|
|
my $self = shift; |
282
|
|
|
|
|
|
|
return $self->{'ExcludeSummary'}; |
283
|
|
|
|
|
|
|
} |
284
|
|
|
|
|
|
|
|
285
|
|
|
|
|
|
|
|
286
|
|
|
|
|
|
|
=head2 setInvoiceDate() |
287
|
|
|
|
|
|
|
|
288
|
|
|
|
|
|
|
Specifies the month and year of the invoice requested. The report |
289
|
|
|
|
|
|
|
includes only the entries that appear on the seller's invoice in the specified month |
290
|
|
|
|
|
|
|
and year. An entry can occur in one month and appear on the next month's |
291
|
|
|
|
|
|
|
invoice. Used with SpecifiedInvoice reports. |
292
|
|
|
|
|
|
|
|
293
|
|
|
|
|
|
|
RequiredInput: Conditionally |
294
|
|
|
|
|
|
|
# Argument: 'xs:dateTime' |
295
|
|
|
|
|
|
|
|
296
|
|
|
|
|
|
|
=cut |
297
|
|
|
|
|
|
|
|
298
|
|
|
|
|
|
|
sub setInvoiceDate { |
299
|
|
|
|
|
|
|
my $self = shift; |
300
|
|
|
|
|
|
|
$self->{'InvoiceDate'} = shift |
301
|
|
|
|
|
|
|
} |
302
|
|
|
|
|
|
|
|
303
|
|
|
|
|
|
|
=head2 getInvoiceDate() |
304
|
|
|
|
|
|
|
|
305
|
|
|
|
|
|
|
# Returns: 'xs:dateTime' |
306
|
|
|
|
|
|
|
|
307
|
|
|
|
|
|
|
=cut |
308
|
|
|
|
|
|
|
|
309
|
|
|
|
|
|
|
sub getInvoiceDate { |
310
|
|
|
|
|
|
|
my $self = shift; |
311
|
|
|
|
|
|
|
return $self->{'InvoiceDate'}; |
312
|
|
|
|
|
|
|
} |
313
|
|
|
|
|
|
|
|
314
|
|
|
|
|
|
|
|
315
|
|
|
|
|
|
|
=head2 setItemID() |
316
|
|
|
|
|
|
|
|
317
|
|
|
|
|
|
|
Specifies the item ID for which to return account entries. If ItemID is used, all other filters in the request |
318
|
|
|
|
|
|
|
are ignored. If the specified item does not exist or if the requesting user is not the seller of the item, an error is returned. |
319
|
|
|
|
|
|
|
|
320
|
|
|
|
|
|
|
RequiredInput: No |
321
|
|
|
|
|
|
|
# Argument: 'ns:ItemIDType' |
322
|
|
|
|
|
|
|
|
323
|
|
|
|
|
|
|
=cut |
324
|
|
|
|
|
|
|
|
325
|
|
|
|
|
|
|
sub setItemID { |
326
|
|
|
|
|
|
|
my $self = shift; |
327
|
|
|
|
|
|
|
$self->{'ItemID'} = shift |
328
|
|
|
|
|
|
|
} |
329
|
|
|
|
|
|
|
|
330
|
|
|
|
|
|
|
=head2 getItemID() |
331
|
|
|
|
|
|
|
|
332
|
|
|
|
|
|
|
# Returns: 'ns:ItemIDType' |
333
|
|
|
|
|
|
|
|
334
|
|
|
|
|
|
|
=cut |
335
|
|
|
|
|
|
|
|
336
|
|
|
|
|
|
|
sub getItemID { |
337
|
|
|
|
|
|
|
my $self = shift; |
338
|
|
|
|
|
|
|
return $self->_getDataTypeInstance( 'ItemID' |
339
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::ItemIDType'); |
340
|
|
|
|
|
|
|
} |
341
|
|
|
|
|
|
|
|
342
|
|
|
|
|
|
|
|
343
|
|
|
|
|
|
|
=head2 setPagination() |
344
|
|
|
|
|
|
|
|
345
|
|
|
|
|
|
|
Controls pagination of the response. For this request, the valid values |
346
|
|
|
|
|
|
|
of Pagination.EntriesPerPage are 0 to 2000, with a default of 500. |
347
|
|
|
|
|
|
|
|
348
|
|
|
|
|
|
|
RequiredInput: No |
349
|
|
|
|
|
|
|
# Argument: 'ns:PaginationType' |
350
|
|
|
|
|
|
|
|
351
|
|
|
|
|
|
|
=cut |
352
|
|
|
|
|
|
|
|
353
|
|
|
|
|
|
|
sub setPagination { |
354
|
|
|
|
|
|
|
my $self = shift; |
355
|
|
|
|
|
|
|
$self->{'Pagination'} = shift |
356
|
|
|
|
|
|
|
} |
357
|
|
|
|
|
|
|
|
358
|
|
|
|
|
|
|
=head2 getPagination() |
359
|
|
|
|
|
|
|
|
360
|
|
|
|
|
|
|
# Returns: 'ns:PaginationType' |
361
|
|
|
|
|
|
|
|
362
|
|
|
|
|
|
|
=cut |
363
|
|
|
|
|
|
|
|
364
|
|
|
|
|
|
|
sub getPagination { |
365
|
|
|
|
|
|
|
my $self = shift; |
366
|
|
|
|
|
|
|
return $self->_getDataTypeInstance( 'Pagination' |
367
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::PaginationType'); |
368
|
|
|
|
|
|
|
} |
369
|
|
|
|
|
|
|
|
370
|
|
|
|
|
|
|
|
371
|
|
|
|
|
|
|
|
372
|
|
|
|
|
|
|
|
373
|
|
|
|
|
|
|
|
374
|
|
|
|
|
|
|
## Attribute and Property lists |
375
|
|
|
|
|
|
|
sub getPropertiesList { |
376
|
|
|
|
|
|
|
my $self = shift; |
377
|
|
|
|
|
|
|
return \@gaProperties; |
378
|
|
|
|
|
|
|
} |
379
|
|
|
|
|
|
|
|
380
|
|
|
|
|
|
|
sub getAttributesList { |
381
|
|
|
|
|
|
|
my $self = shift; |
382
|
|
|
|
|
|
|
return \@gaAttributes; |
383
|
|
|
|
|
|
|
} |
384
|
|
|
|
|
|
|
|
385
|
|
|
|
|
|
|
|
386
|
|
|
|
|
|
|
|
387
|
|
|
|
|
|
|
1; |