EZLocate/Interfaces/EZClient/EZClient.pm

   1 package Geo::EZLocate::Interfaces::EZClient::EZClient;
   2 use strict;
   3 use warnings;
   4 use Class::Std::Fast::Storable;
   5 use Scalar::Util qw(blessed);
   6 use base qw(SOAP::WSDL::Client::Base);
   7
   8 # only load if it hasn't been loaded before
   9 require Geo::EZLocate::Typemaps::EZClient
  10     if not Geo::EZLocate::Typemaps::EZClient->can('get_class');
  11
  12 sub START {
  13     $_[0]->set_proxy('http://mmezl.teleatlas.com/axis/services/EZClient') if not $_[2]->{proxy};
  14     $_[0]->set_class_resolver('Geo::EZLocate::Typemaps::EZClient')
  15         if not $_[2]->{class_resolver};
  16
  17     $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix};
  18 }
  19
  20 sub getMOTD {
  21     my ($self, $body, $header) = @_;
  22     die "getMOTD must be called as object method (\$self is <$self>)" if not blessed($self);
  23     return $self->SUPER::call({
  24         operation => 'getMOTD',
  25         soap_action => 'EZClient:EZClientPortType#getMOTD',
  26         style => 'document',
  27         body => {
  28
  29
  30            'use'            => 'literal',
  31             namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
  32             encodingStyle   => '',
  33             parts           =>  [qw( Geo::EZLocate::Elements::getMOTD )],
  34         },
  35         header => {
  36
  37         },
  38         headerfault => {
  39
  40         }
  41     }, $body, $header);
  42 }
  43
  44
  45 sub getClientInfo {
  46     my ($self, $body, $header) = @_;
  47     die "getClientInfo must be called as object method (\$self is <$self>)" if not blessed($self);
  48     return $self->SUPER::call({
  49         operation => 'getClientInfo',
  50         soap_action => 'EZClient:EZClientPortType#getClientInfo',
  51         style => 'document',
  52         body => {
  53
  54
  55            'use'            => 'literal',
  56             namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
  57             encodingStyle   => '',
  58             parts           =>  [qw( Geo::EZLocate::Elements::getClientInfo )],
  59         },
  60         header => {
  61
  62         },
  63         headerfault => {
  64
  65         }
  66     }, $body, $header);
  67 }
  68
  69
  70 sub getAccountInfo {
  71     my ($self, $body, $header) = @_;
  72     die "getAccountInfo must be called as object method (\$self is <$self>)" if not blessed($self);
  73     return $self->SUPER::call({
  74         operation => 'getAccountInfo',
  75         soap_action => 'EZClient:EZClientPortType#getAccountInfo',
  76         style => 'document',
  77         body => {
  78
  79
  80            'use'            => 'literal',
  81             namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
  82             encodingStyle   => '',
  83             parts           =>  [qw( Geo::EZLocate::Elements::getAccountInfo )],
  84         },
  85         header => {
  86
  87         },
  88         headerfault => {
  89
  90         }
  91     }, $body, $header);
  92 }
  93
  94
  95 sub getRPS {
  96     my ($self, $body, $header) = @_;
  97     die "getRPS must be called as object method (\$self is <$self>)" if not blessed($self);
  98     return $self->SUPER::call({
  99         operation => 'getRPS',
 100         soap_action => 'EZClient:EZClientPortType#getRPS',
 101         style => 'document',
 102         body => {
 103
 104
 105            'use'            => 'literal',
 106             namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
 107             encodingStyle   => '',
 108             parts           =>  [qw( Geo::EZLocate::Elements::getRPS )],
 109         },
 110         header => {
 111
 112         },
 113         headerfault => {
 114
 115         }
 116     }, $body, $header);
 117 }
 118
 119
 120
 121
 122 1;
 123
 124
 125
 126 __END__
 127
 128 =pod
 129
 130 =head1 NAME
 131
 132 Geo::EZLocate::Interfaces::EZClient::EZClient - SOAP Interface for the EZClient Web Service
 133
 134 =head1 SYNOPSIS
 135
 136  use Geo::EZLocate::Interfaces::EZClient::EZClient;
 137  my $interface = Geo::EZLocate::Interfaces::EZClient::EZClient->new();
 138
 139  my $response;
 140  $response = $interface->getMOTD();
 141  $response = $interface->getClientInfo();
 142  $response = $interface->getAccountInfo();
 143  $response = $interface->getRPS();
 144
 145
 146
 147 =head1 DESCRIPTION
 148
 149 SOAP Interface for the EZClient web service
 150 located at http://mmezl.teleatlas.com/axis/services/EZClient.
 151
 152 =head1 SERVICE EZClient
 153
 154
 155
 156 =head2 Port EZClient
 157
 158
 159
 160 =head1 METHODS
 161
 162 =head2 General methods
 163
 164 =head3 new
 165
 166 Constructor.
 167
 168 All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
 169
 170 =head2 SOAP Service methods
 171
 172 Method synopsis is displayed with hash refs as parameters.
 173
 174 The commented class names in the method's parameters denote that objects
 175 of the corresponding class can be passed instead of the marked hash ref.
 176
 177 You may pass any combination of objects, hash and list refs to these
 178 methods, as long as you meet the structure.
 179
 180 List items (i.e. multiple occurences) are not displayed in the synopsis.
 181 You may generally pass a list ref of hash refs (or objects) instead of a hash
 182 ref - this may result in invalid XML if used improperly, though. Note that
 183 SOAP::WSDL always expects list references at maximum depth position.
 184
 185 XML attributes are not displayed in this synopsis and cannot be set using
 186 hash refs. See the respective class' documentation for additional information.
 187
 188
 189
 190 =head3 getMOTD
 191
 192
 193
 194 Returns a L<Geo::EZLocate::Elements::getMOTDResponse|Geo::EZLocate::Elements::getMOTDResponse> object.
 195
 196  $response = $interface->getMOTD( {
 197   },,
 198  );
 199
 200 =head3 getClientInfo
 201
 202
 203
 204 Returns a L<Geo::EZLocate::Elements::getClientInfoResponse|Geo::EZLocate::Elements::getClientInfoResponse> object.
 205
 206  $response = $interface->getClientInfo( {
 207     majorVersion =>  $some_value, # int
 208     minorVersion =>  $some_value, # int
 209   },,
 210  );
 211
 212 =head3 getAccountInfo
 213
 214
 215
 216 Returns a L<Geo::EZLocate::Elements::getAccountInfoResponse|Geo::EZLocate::Elements::getAccountInfoResponse> object.
 217
 218  $response = $interface->getAccountInfo( {
 219     identity =>  $some_value, # int
 220   },,
 221  );
 222
 223 =head3 getRPS
 224
 225
 226
 227 Returns a L<Geo::EZLocate::Elements::getRPSResponse|Geo::EZLocate::Elements::getRPSResponse> object.
 228
 229  $response = $interface->getRPS( {
 230     identity =>  $some_value, # int
 231   },,
 232  );
 233
 234
 235
 236 =head1 AUTHOR
 237
 238 Generated by SOAP::WSDL on Fri Nov  2 14:13:07 2012
 239
 240 =cut