File Coverage

blib/lib/Geo/Query.pm

Criterion	Covered	Total	%
statement	15	55	27.2
branch	0	8	0.0
condition	0	10	0.0
subroutine	5	9	55.5
pod	1	4	25.0
total	21	86	24.4

package Geo::Query;

use 5.008003;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Geo::Query ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw() ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();

our $VERSION = '0.04';

#####  FORWARD
sub Debug($);

#####  GLOBAL
my $package = __PACKAGE__;

sub new {
	my $type = shift;
	my %params = @_;
	my $self = {};

	$self->{'debug' } = $params{'debug'} || 0; # 0, 1, 2

	Debug "$package V$VERSION" if $self->{'debug'};

	bless $self, $type;
}

sub distance() {
	my $self = shift;
	my %args = @_;
	$args{'lat1'} ||= 0;
	$args{'lat2'} ||= 0;
	$args{'lng1'} ||= 0;
	$args{'lng2'} ||= 0;

	use Math::Trig;

	my %hash = ();

	my $R = 6371; # -- km
	my $dLat = deg2rad(abs($args{'lat2'} - $args{'lat1'}));
	my $dLon = deg2rad(abs($args{'lng2'} - $args{'lng1'}));

	my $lat1 = deg2rad($args{'lat1'});
	my $lat2 = deg2rad($args{'lat2'});

	my $a = sin($dLat / 2) * sin($dLat / 2) + cos($lat1) * cos($lat2) * sin($dLon / 2) * sin($dLon / 2);

	my $c = 2 * atan2(sqrt(abs($a)), sqrt(1 - $a));

	my $d = $R * $c;

	$hash{'d'} = $c; # -- multiply with your own radius
	$hash{'km'} = sprintf('%.2f', $d);

	\%hash;
}

sub info() {
	my $self = shift;
	my %args = @_;

	my %info = ();
	   $info{'version'} = $VERSION;

	use LWP::Simple;
	my $module_list = get 'http://meta.pg'.
				'ate.net/wiki-reto/index.php?title=Perl_modules_geo-query&printable=yes';

	my @lines = split /\n/, $module_list;
	my $i = 0;
	foreach (@lines) { $i++; last if /BEGIN SECTION 101/; }

	for ($i = $i + 1; $i < $#lines + 1; $i++) {
		chomp $lines[$i];
		last if $lines[$i] =~ /END SECTION 101/;
		$info{'modules'} .= $lines[$i] . "\n" if $lines[$i];
	}

	\%info;
}

sub Debug ($)  { print "[ $package ] $_[0]\n"; }

1;

__END__