NAME

Geo::Coordinates::Parser - A coordinate parser class.

SYNOPSIS

use Geo::Coordinates::Parser;
my $coordinateparser = Geo::Coordinates::Parser->new('.');
my $decimaldegree = $coordinateparser->parse(q{E25°42'60"});
$decimaldegree = $coordinateparser->parse(q{E25.12346"});

DESCRIPTION

This module provides a method for parsing a coordinate string.

METHODS

This module provides the following methods:

new($decimal_delimiter)

Returns a new Geo::Coordinates::Parser object. The decimal delimiter can be given as an argument. If no argument is given then period "." character is used as decimal delimiter.

Usage:

my $coordinateparser = Geo::Coordinates::Parser->new(); # or
my $coordinateparser = Geo::Coordinates::Parser->new('.'); # same as above, or
my $coordinateparser = Geo::Coordinates::Parser->new(','); # , is the decimal delimiter

parse($coordinatestring)

Parses the coordinate string and returns it's decimal value. It uses Geo::Coordinates::DecimalDegrees to turn degrees, minutes and seconds into the equivalent decimal degree. The argument can be either a longitude or a latitude. It doesn't test the sanity of the data. The method simply removes all unnecessary characters and then converts the degrees, minutes and seconds to a decimal degree.

Usage:

my $decimal = $coordinateparser->parse('E25'42'60');

decimal_delimiter($decimal_delimiter)

Returns the decimal delimiter. If an argument is given then it's sets the delimiter to the given value.

Usage:

$coordinateparser->decimal_delimiter; # Returns the delimiter
$coordinateparser->decimal_delimiter(','); # Sets and returns , as the delimiter
$coordinateparser->decimal_delimiter; # Returns now , as the delimiter

REQUIRES

Geo::Coordinates::DecimalDegrees

SEE ALSO

Geo::Coordinates::DecimalDegrees

AUTHOR

Carl Räihä, <carl.raiha at gmail.com>

COPYRIGHT AND LICENSE

Copyright 2005 by Carl Räihä / Frantic Media

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