File Coverage

lib/eBay/API/XML/DataType/DigitalDeliveryDetailsType.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::DigitalDeliveryDetailsType;
4              
5 1     1   1281 use strict;
  1         3  
  1         31  
6 1     1   5 use warnings;
  1         2  
  1         31  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. DigitalDeliveryDetailsType.pm
12             # Generated by: ......... genEBayApiDataTypes.pl
13             # Last Generated: ....... 07/07/2008 17:42
14             # API Release Number: ... 571
15             #
16             ##########################################################################
17              
18             =head1 NAME
19              
20             eBay::API::XML::DataType::DigitalDeliveryDetailsType
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::DataType::DigitalDeliveryDetailsType inherits from the L class
34              
35             =cut
36              
37 1     1   43 use eBay::API::XML::BaseDataType;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseDataType");
39              
40             use eBay::API::XML::DataType::Enum::DigitalDeliveryMethodCodeType;
41              
42              
43             my @gaProperties = ( [ 'Instructions', 'xs:string', '', '', '' ]
44             , [ 'Method', 'ns:DigitalDeliveryMethodCodeType', ''
45             ,'eBay::API::XML::DataType::Enum::DigitalDeliveryMethodCodeType', '' ]
46             , [ 'Requirements', 'xs:string', '', '', '' ]
47             , [ 'URL', 'xs:anyURI', '', '', '' ]
48             );
49             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
50              
51             my @gaAttributes = (
52             );
53             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
54              
55             =head1 Subroutines:
56              
57             =cut
58              
59             sub new {
60             my $classname = shift;
61             my %args = @_;
62             my $self = $classname->SUPER::new(%args);
63             return $self;
64             }
65              
66             sub isScalar {
67             return 0;
68             }
69              
70              
71              
72             =head2 setInstructions()
73              
74             Text instructions for accessing the digital item. For example, if no delivery URL
75             is provided, the seller may ask the buyer to specify an email address when they pay for the item so that
76             the seller can send the file to the buyer. If a Web address is specified in URL,
77             the seller may provide instructions on using the Web address.
78             The text will be displayed as is (so do not pass in HTML or Javascript).
79             The information will be displayed to the buyer only after payment has been confirmed.
80             Required if Method value is AlternateDeliveryInstructions.
81             Optional if Method value is DownloadURL and a DownloadURL value is specified.
82             Ignored if Method value is None.
83              
84             MaxLength: 500 (characters)
85              
86             Calls: AddItem
87             GetItemRecommendations
88             RelistItem
89             ReviseItem
90             VerifyAddItem
91             RequiredInput: Conditionally
92              
93             # Argument: 'xs:string'
94              
95             =cut
96              
97             sub setInstructions {
98             my $self = shift;
99             $self->{'Instructions'} = shift
100             }
101              
102             =head2 getInstructions()
103              
104             Calls: GetSellerList
105             Returned: Conditionally
106             Details: DetailLevel: ItemReturnDescription, ReturnAll
107              
108             Calls: GetBidderList
109             Returned: Conditionally
110              
111             Calls: GetItem
112             Returned: Conditionally
113             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
114              
115             # Returns: 'xs:string'
116              
117             =cut
118              
119             sub getInstructions {
120             my $self = shift;
121             return $self->{'Instructions'};
122             }
123              
124              
125             =head2 setMethod()
126              
127             The digital download method.
128              
129             Calls: AddItem
130             GetItemRecommendations
131             RelistItem
132             ReviseItem
133             VerifyAddItem
134             RequiredInput: No
135              
136             # Argument: 'ns:DigitalDeliveryMethodCodeType'
137              
138             =cut
139              
140             sub setMethod {
141             my $self = shift;
142             $self->{'Method'} = shift
143             }
144              
145             =head2 getMethod()
146              
147             Calls: GetSellerList
148             Returned: Conditionally
149             Details: DetailLevel: ItemReturnDescription, ReturnAll
150              
151             Calls: GetBidderList
152             GetCategoryListings
153             Returned: Conditionally
154              
155             Calls: GetItem
156             Returned: Conditionally
157             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
158              
159             Calls: GetProducts
160             Returned: Conditionally
161              
162             Calls: GetSearchResults
163             Returned: Conditionally
164             Details: DetailLevel: ItemReturnAttributes, ItemReturnCategories, none, ReturnAll
165              
166             # Returns: 'ns:DigitalDeliveryMethodCodeType'
167              
168             =cut
169              
170             sub getMethod {
171             my $self = shift;
172             return $self->{'Method'};
173             }
174              
175              
176             =head2 setRequirements()
177              
178             File type, operating system specifications,
179             or other requirements for using the digital item.
180             In this section, specify the following information about your digital item, if applicable:
181             - Type of file (file format). Examples include MP3, MOV, etc.
182             - Any computer hardware or software requirements. For example, is your file compatible with both PCs and Macintosh computers?
183             Will it work with all operating systems (Windows XP, Windows 2000, Mac OS X, etc.)?
184             Does the buyer need a specific software program, such as Microsoft Word, to use the item?
185             - Any other requirements. For example, does the buyer need to provide an email address where you will send the item?
186             For example: "Adobe PDF (Portable Document Format) file;
187             buyer will need Adobe Acrobat Reader 5.0 or higher and 5MB of available hard-disk space."
188             Be as specific as possible so that buyers know exactly what they need to access and use
189             the item successfully. This information will appear in your listing so that buyers can
190             make an informed purchase decision.
191              
192             Calls: AddItem
193             GetItemRecommendations
194             RelistItem
195             ReviseItem
196             VerifyAddItem
197             RequiredInput: No
198              
199             # Argument: 'xs:string'
200              
201             =cut
202              
203             sub setRequirements {
204             my $self = shift;
205             $self->{'Requirements'} = shift
206             }
207              
208             =head2 getRequirements()
209              
210             Calls: GetSellerList
211             Returned: Conditionally
212             Details: DetailLevel: ItemReturnDescription, ReturnAll
213              
214             Calls: GetSearchResults
215             Returned: Conditionally
216             Details: DetailLevel: ItemReturnAttributes, ItemReturnCategories, none, ReturnAll
217              
218             Calls: GetBidderList
219             GetCategoryListings
220             Returned: Conditionally
221              
222             Calls: GetItem
223             Returned: Conditionally
224             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
225              
226             Calls: GetProducts
227             Returned: Conditionally
228              
229             # Returns: 'xs:string'
230              
231             =cut
232              
233             sub getRequirements {
234             my $self = shift;
235             return $self->{'Requirements'};
236             }
237              
238              
239             =head2 setURL()
240              
241             The download URL for the digital item. Provide a Web address for your digital item that uses
242             one of the following protocols: HTTP, HTTPS, or FTP. If you do not have a Web address that meets these criteria,
243             specify alternate delivery information in the Instructions field instead.
244             The information will be displayed to the buyer only after payment has been confirmed.
245             Required if Method value is DownloadURL.
246             Ignored if Method value is AlternateDeliveryInstructions (or None).
247              
248             Calls: AddItem
249             GetItemRecommendations
250             RelistItem
251             ReviseItem
252             VerifyAddItem
253             RequiredInput: Conditionally
254              
255             # Argument: 'xs:anyURI'
256              
257             =cut
258              
259             sub setURL {
260             my $self = shift;
261             $self->{'URL'} = shift
262             }
263              
264             =head2 getURL()
265              
266             Calls: GetSellerList
267             Returned: Conditionally
268             Details: DetailLevel: ItemReturnDescription, ReturnAll
269              
270             Calls: GetBidderList
271             Returned: Conditionally
272              
273             Calls: GetItem
274             Returned: Conditionally
275             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
276              
277             # Returns: 'xs:anyURI'
278              
279             =cut
280              
281             sub getURL {
282             my $self = shift;
283             return $self->{'URL'};
284             }
285              
286              
287              
288              
289              
290             ## Attribute and Property lists
291             sub getPropertiesList {
292             my $self = shift;
293             return \@gaProperties;
294             }
295              
296             sub getAttributesList {
297             my $self = shift;
298             return \@gaAttributes;
299             }
300              
301              
302              
303             1;