diff options
author | Mark Wells <mark@freeside.biz> | 2012-11-02 14:28:31 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2012-11-02 14:28:31 -0700 |
commit | 7be09bed7f9acdf8a20362c49831dfb39fc4e7a4 (patch) | |
tree | 51ed1f3337fd567897a12553fe6a6ae2ced3ce7c /EZLocate/Types/MatchType.pm |
initial commit
Diffstat (limited to 'EZLocate/Types/MatchType.pm')
-rw-r--r-- | EZLocate/Types/MatchType.pm | 120 |
1 files changed, 120 insertions, 0 deletions
diff --git a/EZLocate/Types/MatchType.pm b/EZLocate/Types/MatchType.pm new file mode 100644 index 0000000..997c60c --- /dev/null +++ b/EZLocate/Types/MatchType.pm @@ -0,0 +1,120 @@ +package Geo::EZLocate::Types::MatchType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://ezlocate.na.teleatlas.com/Geocoding.xsd1' }; + +our $XML_ATTRIBUTE_CLASS; +undef $XML_ATTRIBUTE_CLASS; + +sub __get_attr_class { + return $XML_ATTRIBUTE_CLASS; +} + +use Class::Std::Fast::Storable constructor => 'none'; +use base qw(SOAP::WSDL::XSD::Typelib::ComplexType); + +Class::Std::initialize(); + +{ # BLOCK to scope variables + +my %name_of :ATTR(:get<name>); +my %description_of :ATTR(:get<description>); +my %id_of :ATTR(:get<id>); + +__PACKAGE__->_factory( + [ qw( name + description + id + + ) ], + { + 'name' => \%name_of, + 'description' => \%description_of, + 'id' => \%id_of, + }, + { + 'name' => 'SOAP::WSDL::XSD::Typelib::Builtin::string', + 'description' => 'SOAP::WSDL::XSD::Typelib::Builtin::string', + 'id' => 'SOAP::WSDL::XSD::Typelib::Builtin::int', + }, + { + + 'name' => 'name', + 'description' => 'description', + 'id' => 'id', + } +); + +} # end BLOCK + + + + + + + +1; + + +=pod + +=head1 NAME + +Geo::EZLocate::Types::MatchType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +MatchType from the namespace http://ezlocate.na.teleatlas.com/Geocoding.xsd1. + + + + + + +=head2 PROPERTIES + +The following properties may be accessed using get_PROPERTY / set_PROPERTY +methods: + +=over + +=item * name + + +=item * description + + +=item * id + + + + +=back + + +=head1 METHODS + +=head2 new + +Constructor. The following data structure may be passed to new(): + + { # Geo::EZLocate::Types::MatchType + name => $some_value, # string + description => $some_value, # string + id => $some_value, # int + }, + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + |