MATSUNO★Tokuhiro > Geo-Coordinates-Converter-iArea-0.14 > Geo::Coordinates::Converter::Format::IArea

Download:
Geo-Coordinates-Converter-iArea-0.14.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.01   Source  

NAME ^

Geo::Coordinates::Converter::Format::IArea - get center point from iArea

SYNOPSIS ^

GET CENTER POINT FROM AREA CODE
  use Geo::Coordinates::Converter;
  use Geo::Coordinates::Converter::iArea;

  my $geo = Geo::Coordinates::Converter->new( format => 'iarea', areacode => '00205' );
  my $point = $geo->convert('degree' => 'wgs84');
  print "lat: ", $point->lat, " lng: ", $point->lng, "\n";
  # => lat: 42.859220 lng: 141.492367
GET AREACODE FROM LOCATION POINT
  use Geo::Coordinates::Converter;
  use Geo::Coordinates::Converter::iArea;

  my $geo = Geo::Coordinates::Converter->new( format => 'degree', datum => 'tokyo', lat => '42.859220', lng => '141.492367' );
  my $point = $geo->convert('iarea');
  print $point->areacode, "\n";
  # => 00205
INTEGRATE WITH HTTP::MobileAgent::Plugin::Locator
  use Geo::Coordinates::Converter;
  use Geo::Coordinates::Converter::iArea;
  use CGI;
  use HTTP::MobileAgent;
  use HTTP::MobileAgent::Plugin::Locator;

  my $q = CGI->new();
  my $agent = HTTP::MobileAgent->new();
  my $orig_point = $agent->get_location($q);
  my $geo = Geo::Coordinates::Converter->new( point => $orig_point->clone );
  my $point = $geo->convert('iarea');
  print $point->areacode, "\n";
  # => 00205

DESCRIPTION ^

Geo::Coordinates::Converter::Format::IArea is utilities for DoCoMo iArea.

easy to get the center point of area.

ADDITIONAL METHODS FOR Geo::Coordinates::Converter core. ^

Geo::Coordinates::Converter->areacode()

areacode accessor

Geo::Coordinates::Converter::Point->areacode()

areacode accessor

INTERNAL METHODS ^

name
detect
from
to

DO NOT USE DIRECTLY

AUTHOR ^

Kazuhiro Osawa, Tokuhiro Matsuno

SEE ALSO ^

Geo::Coordinates::Converter::iArea, Location::Area::DoCoMo::iArea

LICENSE ^

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: