initial commit

3 files changed, 741 insertions, 0 deletions

diff --git a/EZLocate/Interfaces/Authentication/Authentication.pm b/EZLocate/Interfaces/Authentication/Authentication.pm
new file mode 100644
index 0000000..1d18d5a
--- /dev/null
+++ b/EZLocate/Interfaces/Authentication/Authentication.pm
@@ -0,0 +1,244 @@
+package Geo::EZLocate::Interfaces::Authentication::Authentication;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable;
+use Scalar::Util qw(blessed);
+use base qw(SOAP::WSDL::Client::Base);
+
+# only load if it hasn't been loaded before
+require Geo::EZLocate::Typemaps::Authentication
+    if not Geo::EZLocate::Typemaps::Authentication->can('get_class');
+
+sub START {
+    $_[0]->set_proxy('http://mmezl.teleatlas.com/axis/services/Authentication') if not $_[2]->{proxy};
+    $_[0]->set_class_resolver('Geo::EZLocate::Typemaps::Authentication')
+        if not $_[2]->{class_resolver};
+
+    $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix};
+}
+
+sub requestChallenge {
+    my ($self, $body, $header) = @_;
+    die "requestChallenge must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'requestChallenge',
+        soap_action => 'Authentication:AuthenticationPortType#requestChallenge',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::requestChallenge )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+sub answerChallenge {
+    my ($self, $body, $header) = @_;
+    die "answerChallenge must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'answerChallenge',
+        soap_action => 'Authentication:AuthenticationPortType#answerChallenge',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::answerChallenge )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+sub invalidateCredential {
+    my ($self, $body, $header) = @_;
+    die "invalidateCredential must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'invalidateCredential',
+        soap_action => 'Authentication:AuthenticationPortType#invalidateCredential',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::invalidateCredential )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+sub testCredential {
+    my ($self, $body, $header) = @_;
+    die "testCredential must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'testCredential',
+        soap_action => 'Authentication:AuthenticationPortType#testCredential',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::testCredential )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+
+
+1;
+
+
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Geo::EZLocate::Interfaces::Authentication::Authentication - SOAP Interface for the Authentication Web Service
+
+=head1 SYNOPSIS
+
+ use Geo::EZLocate::Interfaces::Authentication::Authentication;
+ my $interface = Geo::EZLocate::Interfaces::Authentication::Authentication->new();
+
+ my $response;
+ $response = $interface->requestChallenge();
+ $response = $interface->answerChallenge();
+ $response = $interface->invalidateCredential();
+ $response = $interface->testCredential();
+
+
+
+=head1 DESCRIPTION
+
+SOAP Interface for the Authentication web service
+located at http://mmezl.teleatlas.com/axis/services/Authentication.
+
+=head1 SERVICE Authentication
+
+
+
+=head2 Port Authentication
+
+
+
+=head1 METHODS
+
+=head2 General methods
+
+=head3 new
+
+Constructor.
+
+All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
+
+=head2 SOAP Service methods
+
+Method synopsis is displayed with hash refs as parameters.
+
+The commented class names in the method's parameters denote that objects
+of the corresponding class can be passed instead of the marked hash ref.
+
+You may pass any combination of objects, hash and list refs to these
+methods, as long as you meet the structure.
+
+List items (i.e. multiple occurences) are not displayed in the synopsis.
+You may generally pass a list ref of hash refs (or objects) instead of a hash
+ref - this may result in invalid XML if used improperly, though. Note that
+SOAP::WSDL always expects list references at maximum depth position.
+
+XML attributes are not displayed in this synopsis and cannot be set using
+hash refs. See the respective class' documentation for additional information.
+
+
+
+=head3 requestChallenge
+
+
+
+Returns a L<Geo::EZLocate::Elements::requestChallengeResponse|Geo::EZLocate::Elements::requestChallengeResponse> object.
+
+ $response = $interface->requestChallenge( {
+    userName =>  $some_value, # string
+    minutesValid =>  $some_value, # int
+  },,
+ );
+
+=head3 answerChallenge
+
+
+
+Returns a L<Geo::EZLocate::Elements::answerChallengeResponse|Geo::EZLocate::Elements::answerChallengeResponse> object.
+
+ $response = $interface->answerChallenge( {
+    encryptedResponse =>  $some_value, # int
+    originalChallenge =>  $some_value, # int
+  },,
+ );
+
+=head3 invalidateCredential
+
+
+
+Returns a L<Geo::EZLocate::Elements::invalidateCredentialResponse|Geo::EZLocate::Elements::invalidateCredentialResponse> object.
+
+ $response = $interface->invalidateCredential( {
+    credential =>  $some_value, # int
+  },,
+ );
+
+=head3 testCredential
+
+
+
+Returns a L<Geo::EZLocate::Elements::testCredentialResponse|Geo::EZLocate::Elements::testCredentialResponse> object.
+
+ $response = $interface->testCredential( {
+    ipAddress =>  $some_value, # string
+    credential =>  $some_value, # int
+    serverCred =>  $some_value, # int
+  },,
+ );
+
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL on Fri Nov  2 14:12:51 2012
+
+=cut
diff --git a/EZLocate/Interfaces/EZClient/EZClient.pm b/EZLocate/Interfaces/EZClient/EZClient.pm
new file mode 100644
index 0000000..fc55c5a
--- /dev/null
+++ b/EZLocate/Interfaces/EZClient/EZClient.pm
@@ -0,0 +1,240 @@
+package Geo::EZLocate::Interfaces::EZClient::EZClient;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable;
+use Scalar::Util qw(blessed);
+use base qw(SOAP::WSDL::Client::Base);
+
+# only load if it hasn't been loaded before
+require Geo::EZLocate::Typemaps::EZClient
+    if not Geo::EZLocate::Typemaps::EZClient->can('get_class');
+
+sub START {
+    $_[0]->set_proxy('http://mmezl.teleatlas.com/axis/services/EZClient') if not $_[2]->{proxy};
+    $_[0]->set_class_resolver('Geo::EZLocate::Typemaps::EZClient')
+        if not $_[2]->{class_resolver};
+
+    $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix};
+}
+
+sub getMOTD {
+    my ($self, $body, $header) = @_;
+    die "getMOTD must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'getMOTD',
+        soap_action => 'EZClient:EZClientPortType#getMOTD',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::getMOTD )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+sub getClientInfo {
+    my ($self, $body, $header) = @_;
+    die "getClientInfo must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'getClientInfo',
+        soap_action => 'EZClient:EZClientPortType#getClientInfo',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::getClientInfo )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+sub getAccountInfo {
+    my ($self, $body, $header) = @_;
+    die "getAccountInfo must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'getAccountInfo',
+        soap_action => 'EZClient:EZClientPortType#getAccountInfo',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::getAccountInfo )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+sub getRPS {
+    my ($self, $body, $header) = @_;
+    die "getRPS must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'getRPS',
+        soap_action => 'EZClient:EZClientPortType#getRPS',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::getRPS )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+
+
+1;
+
+
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Geo::EZLocate::Interfaces::EZClient::EZClient - SOAP Interface for the EZClient Web Service
+
+=head1 SYNOPSIS
+
+ use Geo::EZLocate::Interfaces::EZClient::EZClient;
+ my $interface = Geo::EZLocate::Interfaces::EZClient::EZClient->new();
+
+ my $response;
+ $response = $interface->getMOTD();
+ $response = $interface->getClientInfo();
+ $response = $interface->getAccountInfo();
+ $response = $interface->getRPS();
+
+
+
+=head1 DESCRIPTION
+
+SOAP Interface for the EZClient web service
+located at http://mmezl.teleatlas.com/axis/services/EZClient.
+
+=head1 SERVICE EZClient
+
+
+
+=head2 Port EZClient
+
+
+
+=head1 METHODS
+
+=head2 General methods
+
+=head3 new
+
+Constructor.
+
+All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
+
+=head2 SOAP Service methods
+
+Method synopsis is displayed with hash refs as parameters.
+
+The commented class names in the method's parameters denote that objects
+of the corresponding class can be passed instead of the marked hash ref.
+
+You may pass any combination of objects, hash and list refs to these
+methods, as long as you meet the structure.
+
+List items (i.e. multiple occurences) are not displayed in the synopsis.
+You may generally pass a list ref of hash refs (or objects) instead of a hash
+ref - this may result in invalid XML if used improperly, though. Note that
+SOAP::WSDL always expects list references at maximum depth position.
+
+XML attributes are not displayed in this synopsis and cannot be set using
+hash refs. See the respective class' documentation for additional information.
+
+
+
+=head3 getMOTD
+
+
+
+Returns a L<Geo::EZLocate::Elements::getMOTDResponse|Geo::EZLocate::Elements::getMOTDResponse> object.
+
+ $response = $interface->getMOTD( {
+  },,
+ );
+
+=head3 getClientInfo
+
+
+
+Returns a L<Geo::EZLocate::Elements::getClientInfoResponse|Geo::EZLocate::Elements::getClientInfoResponse> object.
+
+ $response = $interface->getClientInfo( {
+    majorVersion =>  $some_value, # int
+    minorVersion =>  $some_value, # int
+  },,
+ );
+
+=head3 getAccountInfo
+
+
+
+Returns a L<Geo::EZLocate::Elements::getAccountInfoResponse|Geo::EZLocate::Elements::getAccountInfoResponse> object.
+
+ $response = $interface->getAccountInfo( {
+    identity =>  $some_value, # int
+  },,
+ );
+
+=head3 getRPS
+
+
+
+Returns a L<Geo::EZLocate::Elements::getRPSResponse|Geo::EZLocate::Elements::getRPSResponse> object.
+
+ $response = $interface->getRPS( {
+    identity =>  $some_value, # int
+  },,
+ );
+
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL on Fri Nov  2 14:13:07 2012
+
+=cut
diff --git a/EZLocate/Interfaces/Geocoding/Geocoding.pm b/EZLocate/Interfaces/Geocoding/Geocoding.pm
new file mode 100644
index 0000000..2ac0927
--- /dev/null
+++ b/EZLocate/Interfaces/Geocoding/Geocoding.pm
@@ -0,0 +1,257 @@
+package Geo::EZLocate::Interfaces::Geocoding::Geocoding;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable;
+use Scalar::Util qw(blessed);
+use base qw(SOAP::WSDL::Client::Base);
+
+# only load if it hasn't been loaded before
+require Geo::EZLocate::Typemaps::Geocoding
+    if not Geo::EZLocate::Typemaps::Geocoding->can('get_class');
+
+sub START {
+    $_[0]->set_proxy('http://mmezl.teleatlas.com/axis/services/Geocoding') if not $_[2]->{proxy};
+    $_[0]->set_class_resolver('Geo::EZLocate::Typemaps::Geocoding')
+        if not $_[2]->{class_resolver};
+
+    $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix};
+}
+
+sub getServices {
+    my ($self, $body, $header) = @_;
+    die "getServices must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'getServices',
+        soap_action => 'Geocoding:GeocodingPortType#getServices',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::getServices )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+sub getServiceDescription {
+    my ($self, $body, $header) = @_;
+    die "getServiceDescription must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'getServiceDescription',
+        soap_action => 'Geocoding:GeocodingPortType#getServiceDescription',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::getServiceDescription )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+sub findAddress {
+    my ($self, $body, $header) = @_;
+    die "findAddress must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'findAddress',
+        soap_action => 'Geocoding:GeocodingPortType#findAddress',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::findAddress )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+sub findMultiAddress {
+    my ($self, $body, $header) = @_;
+    die "findMultiAddress must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'findMultiAddress',
+        soap_action => 'Geocoding:GeocodingPortType#findMultiAddress',
+        style => 'document',
+        body => {
+            
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( Geo::EZLocate::Elements::findMultiAddress )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+
+
+1;
+
+
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Geo::EZLocate::Interfaces::Geocoding::Geocoding - SOAP Interface for the Geocoding Web Service
+
+=head1 SYNOPSIS
+
+ use Geo::EZLocate::Interfaces::Geocoding::Geocoding;
+ my $interface = Geo::EZLocate::Interfaces::Geocoding::Geocoding->new();
+
+ my $response;
+ $response = $interface->getServices();
+ $response = $interface->getServiceDescription();
+ $response = $interface->findAddress();
+ $response = $interface->findMultiAddress();
+
+
+
+=head1 DESCRIPTION
+
+SOAP Interface for the Geocoding web service
+located at http://mmezl.teleatlas.com/axis/services/Geocoding.
+
+=head1 SERVICE Geocoding
+
+
+
+=head2 Port Geocoding
+
+
+
+=head1 METHODS
+
+=head2 General methods
+
+=head3 new
+
+Constructor.
+
+All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
+
+=head2 SOAP Service methods
+
+Method synopsis is displayed with hash refs as parameters.
+
+The commented class names in the method's parameters denote that objects
+of the corresponding class can be passed instead of the marked hash ref.
+
+You may pass any combination of objects, hash and list refs to these
+methods, as long as you meet the structure.
+
+List items (i.e. multiple occurences) are not displayed in the synopsis.
+You may generally pass a list ref of hash refs (or objects) instead of a hash
+ref - this may result in invalid XML if used improperly, though. Note that
+SOAP::WSDL always expects list references at maximum depth position.
+
+XML attributes are not displayed in this synopsis and cannot be set using
+hash refs. See the respective class' documentation for additional information.
+
+
+
+=head3 getServices
+
+
+
+Returns a L<Geo::EZLocate::Elements::getServicesResponse|Geo::EZLocate::Elements::getServicesResponse> object.
+
+ $response = $interface->getServices( {
+    identity =>  $some_value, # int
+  },,
+ );
+
+=head3 getServiceDescription
+
+
+
+Returns a L<Geo::EZLocate::Elements::getServiceDescriptionResponse|Geo::EZLocate::Elements::getServiceDescriptionResponse> object.
+
+ $response = $interface->getServiceDescription( {
+    service =>  $some_value, # string
+    identity =>  $some_value, # int
+  },,
+ );
+
+=head3 findAddress
+
+
+
+Returns a L<Geo::EZLocate::Elements::findAddressResponse|Geo::EZLocate::Elements::findAddressResponse> object.
+
+ $response = $interface->findAddress( {
+    service =>  $some_value, # string
+    input =>  { # Geo::EZLocate::Types::Record
+      nv =>  { # Geo::EZLocate::Types::NameValue
+        name =>  $some_value, # string
+        value =>  $some_value, # string
+      },
+    },
+    identity =>  $some_value, # int
+  },,
+ );
+
+=head3 findMultiAddress
+
+
+
+Returns a L<Geo::EZLocate::Elements::findMultiAddressResponse|Geo::EZLocate::Elements::findMultiAddressResponse> object.
+
+ $response = $interface->findMultiAddress( {
+    service =>  $some_value, # string
+    inputs =>  { # Geo::EZLocate::Types::RecordSequence
+      record =>  { # Geo::EZLocate::Types::Record
+        nv =>  { # Geo::EZLocate::Types::NameValue
+          name =>  $some_value, # string
+          value =>  $some_value, # string
+        },
+      },
+    },
+    identity =>  $some_value, # int
+  },,
+ );
+
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL on Fri Nov  2 14:12:17 2012
+
+=cut