File Coverage

lib/eBay/API/XML/DataType/ApplicationDeliveryPreferencesType.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::ApplicationDeliveryPreferencesType;
4              
5 1     1   1150 use strict;
  1         2  
  1         27  
6 1     1   4 use warnings;
  1         2  
  1         26  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ApplicationDeliveryPreferencesType.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::ApplicationDeliveryPreferencesType
21              
22             =head1 DESCRIPTION
23              
24             Specifies preferences describing how notifications are
25             delivered to an application. Note that notifications are subject
26             to Anti-Spam rules. See Anti-Spam Rules in the eBay Web Services Guide for more information about these rules.
27              
28              
29              
30             =head1 SYNOPSIS
31              
32             =cut
33              
34              
35             =head1 INHERITANCE
36              
37             eBay::API::XML::DataType::ApplicationDeliveryPreferencesType inherits from the L class
38              
39             =cut
40              
41 1     1   68 use eBay::API::XML::BaseDataType;
  0            
  0            
42             our @ISA = ("eBay::API::XML::BaseDataType");
43              
44             use eBay::API::XML::DataType::DeliveryURLDetailType;
45             use eBay::API::XML::DataType::Enum::DeviceTypeCodeType;
46             use eBay::API::XML::DataType::Enum::EnableCodeType;
47             use eBay::API::XML::DataType::Enum::NotificationPayloadTypeCodeType;
48              
49              
50             my @gaProperties = ( [ 'AlertEmail', 'xs:anyURI', '', '', '' ]
51             , [ 'AlertEnable', 'ns:EnableCodeType', ''
52             ,'eBay::API::XML::DataType::Enum::EnableCodeType', '' ]
53             , [ 'ApplicationEnable', 'ns:EnableCodeType', ''
54             ,'eBay::API::XML::DataType::Enum::EnableCodeType', '' ]
55             , [ 'ApplicationURL', 'xs:anyURI', '', '', '' ]
56             , [ 'DeliveryURLDetails', 'ns:DeliveryURLDetailType', '1'
57             ,'eBay::API::XML::DataType::DeliveryURLDetailType', '1' ]
58             , [ 'DeviceType', 'ns:DeviceTypeCodeType', ''
59             ,'eBay::API::XML::DataType::Enum::DeviceTypeCodeType', '' ]
60             , [ 'NotificationPayloadType', 'ns:NotificationPayloadTypeCodeType', ''
61             ,'eBay::API::XML::DataType::Enum::NotificationPayloadTypeCodeType', '' ]
62             , [ 'PayloadVersion', 'xs:string', '', '', '' ]
63             );
64             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
65              
66             my @gaAttributes = (
67             );
68             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
69              
70             =head1 Subroutines:
71              
72             =cut
73              
74             sub new {
75             my $classname = shift;
76             my %args = @_;
77             my $self = $classname->SUPER::new(%args);
78             return $self;
79             }
80              
81             sub isScalar {
82             return 0;
83             }
84              
85              
86              
87             =head2 setAlertEmail()
88              
89             The email address where eBay sends all application
90             markup and markdown event notifications. When setting the
91             email address, input must be in the format
92             mailto://youremailaddress@yoursite.com (with the mailto://
93             prefix). The application has to subscribe to recieve these
94             events using the AlertEnable field.
95              
96             MaxLength: Length of valid email ids
97              
98             Calls: SetNotificationPreferences
99             RequiredInput: No
100              
101             # Argument: 'xs:anyURI'
102              
103             =cut
104              
105             sub setAlertEmail {
106             my $self = shift;
107             $self->{'AlertEmail'} = shift
108             }
109              
110             =head2 getAlertEmail()
111              
112             Calls: GetNotificationPreferences
113             Returned: Conditionally
114              
115             # Returns: 'xs:anyURI'
116              
117             =cut
118              
119             sub getAlertEmail {
120             my $self = shift;
121             return $self->{'AlertEmail'};
122             }
123              
124              
125             =head2 setAlertEnable()
126              
127             A token indicating whether markup and markdown alerts are enabled or disabled.
128              
129             Calls: SetNotificationPreferences
130             RequiredInput: No
131              
132             # Argument: 'ns:EnableCodeType'
133              
134             =cut
135              
136             sub setAlertEnable {
137             my $self = shift;
138             $self->{'AlertEnable'} = shift
139             }
140              
141             =head2 getAlertEnable()
142              
143             Calls: GetNotificationPreferences
144             Returned: Conditionally
145              
146             # Returns: 'ns:EnableCodeType'
147              
148             =cut
149              
150             sub getAlertEnable {
151             my $self = shift;
152             return $self->{'AlertEnable'};
153             }
154              
155              
156             =head2 setApplicationEnable()
157              
158             Indicates whether notifications and alerts are
159             enabled or disabled. If you disable notifications,
160             the application does not receive them, but notification
161             preferences are not erased.
162              
163             Calls: SetNotificationPreferences
164             RequiredInput: No
165              
166             # Argument: 'ns:EnableCodeType'
167              
168             =cut
169              
170             sub setApplicationEnable {
171             my $self = shift;
172             $self->{'ApplicationEnable'} = shift
173             }
174              
175             =head2 getApplicationEnable()
176              
177             Calls: GetNotificationPreferences
178             Returned: Conditionally
179              
180             # Returns: 'ns:EnableCodeType'
181              
182             =cut
183              
184             sub getApplicationEnable {
185             my $self = shift;
186             return $self->{'ApplicationEnable'};
187             }
188              
189              
190             =head2 setApplicationURL()
191              
192             The URL where eBay delivers all notifications sent
193             to the application. For delivery to a server, the URL
194             begins with http:// or https:// and must be well
195             formed. Use a URL that is functional at the time of the
196             call. For delivery to an email address, the URL begins
197             with mailto: and specifies a valid email address.
198              
199             Calls: SetNotificationPreferences
200             RequiredInput: No
201              
202             # Argument: 'xs:anyURI'
203              
204             =cut
205              
206             sub setApplicationURL {
207             my $self = shift;
208             $self->{'ApplicationURL'} = shift
209             }
210              
211             =head2 getApplicationURL()
212              
213             Calls: GetNotificationPreferences
214             Returned: Conditionally
215              
216             # Returns: 'xs:anyURI'
217              
218             =cut
219              
220             sub getApplicationURL {
221             my $self = shift;
222             return $self->{'ApplicationURL'};
223             }
224              
225              
226             =head2 setDeliveryURLDetails()
227              
228             Defines settings for a notification URL (including the URL name in DeliveryURLName).
229             You define settings for a notification URL (including the URL name in DeliveryURLName) in the
230             DeliveryURLDetails container. You associate a user token with a notification URL by using the token
231             in a SetNotificationPreferences request that specifies the URL name in
232             SetNotificationPreferencesRequest.DeliveryURLName.
233             If you associate a single user token to multiple URL names, each URL name overwrites
234             the previous name associated with the token. You can specify up to 10 notification URLs for an application.
235             Note that Notifications will not be sent to any URL(s) if
236             ApplicationDeliveryPreferencesType.ApplicationEnable is set to Disable.
237              
238             Calls: SetNotificationPreferences
239             RequiredInput: No
240              
241             # Argument: reference to an array
242             of 'ns:DeliveryURLDetailType'
243              
244             =cut
245              
246             sub setDeliveryURLDetails {
247             my $self = shift;
248             $self->{'DeliveryURLDetails'} =
249             $self->convertArray_To_RefToArrayIfNeeded(@_);
250             }
251              
252             =head2 getDeliveryURLDetails()
253              
254             Calls: GetNotificationPreferences
255             Returned: Conditionally
256              
257             # Returns: reference to an array
258             of 'ns:DeliveryURLDetailType'
259              
260             =cut
261              
262             sub getDeliveryURLDetails {
263             my $self = shift;
264             return $self->_getDataTypeArray('DeliveryURLDetails');
265             }
266              
267              
268             =head2 setDeviceType()
269              
270             Do not test Client Alerts in production if you are currently using Platform Notifications.
271             The means of receipt of notification. In most cases, it is
272             Platform (typical API calls and web interaction), so this is the
273             default, if not specified. For wireless applications, use SMS.
274              
275             Calls: SetNotificationPreferences
276             RequiredInput: No
277              
278             # Argument: 'ns:DeviceTypeCodeType'
279              
280             =cut
281              
282             sub setDeviceType {
283             my $self = shift;
284             $self->{'DeviceType'} = shift
285             }
286              
287             =head2 getDeviceType()
288              
289             Calls: GetNotificationPreferences
290             Returned: Conditionally
291              
292             # Returns: 'ns:DeviceTypeCodeType'
293              
294             =cut
295              
296             sub getDeviceType {
297             my $self = shift;
298             return $self->{'DeviceType'};
299             }
300              
301              
302             =head2 setNotificationPayloadType()
303              
304             If this field is specified, the value must be eBLSchemaSOAP.
305              
306             Calls: SetNotificationPreferences
307             RequiredInput: No
308              
309             # Argument: 'ns:NotificationPayloadTypeCodeType'
310              
311             =cut
312              
313             sub setNotificationPayloadType {
314             my $self = shift;
315             $self->{'NotificationPayloadType'} = shift
316             }
317              
318             =head2 getNotificationPayloadType()
319              
320             Calls: GetNotificationPreferences
321             Returned: Conditionally
322              
323             # Returns: 'ns:NotificationPayloadTypeCodeType'
324              
325             =cut
326              
327             sub getNotificationPayloadType {
328             my $self = shift;
329             return $self->{'NotificationPayloadType'};
330             }
331              
332              
333             =head2 setPayloadVersion()
334              
335             If you are using SetNotificationPreferences, you can use the PayloadVersion
336             field to specify the API version for all notifications for the calling
337             application. If you are using GetNotificationPreferences, this field contains
338             the API version for all notifications for the calling application. If you do
339             not specify PayloadVersion in SetNotificationPreferences, the behavior of
340             notifications is the same as it was before the PayloadVersion field was added
341             to the schema. Before the PayloadVersion field was added to the schema, the
342             API version for notifications was based on the API version specified as part
343             of your SetNotificationPreferences call. Now, you can use PayloadVersion to
344             override the API version specified as part of your SetNotificationPreferences
345             call.
346              
347             Calls: SetNotificationPreferences
348             RequiredInput: No
349              
350             # Argument: 'xs:string'
351              
352             =cut
353              
354             sub setPayloadVersion {
355             my $self = shift;
356             $self->{'PayloadVersion'} = shift
357             }
358              
359             =head2 getPayloadVersion()
360              
361             Calls: GetNotificationPreferences
362             Returned: Conditionally
363              
364             # Returns: 'xs:string'
365              
366             =cut
367              
368             sub getPayloadVersion {
369             my $self = shift;
370             return $self->{'PayloadVersion'};
371             }
372              
373              
374              
375              
376              
377             ## Attribute and Property lists
378             sub getPropertiesList {
379             my $self = shift;
380             return \@gaProperties;
381             }
382              
383             sub getAttributesList {
384             my $self = shift;
385             return \@gaAttributes;
386             }
387              
388              
389              
390             1;