File Coverage

lib/eBay/API/XML/DataType/ApiAccessRuleType.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::ApiAccessRuleType;
4              
5 1     1   1093 use strict;
  1         1  
  1         26  
6 1     1   5 use warnings;
  1         2  
  1         25  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ApiAccessRuleType.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::ApiAccessRuleType
21              
22             =head1 DESCRIPTION
23              
24             Contains the definition of a rule that governs the number of times your
25             application can access the eBay API (invoke a call) on an hourly, daily, or
26             periodic basis.
27              
28              
29              
30             =head1 SYNOPSIS
31              
32             =cut
33              
34              
35             =head1 INHERITANCE
36              
37             eBay::API::XML::DataType::ApiAccessRuleType inherits from the L class
38              
39             =cut
40              
41 1     1   32 use eBay::API::XML::BaseDataType;
  0            
  0            
42             our @ISA = ("eBay::API::XML::BaseDataType");
43              
44             use eBay::API::XML::DataType::Enum::AccessRuleCurrentStatusCodeType;
45             use eBay::API::XML::DataType::Enum::AccessRuleStatusCodeType;
46              
47              
48             my @gaProperties = ( [ 'CallName', 'xs:string', '', '', '' ]
49             , [ 'CountsTowardAggregate', 'xs:boolean', '', '', '' ]
50             , [ 'DailyHardLimit', 'xs:long', '', '', '' ]
51             , [ 'DailySoftLimit', 'xs:long', '', '', '' ]
52             , [ 'DailyUsage', 'xs:long', '', '', '' ]
53             , [ 'HourlyHardLimit', 'xs:long', '', '', '' ]
54             , [ 'HourlySoftLimit', 'xs:long', '', '', '' ]
55             , [ 'HourlyUsage', 'xs:long', '', '', '' ]
56             , [ 'ModTime', 'xs:dateTime', '', '', '' ]
57             , [ 'Period', 'xs:int', '', '', '' ]
58             , [ 'PeriodicHardLimit', 'xs:long', '', '', '' ]
59             , [ 'PeriodicSoftLimit', 'xs:long', '', '', '' ]
60             , [ 'PeriodicStartDate', 'xs:dateTime', '', '', '' ]
61             , [ 'PeriodicUsage', 'xs:long', '', '', '' ]
62             , [ 'RuleCurrentStatus', 'ns:AccessRuleCurrentStatusCodeType', ''
63             ,'eBay::API::XML::DataType::Enum::AccessRuleCurrentStatusCodeType', '' ]
64             , [ 'RuleStatus', 'ns:AccessRuleStatusCodeType', ''
65             ,'eBay::API::XML::DataType::Enum::AccessRuleStatusCodeType', '' ]
66             );
67             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
68              
69             my @gaAttributes = (
70             );
71             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
72              
73             =head1 Subroutines:
74              
75             =cut
76              
77             sub new {
78             my $classname = shift;
79             my %args = @_;
80             my $self = $classname->SUPER::new(%args);
81             return $self;
82             }
83              
84             sub isScalar {
85             return 0;
86             }
87              
88              
89              
90             =head2 setCallName()
91              
92             The name of the call that has an access rule. Can be a call name (e.g.,
93             AddItem), ApplicationAggregate (returns totals for all calls),
94             PasswordAuthenticationLimiter (dummy call), or NonUTF8UsageLimiter.
95              
96             # Argument: 'xs:string'
97              
98             =cut
99              
100             sub setCallName {
101             my $self = shift;
102             $self->{'CallName'} = shift
103             }
104              
105             =head2 getCallName()
106              
107             Calls: GetApiAccessRules
108             Returned: Always
109              
110             # Returns: 'xs:string'
111              
112             =cut
113              
114             sub getCallName {
115             my $self = shift;
116             return $self->{'CallName'};
117             }
118              
119              
120             =head2 setCountsTowardAggregate()
121              
122             Whether use of this call counts toward the application's
123             aggregate limit for all calls.
124              
125             # Argument: 'xs:boolean'
126              
127             =cut
128              
129             sub setCountsTowardAggregate {
130             my $self = shift;
131             $self->{'CountsTowardAggregate'} = shift
132             }
133              
134             =head2 isCountsTowardAggregate()
135              
136             Calls: GetApiAccessRules
137             Returned: Always
138              
139             # Returns: 'xs:boolean'
140              
141             =cut
142              
143             sub isCountsTowardAggregate {
144             my $self = shift;
145             return $self->{'CountsTowardAggregate'};
146             }
147              
148              
149             =head2 setDailyHardLimit()
150              
151             The number of calls per day that your application can make to this call before
152             being refused.
153             The day starts at midnight, 00:00:00 PST (not GMT).
154              
155             # Argument: 'xs:long'
156              
157             =cut
158              
159             sub setDailyHardLimit {
160             my $self = shift;
161             $self->{'DailyHardLimit'} = shift
162             }
163              
164             =head2 getDailyHardLimit()
165              
166             Calls: GetApiAccessRules
167             Returned: Always
168              
169             # Returns: 'xs:long'
170              
171             =cut
172              
173             sub getDailyHardLimit {
174             my $self = shift;
175             return $self->{'DailyHardLimit'};
176             }
177              
178              
179             =head2 setDailySoftLimit()
180              
181             The number of calls per day that your application can make to this call
182             before you receive a warning.
183             The day starts at midnight, 00:00:00 PST.
184              
185             # Argument: 'xs:long'
186              
187             =cut
188              
189             sub setDailySoftLimit {
190             my $self = shift;
191             $self->{'DailySoftLimit'} = shift
192             }
193              
194             =head2 getDailySoftLimit()
195              
196             Calls: GetApiAccessRules
197             Returned: Always
198              
199             # Returns: 'xs:long'
200              
201             =cut
202              
203             sub getDailySoftLimit {
204             my $self = shift;
205             return $self->{'DailySoftLimit'};
206             }
207              
208              
209             =head2 setDailyUsage()
210              
211             The number of times your application has used this
212             call today.
213              
214             # Argument: 'xs:long'
215              
216             =cut
217              
218             sub setDailyUsage {
219             my $self = shift;
220             $self->{'DailyUsage'} = shift
221             }
222              
223             =head2 getDailyUsage()
224              
225             Calls: GetApiAccessRules
226             Returned: Always
227              
228             # Returns: 'xs:long'
229              
230             =cut
231              
232             sub getDailyUsage {
233             my $self = shift;
234             return $self->{'DailyUsage'};
235             }
236              
237              
238             =head2 setHourlyHardLimit()
239              
240             The number of calls that your application can make per hour to this call
241             before being refused. Each count begins on the hour (e.g. 1:00:00).
242              
243             # Argument: 'xs:long'
244              
245             =cut
246              
247             sub setHourlyHardLimit {
248             my $self = shift;
249             $self->{'HourlyHardLimit'} = shift
250             }
251              
252             =head2 getHourlyHardLimit()
253              
254             Calls: GetApiAccessRules
255             Returned: Always
256              
257             # Returns: 'xs:long'
258              
259             =cut
260              
261             sub getHourlyHardLimit {
262             my $self = shift;
263             return $self->{'HourlyHardLimit'};
264             }
265              
266              
267             =head2 setHourlySoftLimit()
268              
269             The number of calls that your application can make to this call per hour
270             before you receive a warning. Each count begins on the hour (e.g. 1:00:00).
271              
272             # Argument: 'xs:long'
273              
274             =cut
275              
276             sub setHourlySoftLimit {
277             my $self = shift;
278             $self->{'HourlySoftLimit'} = shift
279             }
280              
281             =head2 getHourlySoftLimit()
282              
283             Calls: GetApiAccessRules
284             Returned: Always
285              
286             # Returns: 'xs:long'
287              
288             =cut
289              
290             sub getHourlySoftLimit {
291             my $self = shift;
292             return $self->{'HourlySoftLimit'};
293             }
294              
295              
296             =head2 setHourlyUsage()
297              
298             The number of times your application has executed this call during this hour.
299              
300             # Argument: 'xs:long'
301              
302             =cut
303              
304             sub setHourlyUsage {
305             my $self = shift;
306             $self->{'HourlyUsage'} = shift
307             }
308              
309             =head2 getHourlyUsage()
310              
311             Calls: GetApiAccessRules
312             Returned: Always
313              
314             # Returns: 'xs:long'
315              
316             =cut
317              
318             sub getHourlyUsage {
319             my $self = shift;
320             return $self->{'HourlyUsage'};
321             }
322              
323              
324             =head2 setModTime()
325              
326             The date and time this access rule was last modified by eBay.
327              
328             # Argument: 'xs:dateTime'
329              
330             =cut
331              
332             sub setModTime {
333             my $self = shift;
334             $self->{'ModTime'} = shift
335             }
336              
337             =head2 getModTime()
338              
339             Calls: GetApiAccessRules
340             Returned: Always
341              
342             # Returns: 'xs:dateTime'
343              
344             =cut
345              
346             sub getModTime {
347             my $self = shift;
348             return $self->{'ModTime'};
349             }
350              
351              
352             =head2 setPeriod()
353              
354             The length of time before your application's perodic usage counter restarts
355             for this call. If the number of calls you make exceeds the periodic hard limit
356             before the current period ends, further calls will be refused until the next
357             period starts. Possible values: -1 (Periodic limit not enforced, could be any
358             negative integer), 0 (Calendar month), 30 (Number of days, could be any
359             positive integer). If the period is based on the calendar month, the usage
360             counters restart on the same day of every month, regardless of the number of
361             days in the month.
362              
363             # Argument: 'xs:int'
364              
365             =cut
366              
367             sub setPeriod {
368             my $self = shift;
369             $self->{'Period'} = shift
370             }
371              
372             =head2 getPeriod()
373              
374             Calls: GetApiAccessRules
375             Returned: Always
376              
377             # Returns: 'xs:int'
378              
379             =cut
380              
381             sub getPeriod {
382             my $self = shift;
383             return $self->{'Period'};
384             }
385              
386              
387             =head2 setPeriodicHardLimit()
388              
389             Number of calls per period that your application may make before a call is
390             refused, if the periodic limit is enforced. The length of the period is
391             specified in Period.
392              
393             # Argument: 'xs:long'
394              
395             =cut
396              
397             sub setPeriodicHardLimit {
398             my $self = shift;
399             $self->{'PeriodicHardLimit'} = shift
400             }
401              
402             =head2 getPeriodicHardLimit()
403              
404             Calls: GetApiAccessRules
405             Returned: Always
406              
407             # Returns: 'xs:long'
408              
409             =cut
410              
411             sub getPeriodicHardLimit {
412             my $self = shift;
413             return $self->{'PeriodicHardLimit'};
414             }
415              
416              
417             =head2 setPeriodicSoftLimit()
418              
419             Number of calls per period that your application may make before you receive a
420             warning, if the periodic limit is enforced. The length of the period is
421             specified in Period.
422              
423             # Argument: 'xs:long'
424              
425             =cut
426              
427             sub setPeriodicSoftLimit {
428             my $self = shift;
429             $self->{'PeriodicSoftLimit'} = shift
430             }
431              
432             =head2 getPeriodicSoftLimit()
433              
434             Calls: GetApiAccessRules
435             Returned: Always
436              
437             # Returns: 'xs:long'
438              
439             =cut
440              
441             sub getPeriodicSoftLimit {
442             my $self = shift;
443             return $self->{'PeriodicSoftLimit'};
444             }
445              
446              
447             =head2 setPeriodicStartDate()
448              
449             The time (in GMT) when this access rule's period started. The period starts at
450             midnight Pacific time. For example, if the period begins on June 29 in 2005
451             when California is on Pacific Daylight Time, the GMT value returned would be
452             2005-06-29T07:00:00.000Z If the period begins on December 29 in 2005 when
453             California is on Pacific Standard Time, the GMT value returned would be
454             2005-12-29T08:00:00.000Z. Only returned when the eBay Developers Program has
455             configured the start date for the access rule. The start date can vary per
456             application and per call name (i.e., per access rule).
457              
458             # Argument: 'xs:dateTime'
459              
460             =cut
461              
462             sub setPeriodicStartDate {
463             my $self = shift;
464             $self->{'PeriodicStartDate'} = shift
465             }
466              
467             =head2 getPeriodicStartDate()
468              
469             Calls: GetApiAccessRules
470             Returned: Conditionally
471              
472             # Returns: 'xs:dateTime'
473              
474             =cut
475              
476             sub getPeriodicStartDate {
477             my $self = shift;
478             return $self->{'PeriodicStartDate'};
479             }
480              
481              
482             =head2 setPeriodicUsage()
483              
484             Number of calls that your application has already made this period. Returns 0
485             if the periodic access rule has not been configured for the application. The
486             length of the period is specified in Period. The start date of the period is
487             specified in PeriodicStartDate.
488              
489             # Argument: 'xs:long'
490              
491             =cut
492              
493             sub setPeriodicUsage {
494             my $self = shift;
495             $self->{'PeriodicUsage'} = shift
496             }
497              
498             =head2 getPeriodicUsage()
499              
500             Calls: GetApiAccessRules
501             Returned: Always
502              
503             # Returns: 'xs:long'
504              
505             =cut
506              
507             sub getPeriodicUsage {
508             my $self = shift;
509             return $self->{'PeriodicUsage'};
510             }
511              
512              
513             =head2 setRuleCurrentStatus()
514              
515             Your application's current status for this rule, including whether the rule is
516             set for your application and whether the application has exceeded its daily or
517             hourly limit.
518              
519             # Argument: 'ns:AccessRuleCurrentStatusCodeType'
520              
521             =cut
522              
523             sub setRuleCurrentStatus {
524             my $self = shift;
525             $self->{'RuleCurrentStatus'} = shift
526             }
527              
528             =head2 getRuleCurrentStatus()
529              
530             Calls: GetApiAccessRules
531             Returned: Always
532              
533             # Returns: 'ns:AccessRuleCurrentStatusCodeType'
534              
535             =cut
536              
537             sub getRuleCurrentStatus {
538             my $self = shift;
539             return $self->{'RuleCurrentStatus'};
540             }
541              
542              
543             =head2 setRuleStatus()
544              
545             The status of the access rule, including whether the rule is turned on or off
546             and whether the application is currently blocked from using this call. No
547             effect if RuleCurrentStatus is set to NotSet.
548              
549             # Argument: 'ns:AccessRuleStatusCodeType'
550              
551             =cut
552              
553             sub setRuleStatus {
554             my $self = shift;
555             $self->{'RuleStatus'} = shift
556             }
557              
558             =head2 getRuleStatus()
559              
560             Calls: GetApiAccessRules
561             Returned: Always
562              
563             # Returns: 'ns:AccessRuleStatusCodeType'
564              
565             =cut
566              
567             sub getRuleStatus {
568             my $self = shift;
569             return $self->{'RuleStatus'};
570             }
571              
572              
573              
574              
575              
576             ## Attribute and Property lists
577             sub getPropertiesList {
578             my $self = shift;
579             return \@gaProperties;
580             }
581              
582             sub getAttributesList {
583             my $self = shift;
584             return \@gaAttributes;
585             }
586              
587              
588              
589             1;