File Coverage

lib/eBay/API/XML/DataType/AuthenticationEntryType.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::AuthenticationEntryType;
4              
5 1     1   1152 use strict;
  1         2  
  1         34  
6 1     1   5 use warnings;
  1         3  
  1         34  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. AuthenticationEntryType.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::AuthenticationEntryType
21              
22             =head1 DESCRIPTION
23              
24             A set of application-level authentication preferences and related data that
25             you configure to support the user authentication and authorization process.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::DataType::AuthenticationEntryType inherits from the L class
37              
38             =cut
39              
40 1     1   39 use eBay::API::XML::BaseDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::BaseDataType");
42              
43             use eBay::API::XML::DataType::Enum::TokenReturnMethodCodeType;
44              
45              
46             my @gaProperties = ( [ 'AcceptURL', 'xs:anyURI', '', '', '' ]
47             , [ 'PrivacyPolicyURL', 'xs:anyURI', '', '', '' ]
48             , [ 'RejectURL', 'xs:anyURI', '', '', '' ]
49             , [ 'RuName', 'xs:string', '', '', '' ]
50             , [ 'TokenReturnMethod', 'ns:TokenReturnMethodCodeType', ''
51             ,'eBay::API::XML::DataType::Enum::TokenReturnMethodCodeType', '' ]
52             );
53             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
54              
55             my @gaAttributes = (
56             );
57             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
58              
59             =head1 Subroutines:
60              
61             =cut
62              
63             sub new {
64             my $classname = shift;
65             my %args = @_;
66             my $self = $classname->SUPER::new(%args);
67             return $self;
68             }
69              
70             sub isScalar {
71             return 0;
72             }
73              
74              
75              
76             =head2 setAcceptURL()
77              
78             A URL that you set up in order to determine when a
79             user's authentication and authorization process succeeded.
80             After a user signs into eBay and authorizes your application
81             to execute secure calls on their behalf, eBay redirects the
82             user's browser to this URL and, if TokenReturnMethod is set
83             to Redirect, appends the user's authentication token plus
84             other data that you specified to identify the user.
85             This needs to be a secure https URL.
86              
87             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=AuthNAuth
88             Title: Authentication & Authorization
89             MaxLength: 500
90              
91             Calls: SetReturnURL
92             RequiredInput: No
93              
94             # Argument: 'xs:anyURI'
95              
96             =cut
97              
98             sub setAcceptURL {
99             my $self = shift;
100             $self->{'AcceptURL'} = shift
101             }
102              
103             =head2 getAcceptURL()
104              
105             Calls: GetReturnURL
106             Returned: Conditionally
107              
108             # Returns: 'xs:anyURI'
109              
110             =cut
111              
112             sub getAcceptURL {
113             my $self = shift;
114             return $self->{'AcceptURL'};
115             }
116              
117              
118             =head2 setPrivacyPolicyURL()
119              
120             Your privacy policy URL, which is shown to end users on the eBay sign-in page.
121              
122             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=AuthNAuth
123             Title: Authentication & Authorization
124             MaxLength: 500
125              
126             Calls: SetReturnURL
127             RequiredInput: No
128              
129             # Argument: 'xs:anyURI'
130              
131             =cut
132              
133             sub setPrivacyPolicyURL {
134             my $self = shift;
135             $self->{'PrivacyPolicyURL'} = shift
136             }
137              
138             =head2 getPrivacyPolicyURL()
139              
140             Calls: GetReturnURL
141             Returned: Conditionally
142              
143             # Returns: 'xs:anyURI'
144              
145             =cut
146              
147             sub getPrivacyPolicyURL {
148             my $self = shift;
149             return $self->{'PrivacyPolicyURL'};
150             }
151              
152              
153             =head2 setRejectURL()
154              
155             A URL that you set up in order to determine when a
156             user's authentication and authorization process did not succeed.
157             After a user signs into eBay but chooses NOT to authorize your application
158             to execute secure calls on their behalf, eBay redirects the
159             user's browser to this URL and appends data that you specified
160             to identify the user (but does not return an authentication token).
161             This needs to be a secure https URL.
162              
163             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=AuthNAuth
164             Title: Authentication & Authorization
165             MaxLength: 500
166              
167             Calls: SetReturnURL
168             RequiredInput: No
169              
170             # Argument: 'xs:anyURI'
171              
172             =cut
173              
174             sub setRejectURL {
175             my $self = shift;
176             $self->{'RejectURL'} = shift
177             }
178              
179             =head2 getRejectURL()
180              
181             Calls: GetReturnURL
182             Returned: Conditionally
183              
184             # Returns: 'xs:anyURI'
185              
186             =cut
187              
188             sub getRejectURL {
189             my $self = shift;
190             return $self->{'RejectURL'};
191             }
192              
193              
194             =head2 setRuName()
195              
196             A unique identifier associated with application and the combination
197             of URLs within this authentication entry.
198             Unique across all applications that execute eBay Web Services calls.
199             For convenience, you can call GetRuName to generate a unique value.
200              
201             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=AuthNAuth
202             Title: Authentication & Authorization
203             MaxLength: 255
204              
205             Calls: SetReturnURL
206             RequiredInput: Yes
207              
208             # Argument: 'xs:string'
209              
210             =cut
211              
212             sub setRuName {
213             my $self = shift;
214             $self->{'RuName'} = shift
215             }
216              
217             =head2 getRuName()
218              
219             Calls: GetReturnURL
220             Returned: Always
221              
222             # Returns: 'xs:string'
223              
224             =cut
225              
226             sub getRuName {
227             my $self = shift;
228             return $self->{'RuName'};
229             }
230              
231              
232             =head2 setTokenReturnMethod()
233              
234             Specifies whether to return the token in the HTTP response stream
235             sent to the accept URL, or to make it available for retrieval via FetchToken.
236              
237             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=AuthNAuth
238             Title: Authentication & Authorization
239              
240             Calls: SetReturnURL
241             RequiredInput: No
242              
243             # Argument: 'ns:TokenReturnMethodCodeType'
244              
245             =cut
246              
247             sub setTokenReturnMethod {
248             my $self = shift;
249             $self->{'TokenReturnMethod'} = shift
250             }
251              
252             =head2 getTokenReturnMethod()
253              
254             Calls: GetReturnURL
255             Returned: Conditionally
256              
257             # Returns: 'ns:TokenReturnMethodCodeType'
258              
259             =cut
260              
261             sub getTokenReturnMethod {
262             my $self = shift;
263             return $self->{'TokenReturnMethod'};
264             }
265              
266              
267              
268              
269              
270             ## Attribute and Property lists
271             sub getPropertiesList {
272             my $self = shift;
273             return \@gaProperties;
274             }
275              
276             sub getAttributesList {
277             my $self = shift;
278             return \@gaAttributes;
279             }
280              
281              
282              
283             1;