Changeset 2652 for lang/perl/HTTP-MobileAgent-Plugin-Locator/trunk/lib/HTTP/MobileAgent/Plugin/Locator/SoftBank/BasicLocation.pm

Timestamp:

12/06/07 18:55:16 (5 years ago)

Author:

clouder

Message:

lang/perl/HTTP-MobileAgent?-Plugin-Locator: modifiled to apply Apache::Request and CGI instance, and return G::C::C::Point instance

Files:

• lang/perl/HTTP-MobileAgent-Plugin-Locator/trunk/lib/HTTP/MobileAgent/Plugin/Locator/SoftBank/BasicLocation.pm (modified) (1 diff)

lang/perl/HTTP-MobileAgent-Plugin-Locator/trunk/lib/HTTP/MobileAgent/Plugin/Locator/SoftBank/BasicLocation.pm

@@ -1 +1 @@
 package HTTP::MobileAgent::Plugin::Locator::SoftBank::BasicLocation;
-# 簡易位置情報
+# Simple Location Information
 
 use strict;
-use base qw( HTTP::MobileAgent::Plugin::Locator::Base );
+use base qw( HTTP::MobileAgent::Plugin::Locator );
+use Geo::Coordinates::Converter;
 
 sub get_location {
-    my ( $self, $page ) = @_;
+    my $self = shift;
     my $geocode = $ENV{ HTTP_X_JPHONE_GEOCODE };
     $geocode =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
     my ( $lat, $lng, $address ) = split /\x1a/, $geocode;
-    return +{
-        lat => _convert_point( $lat ) || undef,
-        lng => _convert_point( $lng ) || undef,
-    };
+    return Geo::Coordinates::Converter->new(
+        lat   => _convert_point( $lat ) || undef,
+        lng   => _convert_point( $lng ) || undef,
+        datum => 'tokyo',
+    )->convert( 'wgs84' );
 }