NAME

Religion::Islam::Qibla - Calculates the Qibla Direction, Great Circle Distance, and Great Circle Direction

SYNOPSIS

use Religion::Islam::Qibla;
#create new object with default options, Destination point is Kabah Lat=21 Deg N, Long 40 Deg E
my $qibla = Religion::Islam::Qibla->new();

# OR
#create new object and set your destination point Latitude and/or  Longitude
my $qibla = Religion::Islam::Qibla->new(DestLat => 21, DestLong => 40);

# Calculate the Qibla direction From North Clocklwise for Cairo : Lat=30.1, Long=31.3
my $Latitude = 30.1;
my $Longitude = 31.3;
my $QiblaDirection = $qibla->QiblaDirection($Latitude, $Longitude);
print "The Qibla Direction for $Latitude and $Longitude From North Clocklwise is: " . $QiblaDirection ."\n";

# Calculates the distance between any two points on the Earth
my $OrigLat = 31; my $DestLat = 21; my $OrigLong = 31.3; $DestLong = 40;
my $distance = $qibla->GreatCircleDistance($OrigLat , $DestLat, $OrigLong, $DestLong);
print "The distance is: $distance \n";

# Calculates the direction from one point to another on the Earth. Great Circle Bearing
my $direction = $qibla->GreatCircleDirection($OrigLat, $DestLat, $OrigLong, $DestLong, $Distance);
print "The direction is: $direction \n";

# You can get and set the distination point Latitude and Longitude
# $qibla->DestLat(21);		#	set distination Latitude
# $qibla->DestLong(40);	# set distincatin Longitude
print "Destination Latitude:" . $qibla->DestLat();
print "Destination Longitude:" . $qibla->DestLong();

DESCRIPTION

This module calculates the Qibla direction where muslim paryers directs their face. It also calculates and uses the Great Circle Distance and Great Circle Direction.

SEE ALSO

Religion::Islam::PrayerTimes Religion::Islam::Quran

AUTHOR

Ahmed Amin Elsheshtawy, <support@islamware.com<gt> Website: http://www.islamware.com

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Ahmed Amin Elsheshtawy support@islamware.com, http://www.islamware.com

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