File Coverage

blib/lib/Microsoft/AdCenter/V7/AdministrationService.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Microsoft::AdCenter::V7::AdministrationService;
2             # Copyright (C) 2012 Xerxes Tsang
3             # This program is free software; you can redistribute it and/or modify it
4             # under the terms of Perl Artistic License.
5              
6 6     6   353053 use strict;
  6         15  
  6         282  
7 6     6   37 use warnings;
  6         14  
  6         279  
8              
9             =head1 NAME
10              
11             Microsoft::AdCenter::V7::AdministrationService - Service client for Microsoft AdCenter Administration Service.
12              
13             =head1 SYNOPSIS
14              
15             use Microsoft::AdCenter::V7::AdministrationService;
16              
17             my $service_client = Microsoft::AdCenter::V7::AdministrationService->new
18             ->ApplicationToken("application token")
19             ->CustomerAccountId("customer account id")
20             ->CustomerId("customer id")
21             ->DeveloperToken("developer token")
22             ->Password("password")
23             ->UserName("user name");
24              
25             my $response = $service_client->GetAssignedQuota(
26             );
27              
28             See L for detailed documentation for this service.
29              
30             =head1 METHODS
31              
32             =head2 EndPoint
33              
34             Changes the end point for this service client.
35              
36             Default value: https://adcenterapi.microsoft.com/Api/Advertiser/V7/Administration/AdministrationService.svc
37              
38             =head2 ApplicationToken
39              
40             Gets/sets ApplicationToken (string) in the request header
41              
42             =head2 CustomerAccountId
43              
44             Gets/sets CustomerAccountId (string) in the request header
45              
46             =head2 CustomerId
47              
48             Gets/sets CustomerId (string) in the request header
49              
50             =head2 DeveloperToken
51              
52             Gets/sets DeveloperToken (string) in the request header
53              
54             =head2 Password
55              
56             Gets/sets Password (string) in the request header
57              
58             =head2 UserName
59              
60             Gets/sets UserName (string) in the request header
61              
62             =head2 TrackingId
63              
64             Gets TrackingId (string) in the response header
65              
66             =cut
67              
68 6     6   36 use base qw/Microsoft::AdCenter::Service/;
  6         13  
  6         4769  
69              
70             sub _service_name {
71             return 'AdministrationService';
72             }
73              
74             sub _service_version {
75             return 'V7';
76             }
77              
78             sub _class_name {
79             return 'AdministrationService';
80             }
81              
82             sub _namespace_uri {
83             return 'https://adcenter.microsoft.com/v7';
84             }
85              
86             sub _default_location {
87             return 'https://adcenterapi.microsoft.com/Api/Advertiser/V7/Administration/AdministrationService.svc';
88             }
89              
90             sub _wsdl {
91             return 'https://adcenterapi.microsoft.com/Api/Advertiser/V7/Administration/AdministrationService.svc?wsdl';
92             }
93              
94             our $_request_headers = [
95             { name => 'ApplicationToken', type => 'string', namespace => 'https://adcenter.microsoft.com/v7' },
96             { name => 'CustomerAccountId', type => 'string', namespace => 'https://adcenter.microsoft.com/v7' },
97             { name => 'CustomerId', type => 'string', namespace => 'https://adcenter.microsoft.com/v7' },
98             { name => 'DeveloperToken', type => 'string', namespace => 'https://adcenter.microsoft.com/v7' },
99             { name => 'Password', type => 'string', namespace => 'https://adcenter.microsoft.com/v7' },
100             { name => 'UserName', type => 'string', namespace => 'https://adcenter.microsoft.com/v7' }
101             ];
102              
103             our $_request_headers_expanded = {
104             ApplicationToken => 'string',
105             CustomerAccountId => 'string',
106             CustomerId => 'string',
107             DeveloperToken => 'string',
108             Password => 'string',
109             UserName => 'string'
110             };
111              
112             sub _request_headers {
113             return $_request_headers;
114             }
115              
116             sub _request_headers_expanded {
117             return $_request_headers_expanded;
118             }
119              
120             our $_response_headers = [
121             { name => 'TrackingId', type => 'string', namespace => 'https://adcenter.microsoft.com/v7' }
122             ];
123              
124             our $_response_headers_expanded = {
125             TrackingId => 'string'
126             };
127              
128             sub _response_headers {
129             return $_response_headers;
130             }
131              
132             sub _response_headers_expanded {
133             return $_response_headers_expanded;
134             }
135              
136             =head2 GetAssignedQuota
137              
138             =over
139              
140             =item Parameters:
141              
142              
143             =item Returns:
144              
145             GetAssignedQuotaResponse
146              
147             =back
148              
149             =cut
150              
151             sub GetAssignedQuota {
152             my ($self, %args) = @_;
153             return $self->_invoke(
154             soap_action => 'GetAssignedQuota',
155             request => {
156             name => 'GetAssignedQuotaRequest',
157             parameters => [
158             ]
159             },
160             response => {
161             name => 'GetAssignedQuotaResponse'
162             },
163             parameters => \%args
164             );
165             }
166              
167             =head2 GetRemainingQuota
168              
169             =over
170              
171             =item Parameters:
172              
173              
174             =item Returns:
175              
176             GetRemainingQuotaResponse
177              
178             =back
179              
180             =cut
181              
182             sub GetRemainingQuota {
183             my ($self, %args) = @_;
184             return $self->_invoke(
185             soap_action => 'GetRemainingQuota',
186             request => {
187             name => 'GetRemainingQuotaRequest',
188             parameters => [
189             ]
190             },
191             response => {
192             name => 'GetRemainingQuotaResponse'
193             },
194             parameters => \%args
195             );
196             }
197              
198             our %_simple_types = (
199             char => 'http://schemas.microsoft.com/2003/10/Serialization/',
200             duration => 'http://schemas.microsoft.com/2003/10/Serialization/',
201             guid => 'http://schemas.microsoft.com/2003/10/Serialization/',
202             );
203              
204             sub _simple_types {
205             return %_simple_types;
206             }
207              
208             our @_complex_types = (qw/
209             AdApiError
210             AdApiFaultDetail
211             ApplicationFault
212             GetAssignedQuotaResponse
213             GetRemainingQuotaResponse
214             /);
215              
216             sub _complex_types {
217             return @_complex_types;
218             }
219              
220             our %_array_types = (
221             ArrayOfAdApiError => {
222             namespace_uri => 'https://adapi.microsoft.com',
223             element_name => 'AdApiError',
224             element_type => 'AdApiError'
225             },
226             );
227              
228             sub _array_types {
229             return %_array_types;
230             }
231              
232             __PACKAGE__->mk_accessors(qw/
233             ApplicationToken
234             CustomerAccountId
235             CustomerId
236             DeveloperToken
237             Password
238             UserName
239             TrackingId
240             /);
241              
242             1;