File Coverage

lib/eBay/API/XML/DataType/DeliveryURLDetailType.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::DeliveryURLDetailType;
4              
5 1     1   1247 use strict;
  1         4  
  1         29  
6 1     1   5 use warnings;
  1         2  
  1         31  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. DeliveryURLDetailType.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::DeliveryURLDetailType
21              
22             =head1 DESCRIPTION
23              
24             Defines settings for a notification URL (including the URL name in DeliveryURLName).
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::DeliveryURLDetailType inherits from the L class
36              
37             =cut
38              
39 1     1   40 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::Enum::EnableCodeType;
43              
44              
45             my @gaProperties = ( [ 'DeliveryURL', 'xs:anyURI', '', '', '' ]
46             , [ 'DeliveryURLName', 'xs:string', '', '', '' ]
47             , [ 'Status', 'ns:EnableCodeType', ''
48             ,'eBay::API::XML::DataType::Enum::EnableCodeType', '' ]
49             );
50             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
51              
52             my @gaAttributes = (
53             );
54             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
55              
56             =head1 Subroutines:
57              
58             =cut
59              
60             sub new {
61             my $classname = shift;
62             my %args = @_;
63             my $self = $classname->SUPER::new(%args);
64             return $self;
65             }
66              
67             sub isScalar {
68             return 0;
69             }
70              
71              
72              
73             =head2 setDeliveryURL()
74              
75             The address of a notification delivery URL.
76             This address applies to the DeliveryURLName
77             within the same
78             ApplicationDeliveryPreferences.DeliveryURLDetails container.
79             For delivery to a server, the URL
80             begins with http:// or https:// and must be well
81             formed. Use a URL that is functional at the time of the
82             call. For delivery to an email address, the URL begins
83             with mailto: and specifies a valid email address.
84              
85             MaxLength: unknown
86              
87             Calls: SetNotificationPreferences
88             RequiredInput: No
89              
90             # Argument: 'xs:anyURI'
91              
92             =cut
93              
94             sub setDeliveryURL {
95             my $self = shift;
96             $self->{'DeliveryURL'} = shift
97             }
98              
99             =head2 getDeliveryURL()
100              
101             Calls: GetNotificationPreferences
102             Returned: Conditionally
103              
104             # Returns: 'xs:anyURI'
105              
106             =cut
107              
108             sub getDeliveryURL {
109             my $self = shift;
110             return $self->{'DeliveryURL'};
111             }
112              
113              
114             =head2 setDeliveryURLName()
115              
116             The name of a notification delivery URL.
117              
118             Calls: SetNotificationPreferences
119             RequiredInput: No
120              
121             # Argument: 'xs:string'
122              
123             =cut
124              
125             sub setDeliveryURLName {
126             my $self = shift;
127             $self->{'DeliveryURLName'} = shift
128             }
129              
130             =head2 getDeliveryURLName()
131              
132             Calls: GetNotificationPreferences
133             Returned: Conditionally
134              
135             # Returns: 'xs:string'
136              
137             =cut
138              
139             sub getDeliveryURLName {
140             my $self = shift;
141             return $self->{'DeliveryURLName'};
142             }
143              
144              
145             =head2 setStatus()
146              
147             The status of a notification delivery URL.
148             This status applies to the DeliveryURLName and delivery URL
149             within the same ApplicationDeliveryPreferences.DeliveryURLDetails container.
150             If the status is disabled, then notifications will not be sent to the delivery URL.
151              
152             Calls: SetNotificationPreferences
153             RequiredInput: No
154              
155             # Argument: 'ns:EnableCodeType'
156              
157             =cut
158              
159             sub setStatus {
160             my $self = shift;
161             $self->{'Status'} = shift
162             }
163              
164             =head2 getStatus()
165              
166             Calls: GetNotificationPreferences
167             Returned: Conditionally
168              
169             # Returns: 'ns:EnableCodeType'
170              
171             =cut
172              
173             sub getStatus {
174             my $self = shift;
175             return $self->{'Status'};
176             }
177              
178              
179              
180              
181              
182             ## Attribute and Property lists
183             sub getPropertiesList {
184             my $self = shift;
185             return \@gaProperties;
186             }
187              
188             sub getAttributesList {
189             my $self = shift;
190             return \@gaAttributes;
191             }
192              
193              
194              
195             1;