| lib/eBay/API/XML/DataType/MyMessagesMessageType.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::MyMessagesMessageType; | ||||||
| 4 | |||||||
| 5 | 1 | 1 | 1074 | use strict; | |||
| 1 | 2 | ||||||
| 1 | 28 | ||||||
| 6 | 1 | 1 | 4 | use warnings; | |||
| 1 | 2 | ||||||
| 1 | 26 | ||||||
| 7 | |||||||
| 8 | ########################################################################## | ||||||
| 9 | # | ||||||
| 10 | # Module: ............... | ||||||
| 11 | # File: ................. MyMessagesMessageType.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::MyMessagesMessageType | ||||||
| 21 | |||||||
| 22 | =head1 DESCRIPTION | ||||||
| 23 | |||||||
| 24 | Contains the message information for each message specified in | ||||||
| 25 | MessageIDs. The amount and type of information returned varies based on | ||||||
| 26 | the requested detail level. | ||||||
| 27 | |||||||
| 28 | |||||||
| 29 | |||||||
| 30 | =head1 SYNOPSIS | ||||||
| 31 | |||||||
| 32 | =cut | ||||||
| 33 | |||||||
| 34 | |||||||
| 35 | =head1 INHERITANCE | ||||||
| 36 | |||||||
| 37 | eBay::API::XML::DataType::MyMessagesMessageType inherits from the L | ||||||
| 38 | |||||||
| 39 | =cut | ||||||
| 40 | |||||||
| 41 | 1 | 1 | 34 | use eBay::API::XML::BaseDataType; | |||
| 0 | |||||||
| 0 | |||||||
| 42 | our @ISA = ("eBay::API::XML::BaseDataType"); | ||||||
| 43 | |||||||
| 44 | use eBay::API::XML::DataType::ItemIDType; | ||||||
| 45 | use eBay::API::XML::DataType::MyMessagesFolderType; | ||||||
| 46 | use eBay::API::XML::DataType::MyMessagesForwardDetailsType; | ||||||
| 47 | use eBay::API::XML::DataType::MyMessagesMessageIDType; | ||||||
| 48 | use eBay::API::XML::DataType::MyMessagesResponseDetailsType; | ||||||
| 49 | use eBay::API::XML::DataType::Enum::ListingStatusCodeType; | ||||||
| 50 | use eBay::API::XML::DataType::Enum::MessageTypeCodeType; | ||||||
| 51 | use eBay::API::XML::DataType::Enum::QuestionTypeCodeType; | ||||||
| 52 | |||||||
| 53 | |||||||
| 54 | my @gaProperties = ( [ 'Content', 'xs:string', '', '', '' ] | ||||||
| 55 | , [ 'ContentType', 'xs:string', '', '', '' ] | ||||||
| 56 | , [ 'CreationDate', 'xs:dateTime', '', '', '' ] | ||||||
| 57 | , [ 'ExpirationDate', 'xs:dateTime', '', '', '' ] | ||||||
| 58 | , [ 'ExternalMessageID', 'xs:string', '', '', '' ] | ||||||
| 59 | , [ 'Flagged', 'xs:boolean', '', '', '' ] | ||||||
| 60 | , [ 'Folder', 'ns:MyMessagesFolderType', '' | ||||||
| 61 | ,'eBay::API::XML::DataType::MyMessagesFolderType', '1' ] | ||||||
| 62 | , [ 'ForwardDetails', 'ns:MyMessagesForwardDetailsType', '' | ||||||
| 63 | ,'eBay::API::XML::DataType::MyMessagesForwardDetailsType', '1' ] | ||||||
| 64 | , [ 'ItemID', 'ns:ItemIDType', '' | ||||||
| 65 | ,'eBay::API::XML::DataType::ItemIDType', '1' ] | ||||||
| 66 | , [ 'ListingStatus', 'ns:ListingStatusCodeType', '' | ||||||
| 67 | ,'eBay::API::XML::DataType::Enum::ListingStatusCodeType', '' ] | ||||||
| 68 | , [ 'MessageID', 'ns:MyMessagesMessageIDType', '' | ||||||
| 69 | ,'eBay::API::XML::DataType::MyMessagesMessageIDType', '1' ] | ||||||
| 70 | , [ 'MessageType', 'ns:MessageTypeCodeType', '' | ||||||
| 71 | ,'eBay::API::XML::DataType::Enum::MessageTypeCodeType', '' ] | ||||||
| 72 | , [ 'QuestionType', 'ns:QuestionTypeCodeType', '' | ||||||
| 73 | ,'eBay::API::XML::DataType::Enum::QuestionTypeCodeType', '' ] | ||||||
| 74 | , [ 'Read', 'xs:boolean', '', '', '' ] | ||||||
| 75 | , [ 'ReceiveDate', 'xs:dateTime', '', '', '' ] | ||||||
| 76 | , [ 'RecipientUserID', 'xs:string', '', '', '' ] | ||||||
| 77 | , [ 'ResponseDetails', 'ns:MyMessagesResponseDetailsType', '' | ||||||
| 78 | ,'eBay::API::XML::DataType::MyMessagesResponseDetailsType', '1' ] | ||||||
| 79 | , [ 'SendToName', 'xs:string', '', '', '' ] | ||||||
| 80 | , [ 'Sender', 'xs:string', '', '', '' ] | ||||||
| 81 | , [ 'Subject', 'xs:string', '', '', '' ] | ||||||
| 82 | , [ 'Text', 'xs:string', '', '', '' ] | ||||||
| 83 | ); | ||||||
| 84 | push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()}; | ||||||
| 85 | |||||||
| 86 | my @gaAttributes = ( | ||||||
| 87 | ); | ||||||
| 88 | push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()}; | ||||||
| 89 | |||||||
| 90 | =head1 Subroutines: | ||||||
| 91 | |||||||
| 92 | =cut | ||||||
| 93 | |||||||
| 94 | sub new { | ||||||
| 95 | my $classname = shift; | ||||||
| 96 | my %args = @_; | ||||||
| 97 | my $self = $classname->SUPER::new(%args); | ||||||
| 98 | return $self; | ||||||
| 99 | } | ||||||
| 100 | |||||||
| 101 | sub isScalar { | ||||||
| 102 | return 0; | ||||||
| 103 | } | ||||||
| 104 | |||||||
| 105 | |||||||
| 106 | |||||||
| 107 | =head2 setContent() | ||||||
| 108 | |||||||
| 109 | The message body. Plain text. Returned only for messages created after late August 2008. | ||||||
| 110 | The API does not currently check the user email format preferences that can | ||||||
| 111 | be specified in My Messages on the eBay.com Web site. | ||||||
| 112 | |||||||
| 113 | # Argument: 'xs:string' | ||||||
| 114 | |||||||
| 115 | =cut | ||||||
| 116 | |||||||
| 117 | sub setContent { | ||||||
| 118 | my $self = shift; | ||||||
| 119 | $self->{'Content'} = shift | ||||||
| 120 | } | ||||||
| 121 | |||||||
| 122 | =head2 getContent() | ||||||
| 123 | |||||||
| 124 | Calls: GetMyMessages | ||||||
| 125 | Returned: Conditionally | ||||||
| 126 | Details: DetailLevel: ReturnMessages | ||||||
| 127 | |||||||
| 128 | # Returns: 'xs:string' | ||||||
| 129 | |||||||
| 130 | =cut | ||||||
| 131 | |||||||
| 132 | sub getContent { | ||||||
| 133 | my $self = shift; | ||||||
| 134 | return $self->{'Content'}; | ||||||
| 135 | } | ||||||
| 136 | |||||||
| 137 | |||||||
| 138 | =head2 setContentType() | ||||||
| 139 | |||||||
| 140 | The content type of the body text. The three acceptable values | ||||||
| 141 | are "TEXT", "HTML", and "XML" (case sensitive). | ||||||
| 142 | |||||||
| 143 | # Argument: 'xs:string' | ||||||
| 144 | |||||||
| 145 | =cut | ||||||
| 146 | |||||||
| 147 | sub setContentType { | ||||||
| 148 | my $self = shift; | ||||||
| 149 | $self->{'ContentType'} = shift | ||||||
| 150 | } | ||||||
| 151 | |||||||
| 152 | =head2 getContentType() | ||||||
| 153 | |||||||
| 154 | # Returns: 'xs:string' | ||||||
| 155 | |||||||
| 156 | =cut | ||||||
| 157 | |||||||
| 158 | sub getContentType { | ||||||
| 159 | my $self = shift; | ||||||
| 160 | return $self->{'ContentType'}; | ||||||
| 161 | } | ||||||
| 162 | |||||||
| 163 | |||||||
| 164 | =head2 setCreationDate() | ||||||
| 165 | |||||||
| 166 | The date and time that a message was created by the sender. | ||||||
| 167 | |||||||
| 168 | # Argument: 'xs:dateTime' | ||||||
| 169 | |||||||
| 170 | =cut | ||||||
| 171 | |||||||
| 172 | sub setCreationDate { | ||||||
| 173 | my $self = shift; | ||||||
| 174 | $self->{'CreationDate'} = shift | ||||||
| 175 | } | ||||||
| 176 | |||||||
| 177 | =head2 getCreationDate() | ||||||
| 178 | |||||||
| 179 | # Returns: 'xs:dateTime' | ||||||
| 180 | |||||||
| 181 | =cut | ||||||
| 182 | |||||||
| 183 | sub getCreationDate { | ||||||
| 184 | my $self = shift; | ||||||
| 185 | return $self->{'CreationDate'}; | ||||||
| 186 | } | ||||||
| 187 | |||||||
| 188 | |||||||
| 189 | =head2 setExpirationDate() | ||||||
| 190 | |||||||
| 191 | The date and time at which a message expires. | ||||||
| 192 | |||||||
| 193 | # Argument: 'xs:dateTime' | ||||||
| 194 | |||||||
| 195 | =cut | ||||||
| 196 | |||||||
| 197 | sub setExpirationDate { | ||||||
| 198 | my $self = shift; | ||||||
| 199 | $self->{'ExpirationDate'} = shift | ||||||
| 200 | } | ||||||
| 201 | |||||||
| 202 | =head2 getExpirationDate() | ||||||
| 203 | |||||||
| 204 | Calls: GetMyMessages | ||||||
| 205 | Returned: Conditionally | ||||||
| 206 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 207 | |||||||
| 208 | # Returns: 'xs:dateTime' | ||||||
| 209 | |||||||
| 210 | =cut | ||||||
| 211 | |||||||
| 212 | sub getExpirationDate { | ||||||
| 213 | my $self = shift; | ||||||
| 214 | return $self->{'ExpirationDate'}; | ||||||
| 215 | } | ||||||
| 216 | |||||||
| 217 | |||||||
| 218 | =head2 setExternalMessageID() | ||||||
| 219 | |||||||
| 220 | An ID used by an external application to uniquely identify a | ||||||
| 221 | message. Returned only when specified by the external | ||||||
| 222 | application on message creation. | ||||||
| 223 |  | ||||||
| 224 | This value is equivalent to the value used for MessageID in | ||||||
| 225 | GetMemberMessages. | ||||||
| 226 | |||||||
| 227 | # Argument: 'xs:string' | ||||||
| 228 | |||||||
| 229 | =cut | ||||||
| 230 | |||||||
| 231 | sub setExternalMessageID { | ||||||
| 232 | my $self = shift; | ||||||
| 233 | $self->{'ExternalMessageID'} = shift | ||||||
| 234 | } | ||||||
| 235 | |||||||
| 236 | =head2 getExternalMessageID() | ||||||
| 237 | |||||||
| 238 | Calls: GetMyMessages | ||||||
| 239 | Returned: Conditionally | ||||||
| 240 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 241 | |||||||
| 242 | # Returns: 'xs:string' | ||||||
| 243 | |||||||
| 244 | =cut | ||||||
| 245 | |||||||
| 246 | sub getExternalMessageID { | ||||||
| 247 | my $self = shift; | ||||||
| 248 | return $self->{'ExternalMessageID'}; | ||||||
| 249 | } | ||||||
| 250 | |||||||
| 251 | |||||||
| 252 | =head2 setFlagged() | ||||||
| 253 | |||||||
| 254 | Whether or not a message has been flagged. | ||||||
| 255 | |||||||
| 256 | # Argument: 'xs:boolean' | ||||||
| 257 | |||||||
| 258 | =cut | ||||||
| 259 | |||||||
| 260 | sub setFlagged { | ||||||
| 261 | my $self = shift; | ||||||
| 262 | $self->{'Flagged'} = shift | ||||||
| 263 | } | ||||||
| 264 | |||||||
| 265 | =head2 isFlagged() | ||||||
| 266 | |||||||
| 267 | Calls: GetMyMessages | ||||||
| 268 | Returned: Conditionally | ||||||
| 269 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 270 | |||||||
| 271 | # Returns: 'xs:boolean' | ||||||
| 272 | |||||||
| 273 | =cut | ||||||
| 274 | |||||||
| 275 | sub isFlagged { | ||||||
| 276 | my $self = shift; | ||||||
| 277 | return $self->{'Flagged'}; | ||||||
| 278 | } | ||||||
| 279 | |||||||
| 280 | |||||||
| 281 | =head2 setFolder() | ||||||
| 282 | |||||||
| 283 | Details relating to a My Messages folder. | ||||||
| 284 | |||||||
| 285 | # Argument: 'ns:MyMessagesFolderType' | ||||||
| 286 | |||||||
| 287 | =cut | ||||||
| 288 | |||||||
| 289 | sub setFolder { | ||||||
| 290 | my $self = shift; | ||||||
| 291 | $self->{'Folder'} = shift | ||||||
| 292 | } | ||||||
| 293 | |||||||
| 294 | =head2 getFolder() | ||||||
| 295 | |||||||
| 296 | Calls: GetMyMessages | ||||||
| 297 | Returned: Conditionally | ||||||
| 298 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 299 | |||||||
| 300 | # Returns: 'ns:MyMessagesFolderType' | ||||||
| 301 | |||||||
| 302 | =cut | ||||||
| 303 | |||||||
| 304 | sub getFolder { | ||||||
| 305 | my $self = shift; | ||||||
| 306 | return $self->_getDataTypeInstance( 'Folder' | ||||||
| 307 | ,'eBay::API::XML::DataType::MyMessagesFolderType'); | ||||||
| 308 | } | ||||||
| 309 | |||||||
| 310 | |||||||
| 311 | =head2 setForwardDetails() | ||||||
| 312 | |||||||
| 313 | Details relating to the forwarding of an alert | ||||||
| 314 | or message. Only returned if the alert or message is | ||||||
| 315 | forwarded. | ||||||
| 316 | |||||||
| 317 | # Argument: 'ns:MyMessagesForwardDetailsType' | ||||||
| 318 | |||||||
| 319 | =cut | ||||||
| 320 | |||||||
| 321 | sub setForwardDetails { | ||||||
| 322 | my $self = shift; | ||||||
| 323 | $self->{'ForwardDetails'} = shift | ||||||
| 324 | } | ||||||
| 325 | |||||||
| 326 | =head2 getForwardDetails() | ||||||
| 327 | |||||||
| 328 | Calls: GetMyMessages | ||||||
| 329 | Returned: Conditionally | ||||||
| 330 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 331 | |||||||
| 332 | # Returns: 'ns:MyMessagesForwardDetailsType' | ||||||
| 333 | |||||||
| 334 | =cut | ||||||
| 335 | |||||||
| 336 | sub getForwardDetails { | ||||||
| 337 | my $self = shift; | ||||||
| 338 | return $self->_getDataTypeInstance( 'ForwardDetails' | ||||||
| 339 | ,'eBay::API::XML::DataType::MyMessagesForwardDetailsType'); | ||||||
| 340 | } | ||||||
| 341 | |||||||
| 342 | |||||||
| 343 | =head2 setItemID() | ||||||
| 344 | |||||||
| 345 | A unique eBay Item ID associated with a message. | ||||||
| 346 | |||||||
| 347 | # Argument: 'ns:ItemIDType' | ||||||
| 348 | |||||||
| 349 | =cut | ||||||
| 350 | |||||||
| 351 | sub setItemID { | ||||||
| 352 | my $self = shift; | ||||||
| 353 | $self->{'ItemID'} = shift | ||||||
| 354 | } | ||||||
| 355 | |||||||
| 356 | =head2 getItemID() | ||||||
| 357 | |||||||
| 358 | Calls: GetMyMessages | ||||||
| 359 | Returned: Conditionally | ||||||
| 360 | Details: DetailLevel: ReturnHeaders | ||||||
| 361 | MaxLength: 19 (Note: The eBay database specifies 38. Currently, Item IDs are usually 9 to 12 digits) | ||||||
| 362 | |||||||
| 363 | # Returns: 'ns:ItemIDType' | ||||||
| 364 | |||||||
| 365 | =cut | ||||||
| 366 | |||||||
| 367 | sub getItemID { | ||||||
| 368 | my $self = shift; | ||||||
| 369 | return $self->_getDataTypeInstance( 'ItemID' | ||||||
| 370 | ,'eBay::API::XML::DataType::ItemIDType'); | ||||||
| 371 | } | ||||||
| 372 | |||||||
| 373 | |||||||
| 374 | =head2 setListingStatus() | ||||||
| 375 | |||||||
| 376 | Specifies an active or ended listing's status in eBay's processing workflow. | ||||||
| 377 | If a listing ends with a sale (or sales), eBay needs to update the sale details | ||||||
| 378 | (e.g., total price and buyer/high bidder) and the final value fee. This processing | ||||||
| 379 | can take several minutes. If you retrieve a sold item and no details about the buyer/high bidder | ||||||
| 380 | are returned or no final value fee is available, use this listing status information | ||||||
| 381 | to determine whether eBay has finished processing the listing. | ||||||
| 382 | Note: | ||||||
| 383 | Starting in late August 2008, for the GetMyMessages call the listing status reflects the status of the listing at | ||||||
| 384 | the time the question was created. The listing status for this call may not match | ||||||
| 385 | the listing status returned by other calls such as GetItemTransactions. | ||||||
| 386 | This is returned only if Messages.Message.MessageType is AskSellerQuestion. | ||||||
| 387 | As of early July 2008, this tag is not returned for the Sandbox environment. | ||||||
| 388 | |||||||
| 389 | |||||||
| 390 | # Argument: 'ns:ListingStatusCodeType' | ||||||
| 391 | |||||||
| 392 | =cut | ||||||
| 393 | |||||||
| 394 | sub setListingStatus { | ||||||
| 395 | my $self = shift; | ||||||
| 396 | $self->{'ListingStatus'} = shift | ||||||
| 397 | } | ||||||
| 398 | |||||||
| 399 | =head2 getListingStatus() | ||||||
| 400 | |||||||
| 401 | Calls: GetMyMessages | ||||||
| 402 | Returned: Conditionally | ||||||
| 403 | TagStatus: ComingSoon | ||||||
| 404 | |||||||
| 405 | # Returns: 'ns:ListingStatusCodeType' | ||||||
| 406 | |||||||
| 407 | =cut | ||||||
| 408 | |||||||
| 409 | sub getListingStatus { | ||||||
| 410 | my $self = shift; | ||||||
| 411 | return $self->{'ListingStatus'}; | ||||||
| 412 | } | ||||||
| 413 | |||||||
| 414 | |||||||
| 415 | =head2 setMessageID() | ||||||
| 416 | |||||||
| 417 | An ID that uniquely identifies a message for a given user. | ||||||
| 418 |  | ||||||
| 419 |  | ||||||
| 420 | This value is not the same as the value used for the | ||||||
| 421 | GetMemberMessages MessageID. Use the GetMemberMessages value | ||||||
| 422 | (used as the GetMyMessages ExternalID) instead. | ||||||
| 423 | |||||||
| 424 | # Argument: 'ns:MyMessagesMessageIDType' | ||||||
| 425 | |||||||
| 426 | =cut | ||||||
| 427 | |||||||
| 428 | sub setMessageID { | ||||||
| 429 | my $self = shift; | ||||||
| 430 | $self->{'MessageID'} = shift | ||||||
| 431 | } | ||||||
| 432 | |||||||
| 433 | =head2 getMessageID() | ||||||
| 434 | |||||||
| 435 | Calls: GetMyMessages | ||||||
| 436 | Returned: Conditionally | ||||||
| 437 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 438 | |||||||
| 439 | # Returns: 'ns:MyMessagesMessageIDType' | ||||||
| 440 | |||||||
| 441 | =cut | ||||||
| 442 | |||||||
| 443 | sub getMessageID { | ||||||
| 444 | my $self = shift; | ||||||
| 445 | return $self->_getDataTypeInstance( 'MessageID' | ||||||
| 446 | ,'eBay::API::XML::DataType::MyMessagesMessageIDType'); | ||||||
| 447 | } | ||||||
| 448 | |||||||
| 449 | |||||||
| 450 | =head2 setMessageType() | ||||||
| 451 | |||||||
| 452 | Specifies the type of message being retrieved through GetMyMessages. | ||||||
| 453 | |||||||
| 454 | # Argument: 'ns:MessageTypeCodeType' | ||||||
| 455 | |||||||
| 456 | =cut | ||||||
| 457 | |||||||
| 458 | sub setMessageType { | ||||||
| 459 | my $self = shift; | ||||||
| 460 | $self->{'MessageType'} = shift | ||||||
| 461 | } | ||||||
| 462 | |||||||
| 463 | =head2 getMessageType() | ||||||
| 464 | |||||||
| 465 | Calls: GetMyMessages | ||||||
| 466 | Returned: Conditionally | ||||||
| 467 | |||||||
| 468 | # Returns: 'ns:MessageTypeCodeType' | ||||||
| 469 | |||||||
| 470 | =cut | ||||||
| 471 | |||||||
| 472 | sub getMessageType { | ||||||
| 473 | my $self = shift; | ||||||
| 474 | return $self->{'MessageType'}; | ||||||
| 475 | } | ||||||
| 476 | |||||||
| 477 | |||||||
| 478 | =head2 setQuestionType() | ||||||
| 479 | |||||||
| 480 | Specifies the context of the question and it corresponds to the | ||||||
| 481 | subject of the message. This is returned only if Messages.Message.MessageType is | ||||||
| 482 | AskSellerQuestion. | ||||||
| 483 | Note: | ||||||
| 484 | This tag will be returned with data starting late August 2008. As of early July 2008, | ||||||
| 485 | this tag is not returned for the Sandbox environment. | ||||||
| 486 | |||||||
| 487 | |||||||
| 488 | # Argument: 'ns:QuestionTypeCodeType' | ||||||
| 489 | |||||||
| 490 | =cut | ||||||
| 491 | |||||||
| 492 | sub setQuestionType { | ||||||
| 493 | my $self = shift; | ||||||
| 494 | $self->{'QuestionType'} = shift | ||||||
| 495 | } | ||||||
| 496 | |||||||
| 497 | =head2 getQuestionType() | ||||||
| 498 | |||||||
| 499 | Calls: GetMyMessages | ||||||
| 500 | Returned: Conditionally | ||||||
| 501 | TagStatus: ComingSoon | ||||||
| 502 | |||||||
| 503 | # Returns: 'ns:QuestionTypeCodeType' | ||||||
| 504 | |||||||
| 505 | =cut | ||||||
| 506 | |||||||
| 507 | sub getQuestionType { | ||||||
| 508 | my $self = shift; | ||||||
| 509 | return $self->{'QuestionType'}; | ||||||
| 510 | } | ||||||
| 511 | |||||||
| 512 | |||||||
| 513 | =head2 setRead() | ||||||
| 514 | |||||||
| 515 | Whether or not a message has been viewed by a given user. Note that retrieving a message with the | ||||||
| 516 | API does not mark it as read. | ||||||
| 517 | |||||||
| 518 | # Argument: 'xs:boolean' | ||||||
| 519 | |||||||
| 520 | =cut | ||||||
| 521 | |||||||
| 522 | sub setRead { | ||||||
| 523 | my $self = shift; | ||||||
| 524 | $self->{'Read'} = shift | ||||||
| 525 | } | ||||||
| 526 | |||||||
| 527 | =head2 isRead() | ||||||
| 528 | |||||||
| 529 | Calls: GetMyMessages | ||||||
| 530 | Returned: Conditionally | ||||||
| 531 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 532 | |||||||
| 533 | # Returns: 'xs:boolean' | ||||||
| 534 | |||||||
| 535 | =cut | ||||||
| 536 | |||||||
| 537 | sub isRead { | ||||||
| 538 | my $self = shift; | ||||||
| 539 | return $self->{'Read'}; | ||||||
| 540 | } | ||||||
| 541 | |||||||
| 542 | |||||||
| 543 | =head2 setReceiveDate() | ||||||
| 544 | |||||||
| 545 | The date and time that a message was received by My Messages and stored in a | ||||||
| 546 | database for the recipient. | ||||||
| 547 | |||||||
| 548 | # Argument: 'xs:dateTime' | ||||||
| 549 | |||||||
| 550 | =cut | ||||||
| 551 | |||||||
| 552 | sub setReceiveDate { | ||||||
| 553 | my $self = shift; | ||||||
| 554 | $self->{'ReceiveDate'} = shift | ||||||
| 555 | } | ||||||
| 556 | |||||||
| 557 | =head2 getReceiveDate() | ||||||
| 558 | |||||||
| 559 | Calls: GetMyMessages | ||||||
| 560 | Returned: Conditionally | ||||||
| 561 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 562 | |||||||
| 563 | # Returns: 'xs:dateTime' | ||||||
| 564 | |||||||
| 565 | =cut | ||||||
| 566 | |||||||
| 567 | sub getReceiveDate { | ||||||
| 568 | my $self = shift; | ||||||
| 569 | return $self->{'ReceiveDate'}; | ||||||
| 570 | } | ||||||
| 571 | |||||||
| 572 | |||||||
| 573 | =head2 setRecipientUserID() | ||||||
| 574 | |||||||
| 575 | The displayable user ID of the recipient. | ||||||
| 576 | |||||||
| 577 | # Argument: 'xs:string' | ||||||
| 578 | |||||||
| 579 | =cut | ||||||
| 580 | |||||||
| 581 | sub setRecipientUserID { | ||||||
| 582 | my $self = shift; | ||||||
| 583 | $self->{'RecipientUserID'} = shift | ||||||
| 584 | } | ||||||
| 585 | |||||||
| 586 | =head2 getRecipientUserID() | ||||||
| 587 | |||||||
| 588 | Calls: GetMyMessages | ||||||
| 589 | Returned: Conditionally | ||||||
| 590 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 591 | |||||||
| 592 | # Returns: 'xs:string' | ||||||
| 593 | |||||||
| 594 | =cut | ||||||
| 595 | |||||||
| 596 | sub getRecipientUserID { | ||||||
| 597 | my $self = shift; | ||||||
| 598 | return $self->{'RecipientUserID'}; | ||||||
| 599 | } | ||||||
| 600 | |||||||
| 601 | |||||||
| 602 | =head2 setResponseDetails() | ||||||
| 603 | |||||||
| 604 | Details relating to the response to an alert or message. | ||||||
| 605 | |||||||
| 606 | # Argument: 'ns:MyMessagesResponseDetailsType' | ||||||
| 607 | |||||||
| 608 | =cut | ||||||
| 609 | |||||||
| 610 | sub setResponseDetails { | ||||||
| 611 | my $self = shift; | ||||||
| 612 | $self->{'ResponseDetails'} = shift | ||||||
| 613 | } | ||||||
| 614 | |||||||
| 615 | =head2 getResponseDetails() | ||||||
| 616 | |||||||
| 617 | Calls: GetMyMessages | ||||||
| 618 | Returned: Conditionally | ||||||
| 619 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 620 | |||||||
| 621 | # Returns: 'ns:MyMessagesResponseDetailsType' | ||||||
| 622 | |||||||
| 623 | =cut | ||||||
| 624 | |||||||
| 625 | sub getResponseDetails { | ||||||
| 626 | my $self = shift; | ||||||
| 627 | return $self->_getDataTypeInstance( 'ResponseDetails' | ||||||
| 628 | ,'eBay::API::XML::DataType::MyMessagesResponseDetailsType'); | ||||||
| 629 | } | ||||||
| 630 | |||||||
| 631 | |||||||
| 632 | =head2 setSendToName() | ||||||
| 633 | |||||||
| 634 | The displayable name of the user or eBay | ||||||
| 635 | application to which the message is sent. Only | ||||||
| 636 | returned for M2M, and if a value exists. | ||||||
| 637 | |||||||
| 638 | # Argument: 'xs:string' | ||||||
| 639 | |||||||
| 640 | =cut | ||||||
| 641 | |||||||
| 642 | sub setSendToName { | ||||||
| 643 | my $self = shift; | ||||||
| 644 | $self->{'SendToName'} = shift | ||||||
| 645 | } | ||||||
| 646 | |||||||
| 647 | =head2 getSendToName() | ||||||
| 648 | |||||||
| 649 | Calls: GetMyMessages | ||||||
| 650 | Returned: Conditionally | ||||||
| 651 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 652 | |||||||
| 653 | # Returns: 'xs:string' | ||||||
| 654 | |||||||
| 655 | =cut | ||||||
| 656 | |||||||
| 657 | sub getSendToName { | ||||||
| 658 | my $self = shift; | ||||||
| 659 | return $self->{'SendToName'}; | ||||||
| 660 | } | ||||||
| 661 | |||||||
| 662 | |||||||
| 663 | =head2 setSender() | ||||||
| 664 | |||||||
| 665 | The display name of the eBay user that sent the message. | ||||||
| 666 | |||||||
| 667 | # Argument: 'xs:string' | ||||||
| 668 | |||||||
| 669 | =cut | ||||||
| 670 | |||||||
| 671 | sub setSender { | ||||||
| 672 | my $self = shift; | ||||||
| 673 | $self->{'Sender'} = shift | ||||||
| 674 | } | ||||||
| 675 | |||||||
| 676 | =head2 getSender() | ||||||
| 677 | |||||||
| 678 | Calls: GetMyMessages | ||||||
| 679 | Returned: Conditionally | ||||||
| 680 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 681 | |||||||
| 682 | # Returns: 'xs:string' | ||||||
| 683 | |||||||
| 684 | =cut | ||||||
| 685 | |||||||
| 686 | sub getSender { | ||||||
| 687 | my $self = shift; | ||||||
| 688 | return $self->{'Sender'}; | ||||||
| 689 | } | ||||||
| 690 | |||||||
| 691 | |||||||
| 692 | =head2 setSubject() | ||||||
| 693 | |||||||
| 694 | The subject of the message. | ||||||
| 695 | |||||||
| 696 | # Argument: 'xs:string' | ||||||
| 697 | |||||||
| 698 | =cut | ||||||
| 699 | |||||||
| 700 | sub setSubject { | ||||||
| 701 | my $self = shift; | ||||||
| 702 | $self->{'Subject'} = shift | ||||||
| 703 | } | ||||||
| 704 | |||||||
| 705 | =head2 getSubject() | ||||||
| 706 | |||||||
| 707 | Calls: GetMyMessages | ||||||
| 708 | Returned: Conditionally | ||||||
| 709 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
| 710 | |||||||
| 711 | # Returns: 'xs:string' | ||||||
| 712 | |||||||
| 713 | =cut | ||||||
| 714 | |||||||
| 715 | sub getSubject { | ||||||
| 716 | my $self = shift; | ||||||
| 717 | return $self->{'Subject'}; | ||||||
| 718 | } | ||||||
| 719 | |||||||
| 720 | |||||||
| 721 | =head2 setText() | ||||||
| 722 | |||||||
| 723 | The message body. This can be either plain | ||||||
| 724 | text or HTML, depending on which format the message | ||||||
| 725 | was originally written in. Note that the API does | ||||||
| 726 | not currently check the user email format | ||||||
| 727 | preferences that can be specified in My Messages on | ||||||
| 728 | the eBay.com Web site. | ||||||
| 729 | |||||||
| 730 | # Argument: 'xs:string' | ||||||
| 731 | |||||||
| 732 | =cut | ||||||
| 733 | |||||||
| 734 | sub setText { | ||||||
| 735 | my $self = shift; | ||||||
| 736 | $self->{'Text'} = shift | ||||||
| 737 | } | ||||||
| 738 | |||||||
| 739 | =head2 getText() | ||||||
| 740 | |||||||
| 741 | Calls: GetMyMessages | ||||||
| 742 | Returned: Conditionally | ||||||
| 743 | Details: DetailLevel: ReturnMessages | ||||||
| 744 | |||||||
| 745 | # Returns: 'xs:string' | ||||||
| 746 | |||||||
| 747 | =cut | ||||||
| 748 | |||||||
| 749 | sub getText { | ||||||
| 750 | my $self = shift; | ||||||
| 751 | return $self->{'Text'}; | ||||||
| 752 | } | ||||||
| 753 | |||||||
| 754 | |||||||
| 755 | |||||||
| 756 | |||||||
| 757 | |||||||
| 758 | ## Attribute and Property lists | ||||||
| 759 | sub getPropertiesList { | ||||||
| 760 | my $self = shift; | ||||||
| 761 | return \@gaProperties; | ||||||
| 762 | } | ||||||
| 763 | |||||||
| 764 | sub getAttributesList { | ||||||
| 765 | my $self = shift; | ||||||
| 766 | return \@gaAttributes; | ||||||
| 767 | } | ||||||
| 768 | |||||||
| 769 | |||||||
| 770 | |||||||
| 771 | 1; |