File Coverage

lib/eBay/API/XML/Call/AddMemberMessageRTQ/AddMemberMessageRTQRequestType.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::AddMemberMessageRTQ::AddMemberMessageRTQRequestType;
4              
5 1     1   1408 use strict;
  1         2  
  1         25  
6 1     1   5 use warnings;
  1         1  
  1         26  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. AddMemberMessageRTQRequestType.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::AddMemberMessageRTQ::AddMemberMessageRTQRequestType
21              
22             =head1 DESCRIPTION
23              
24             Enables a seller to reply to a question about an active item listing.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::Call::AddMemberMessageRTQ::AddMemberMessageRTQRequestType inherits from the L class
36              
37             =cut
38              
39 1     1   79 use eBay::API::XML::RequestDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::RequestDataType");
41              
42             use eBay::API::XML::DataType::ItemIDType;
43             use eBay::API::XML::DataType::MemberMessageType;
44              
45              
46             my @gaProperties = ( [ 'ItemID', 'ns:ItemIDType', ''
47             ,'eBay::API::XML::DataType::ItemIDType', '1' ]
48             , [ 'MemberMessage', 'ns:MemberMessageType', ''
49             ,'eBay::API::XML::DataType::MemberMessageType', '1' ]
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 setItemID()
75              
76             The unique ID of the item about which
77             the question was asked.
78              
79             RequiredInput: Yes
80             # Argument: 'ns:ItemIDType'
81              
82             =cut
83              
84             sub setItemID {
85             my $self = shift;
86             $self->{'ItemID'} = shift
87             }
88              
89             =head2 getItemID()
90              
91             # Returns: 'ns:ItemIDType'
92              
93             =cut
94              
95             sub getItemID {
96             my $self = shift;
97             return $self->_getDataTypeInstance( 'ItemID'
98             ,'eBay::API::XML::DataType::ItemIDType');
99             }
100              
101              
102             =head2 setMemberMessage()
103              
104             The message itself.
105              
106             RequiredInput: Yes
107             # Argument: 'ns:MemberMessageType'
108              
109             =cut
110              
111             sub setMemberMessage {
112             my $self = shift;
113             $self->{'MemberMessage'} = shift
114             }
115              
116             =head2 getMemberMessage()
117              
118             # Returns: 'ns:MemberMessageType'
119              
120             =cut
121              
122             sub getMemberMessage {
123             my $self = shift;
124             return $self->_getDataTypeInstance( 'MemberMessage'
125             ,'eBay::API::XML::DataType::MemberMessageType');
126             }
127              
128              
129              
130              
131              
132             ## Attribute and Property lists
133             sub getPropertiesList {
134             my $self = shift;
135             return \@gaProperties;
136             }
137              
138             sub getAttributesList {
139             my $self = shift;
140             return \@gaAttributes;
141             }
142              
143              
144              
145             1;