File Coverage

lib/eBay/API/XML/DataType/DuplicateInvocationDetailsType.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::DuplicateInvocationDetailsType;
4              
5 1     1   1753 use strict;
  1         3  
  1         168  
6 1     1   6 use warnings;
  1         3  
  1         37  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. DuplicateInvocationDetailsType.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::DuplicateInvocationDetailsType
21              
22             =head1 DESCRIPTION
23              
24             Contains properties that provide information on duplicate uses of InvocationIDs.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::DuplicateInvocationDetailsType inherits from the L class
36              
37             =cut
38              
39 1     1   47 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::UUIDType;
43             use eBay::API::XML::DataType::Enum::InvocationStatusType;
44              
45              
46             my @gaProperties = ( [ 'DuplicateInvocationID', 'ns:UUIDType', ''
47             ,'eBay::API::XML::DataType::UUIDType', '1' ]
48             , [ 'InvocationTrackingID', 'xs:string', '', '', '' ]
49             , [ 'Status', 'ns:InvocationStatusType', ''
50             ,'eBay::API::XML::DataType::Enum::InvocationStatusType', '' ]
51             );
52             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
53              
54             my @gaAttributes = (
55             );
56             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
57              
58             =head1 Subroutines:
59              
60             =cut
61              
62             sub new {
63             my $classname = shift;
64             my %args = @_;
65             my $self = $classname->SUPER::new(%args);
66             return $self;
67             }
68              
69             sub isScalar {
70             return 0;
71             }
72              
73              
74              
75             =head2 setDuplicateInvocationID()
76              
77             The duplicate InvocationID.
78              
79             # Argument: 'ns:UUIDType'
80              
81             =cut
82              
83             sub setDuplicateInvocationID {
84             my $self = shift;
85             $self->{'DuplicateInvocationID'} = shift
86             }
87              
88             =head2 getDuplicateInvocationID()
89              
90             Calls: AddItem
91             AddLiveAuctionItem
92             AddOrder
93             AddSecondChanceItem
94             AddToItemDescription
95             PlaceOffer
96             RelistItem
97             ReviseLiveAuctionItem
98             ReviseCheckoutStatus
99             ReviseItem
100             Returned: Conditionally
101              
102             # Returns: 'ns:UUIDType'
103              
104             =cut
105              
106             sub getDuplicateInvocationID {
107             my $self = shift;
108             return $self->_getDataTypeInstance( 'DuplicateInvocationID'
109             ,'eBay::API::XML::DataType::UUIDType');
110             }
111              
112              
113             =head2 setInvocationTrackingID()
114              
115             The id that identifies the business item the previous API invocation
116             created. For example, the ItemID of the item created by an AddItem call.
117              
118             # Argument: 'xs:string'
119              
120             =cut
121              
122             sub setInvocationTrackingID {
123             my $self = shift;
124             $self->{'InvocationTrackingID'} = shift
125             }
126              
127             =head2 getInvocationTrackingID()
128              
129             Calls: AddItem
130             AddLiveAuctionItem
131             AddOrder
132             AddSecondChanceItem
133             AddToItemDescription
134             PlaceOffer
135             RelistItem
136             ReviseCheckoutStatus
137             ReviseItem
138             ReviseLiveAuctionItem
139             Returned: Conditionally
140              
141             # Returns: 'xs:string'
142              
143             =cut
144              
145             sub getInvocationTrackingID {
146             my $self = shift;
147             return $self->{'InvocationTrackingID'};
148             }
149              
150              
151             =head2 setStatus()
152              
153             The status of the previous call that used the InvocationID.
154              
155             # Argument: 'ns:InvocationStatusType'
156              
157             =cut
158              
159             sub setStatus {
160             my $self = shift;
161             $self->{'Status'} = shift
162             }
163              
164             =head2 getStatus()
165              
166             Calls: AddItem
167             AddLiveAuctionItem
168             AddOrder
169             AddSecondChanceItem
170             AddToItemDescription
171             PlaceOffer
172             RelistItem
173             ReviseCheckoutStatus
174             ReviseItem
175             ReviseLiveAuctionItem
176             Returned: Conditionally
177              
178             # Returns: 'ns:InvocationStatusType'
179              
180             =cut
181              
182             sub getStatus {
183             my $self = shift;
184             return $self->{'Status'};
185             }
186              
187              
188              
189              
190              
191             ## Attribute and Property lists
192             sub getPropertiesList {
193             my $self = shift;
194             return \@gaProperties;
195             }
196              
197             sub getAttributesList {
198             my $self = shift;
199             return \@gaAttributes;
200             }
201              
202              
203              
204             1;