| 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; |