File Coverage

lib/Google/Ads/AdWords/v201710/BatchJobOpsService/BatchJobOpsServiceInterfacePort.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 Google::Ads::AdWords::v201710::BatchJobOpsService::BatchJobOpsServiceInterfacePort;
2 1     1   2459 use strict;
  1         2  
  1         24  
3 1     1   4 use warnings;
  1         3  
  1         20  
4 1     1   4 use Class::Std::Fast::Storable;
  1         1  
  1         11  
5 1     1   147 use Scalar::Util qw(blessed);
  1         3  
  1         54  
6 1     1   5 use base qw(SOAP::WSDL::Client::Base);
  1         1  
  1         60  
7              
8             # only load if it hasn't been loaded before
9             require Google::Ads::AdWords::v201710::TypeMaps::BatchJobOpsService
10             if not Google::Ads::AdWords::v201710::TypeMaps::BatchJobOpsService->can('get_class');
11              
12             sub START {
13             $_[0]->set_proxy('https://en.wikipedia.org/wiki/Null_device') if not $_[2]->{proxy};
14             $_[0]->set_class_resolver('Google::Ads::AdWords::v201710::TypeMaps::BatchJobOpsService')
15             if not $_[2]->{class_resolver};
16              
17             $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix};
18             }
19              
20             sub mutate {
21             my ($self, $body, $header) = @_;
22             die "mutate must be called as object method (\$self is <$self>)" if not blessed($self);
23             return $self->SUPER::call({
24             operation => 'mutate',
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( Google::Ads::AdWords::v201710::BatchJobOpsService::mutate )],
34             },
35             header => {
36            
37             },
38             headerfault => {
39            
40             }
41             }, $body, $header);
42             }
43              
44              
45              
46              
47             1;
48              
49              
50              
51             __END__