File Coverage

blib/lib/Net/DashCS/Interfaces/EmergencyProvisioningService/EmergencyProvisioningPort.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Net::DashCS::Interfaces::EmergencyProvisioningService::EmergencyProvisioningPort;
2 1     1   860 use strict;
  1         3  
  1         53  
3 1     1   6 use warnings;
  1         3  
  1         34  
4 1     1   957 use Class::Std::Fast::Storable;
  1         294004  
  1         9  
5 1     1   164 use Scalar::Util qw(blessed);
  1         2  
  1         226  
6 1     1   6 use base qw(SOAP::WSDL::Client::Base);
  1         2  
  1         1095  
7              
8             # only load if it hasn't been loaded before
9             require Net::DashCS::Typemaps::EmergencyProvisioningService
10             if not Net::DashCS::Typemaps::EmergencyProvisioningService->can('get_class');
11              
12             sub START {
13             $_[0]->set_proxy('https://service.dashcs.com/dash-api/soap/emergencyprovisioning/v1') if not $_[2]->{proxy};
14             $_[0]->set_class_resolver('Net::DashCS::Typemaps::EmergencyProvisioningService')
15             if not $_[2]->{class_resolver};
16              
17             $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix};
18             }
19              
20             sub addLocation {
21             my ($self, $body, $header) = @_;
22             die "addLocation must be called as object method (\$self is <$self>)" if not blessed($self);
23             return $self->SUPER::call({
24             operation => 'addLocation',
25             soap_action => '',
26             style => 'document',
27             body => {
28            
29              
30             'use' => 'literal',
31             namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
32             encodingStyle => '',
33             parts => [qw( Net::DashCS::Elements::addLocation )],
34             },
35             header => {
36            
37             },
38             headerfault => {
39            
40             }
41             }, $body, $header);
42             }
43              
44              
45             sub getAuthenticationCheck {
46             my ($self, $body, $header) = @_;
47             die "getAuthenticationCheck must be called as object method (\$self is <$self>)" if not blessed($self);
48             return $self->SUPER::call({
49             operation => 'getAuthenticationCheck',
50             soap_action => '',
51             style => 'document',
52             body => {
53            
54              
55             'use' => 'literal',
56             namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
57             encodingStyle => '',
58             parts => [qw( Net::DashCS::Elements::getAuthenticationCheck )],
59             },
60             header => {
61            
62             },
63             headerfault => {
64            
65             }
66             }, $body, $header);
67             }
68              
69              
70             sub getProvisionedLocationByURI {
71             my ($self, $body, $header) = @_;
72             die "getProvisionedLocationByURI must be called as object method (\$self is <$self>)" if not blessed($self);
73             return $self->SUPER::call({
74             operation => 'getProvisionedLocationByURI',
75             soap_action => '',
76             style => 'document',
77             body => {
78            
79              
80             'use' => 'literal',
81             namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
82             encodingStyle => '',
83             parts => [qw( Net::DashCS::Elements::getProvisionedLocationByURI )],
84             },
85             header => {
86            
87             },
88             headerfault => {
89            
90             }
91             }, $body, $header);
92             }
93              
94              
95             sub validateLocation {
96             my ($self, $body, $header) = @_;
97             die "validateLocation must be called as object method (\$self is <$self>)" if not blessed($self);
98             return $self->SUPER::call({
99             operation => 'validateLocation',
100             soap_action => '',
101             style => 'document',
102             body => {
103            
104              
105             'use' => 'literal',
106             namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
107             encodingStyle => '',
108             parts => [qw( Net::DashCS::Elements::validateLocation )],
109             },
110             header => {
111            
112             },
113             headerfault => {
114            
115             }
116             }, $body, $header);
117             }
118              
119              
120             sub provisionLocation {
121             my ($self, $body, $header) = @_;
122             die "provisionLocation must be called as object method (\$self is <$self>)" if not blessed($self);
123             return $self->SUPER::call({
124             operation => 'provisionLocation',
125             soap_action => '',
126             style => 'document',
127             body => {
128            
129              
130             'use' => 'literal',
131             namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
132             encodingStyle => '',
133             parts => [qw( Net::DashCS::Elements::provisionLocation )],
134             },
135             header => {
136            
137             },
138             headerfault => {
139            
140             }
141             }, $body, $header);
142             }
143              
144              
145             sub removeURI {
146             my ($self, $body, $header) = @_;
147             die "removeURI must be called as object method (\$self is <$self>)" if not blessed($self);
148             return $self->SUPER::call({
149             operation => 'removeURI',
150             soap_action => '',
151             style => 'document',
152             body => {
153            
154              
155             'use' => 'literal',
156             namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
157             encodingStyle => '',
158             parts => [qw( Net::DashCS::Elements::removeURI )],
159             },
160             header => {
161            
162             },
163             headerfault => {
164            
165             }
166             }, $body, $header);
167             }
168              
169              
170             sub getProvisionedLocationHistoryByURI {
171             my ($self, $body, $header) = @_;
172             die "getProvisionedLocationHistoryByURI must be called as object method (\$self is <$self>)" if not blessed($self);
173             return $self->SUPER::call({
174             operation => 'getProvisionedLocationHistoryByURI',
175             soap_action => '',
176             style => 'document',
177             body => {
178            
179              
180             'use' => 'literal',
181             namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
182             encodingStyle => '',
183             parts => [qw( Net::DashCS::Elements::getProvisionedLocationHistoryByURI )],
184             },
185             header => {
186            
187             },
188             headerfault => {
189            
190             }
191             }, $body, $header);
192             }
193              
194              
195             sub removeLocation {
196             my ($self, $body, $header) = @_;
197             die "removeLocation must be called as object method (\$self is <$self>)" if not blessed($self);
198             return $self->SUPER::call({
199             operation => 'removeLocation',
200             soap_action => '',
201             style => 'document',
202             body => {
203            
204              
205             'use' => 'literal',
206             namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
207             encodingStyle => '',
208             parts => [qw( Net::DashCS::Elements::removeLocation )],
209             },
210             header => {
211            
212             },
213             headerfault => {
214            
215             }
216             }, $body, $header);
217             }
218              
219              
220             sub getURIs {
221             my ($self, $body, $header) = @_;
222             die "getURIs must be called as object method (\$self is <$self>)" if not blessed($self);
223             return $self->SUPER::call({
224             operation => 'getURIs',
225             soap_action => '',
226             style => 'document',
227             body => {
228            
229              
230             'use' => 'literal',
231             namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
232             encodingStyle => '',
233             parts => [qw( Net::DashCS::Elements::getURIs )],
234             },
235             header => {
236            
237             },
238             headerfault => {
239            
240             }
241             }, $body, $header);
242             }
243              
244              
245             sub addPinCode {
246             my ($self, $body, $header) = @_;
247             die "addPinCode must be called as object method (\$self is <$self>)" if not blessed($self);
248             return $self->SUPER::call({
249             operation => 'addPinCode',
250             soap_action => '',
251             style => 'document',
252             body => {
253            
254              
255             'use' => 'literal',
256             namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
257             encodingStyle => '',
258             parts => [qw( Net::DashCS::Elements::addPinCode )],
259             },
260             header => {
261            
262             },
263             headerfault => {
264            
265             }
266             }, $body, $header);
267             }
268              
269              
270             sub getLocationsByURI {
271             my ($self, $body, $header) = @_;
272             die "getLocationsByURI must be called as object method (\$self is <$self>)" if not blessed($self);
273             return $self->SUPER::call({
274             operation => 'getLocationsByURI',
275             soap_action => '',
276             style => 'document',
277             body => {
278            
279              
280             'use' => 'literal',
281             namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
282             encodingStyle => '',
283             parts => [qw( Net::DashCS::Elements::getLocationsByURI )],
284             },
285             header => {
286            
287             },
288             headerfault => {
289            
290             }
291             }, $body, $header);
292             }
293              
294              
295              
296              
297             1;
298              
299              
300              
301             __END__