: ()),
PL_FILES => {},
PREREQ_PM => {
- 'Test::More' => 0,
+ 'Test::More' => 0,
+ 'XML::LibXML' => 2,
+ 'LWP::UserAgent' => 0,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'Geo-Melissa-WebSmart-*' },
$root = $root->firstChild; # ResponseArray
my $data = treeify($root);
if (exists $data->{Record}) {
- $self->address($data->{Address});
+ $self->address($data->{Record}->{Address});
$self->code($data->{Record}->{Results});
} else {
$self->code($data->{Results});
} else {
$self->message( $resp->status_line );
}
- if ( $geocode and $self->address and $self->address->{AddressKey} > 0 ) {
+ if ( $geocode and $self->address->{AddressKey} ) {
$uri = URI->new($geocoder_uri);
$uri->query_form(
id => $opt{id},
sub status_message {
my $self = shift;
- join("\n",
- $self->message,
+ my $status = join("\n",
map { $self->result_string($_) }
split(',', $self->code)
);
+ $status = join("\n", $self->message, $status) if $self->message and $status;
+ $status;
}
=head2 result_string CODE