File Coverage

lib/eBay/API/XML/DataType/CustomSecurityHeaderType.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::CustomSecurityHeaderType;
4              
5 1     1   1601 use strict;
  1         2  
  1         30  
6 1     1   5 use warnings;
  1         2  
  1         31  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. CustomSecurityHeaderType.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::CustomSecurityHeaderType
21              
22             =head1 DESCRIPTION
23              
24             Security header used for SOAP API calls.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::CustomSecurityHeaderType inherits from the L class
36              
37             =cut
38              
39 1     1   41 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::UserIdPasswordType;
43              
44              
45             my @gaProperties = ( [ 'Credentials', 'ns:UserIdPasswordType', ''
46             ,'eBay::API::XML::DataType::UserIdPasswordType', '1' ]
47             , [ 'HardExpirationWarning', 'xs:string', '', '', '' ]
48             , [ 'NotificationSignature', 'xs:string', '', '', '' ]
49             , [ 'eBayAuthToken', 'xs:string', '', '', '' ]
50             );
51             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
52              
53             my @gaAttributes = (
54             );
55             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
56              
57             =head1 Subroutines:
58              
59             =cut
60              
61             sub new {
62             my $classname = shift;
63             my %args = @_;
64             my $self = $classname->SUPER::new(%args);
65             return $self;
66             }
67              
68             sub isScalar {
69             return 0;
70             }
71              
72              
73              
74             =head2 setCredentials()
75              
76             Authentication information for the user on whose behalf the
77             application is making the request, and authorization information for
78             the application making the request. Only registered eBay users are
79             allowed to make API calls. To verify that a user is registered, your
80             application normally needs to pass a user-specific value called an
81             "authentication token" in the request. This is equivalent to signing
82             in on the eBay Web site. As API calls do not pass session
83             information, you need to pass the user's authentication token every
84             time you invoke a call on their behalf. All calls require an
85             authentication token, except the calls you use to retrieve a token
86             in the first place. For such calls, you use the eBay member's
87             username and password instead.
88              
89             Calls: FetchToken
90             RequiredInput: Yes
91              
92             # Argument: 'ns:UserIdPasswordType'
93              
94             =cut
95              
96             sub setCredentials {
97             my $self = shift;
98             $self->{'Credentials'} = shift
99             }
100              
101             =head2 getCredentials()
102              
103             # Returns: 'ns:UserIdPasswordType'
104              
105             =cut
106              
107             sub getCredentials {
108             my $self = shift;
109             return $self->_getDataTypeInstance( 'Credentials'
110             ,'eBay::API::XML::DataType::UserIdPasswordType');
111             }
112              
113              
114             =head2 setHardExpirationWarning()
115              
116             Expiration date of the user's authentication token. Only returned
117             within the 7-day period prior to a token's expiration. To ensure
118             that user authentication tokens are secure and to help avoid a
119             user's token being compromised, tokens have a limited life span. A
120             token is only valid for a period of time (set by eBay). After this
121             amount of time has passed, the token expires and must be replaced
122             with a new token.
123              
124             # Argument: 'xs:string'
125              
126             =cut
127              
128             sub setHardExpirationWarning {
129             my $self = shift;
130             $self->{'HardExpirationWarning'} = shift
131             }
132              
133             =head2 getHardExpirationWarning()
134              
135             Calls: Returned: Conditionally
136             AllCallsExcept: FetchToken
137              
138             # Returns: 'xs:string'
139              
140             =cut
141              
142             sub getHardExpirationWarning {
143             my $self = shift;
144             return $self->{'HardExpirationWarning'};
145             }
146              
147              
148             =head2 setNotificationSignature()
149              
150             A Base64-encoded MD5 hash that allows the recepient of a Platform
151             Notification to verify this is a valid Platform Notification sent by
152             eBay.
153              
154             # Argument: 'xs:string'
155              
156             =cut
157              
158             sub setNotificationSignature {
159             my $self = shift;
160             $self->{'NotificationSignature'} = shift
161             }
162              
163             =head2 getNotificationSignature()
164              
165             # Returns: 'xs:string'
166              
167             =cut
168              
169             sub getNotificationSignature {
170             my $self = shift;
171             return $self->{'NotificationSignature'};
172             }
173              
174              
175             =head2 setEBayAuthToken()
176              
177             Authentication token representing the user who is making the
178             request. The user's token must be retrieved from eBay. To determine
179             a user's authentication token, see the Authentication and
180             Authorization information in the eBay Web Services guide. For calls
181             that list or retrieve item or transaction data, the user usually
182             needs to be the seller of the item in question or, in some cases,
183             the buyer. Similarly, calls that retrieve user or account data may
184             be restricted to the user whose data is being requested. The
185             documentation for each call includes information about such
186             restrictions.
187              
188             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=AuthNAuth
189             Title: Authentication & Authorization
190             MaxLength: 2000
191              
192             Calls: RequiredInput: Yes
193             AllCallsExcept: FetchToken
194              
195             # Argument: 'xs:string'
196              
197             =cut
198              
199             sub setEBayAuthToken {
200             my $self = shift;
201             $self->{'eBayAuthToken'} = shift
202             }
203              
204             =head2 getEBayAuthToken()
205              
206             # Returns: 'xs:string'
207              
208             =cut
209              
210             sub getEBayAuthToken {
211             my $self = shift;
212             return $self->{'eBayAuthToken'};
213             }
214              
215              
216              
217              
218              
219             ## Attribute and Property lists
220             sub getPropertiesList {
221             my $self = shift;
222             return \@gaProperties;
223             }
224              
225             sub getAttributesList {
226             my $self = shift;
227             return \@gaAttributes;
228             }
229              
230              
231              
232             1;