NAME

Religion::Islam::Qibla - Calculates the Muslim Qiblah 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 $orig_lat = 31; my $dest_lat = 21; my $orig_long = 31.3; $dest_long = 40;
my $distance = $qibla->GreatCircleDistance($orig_lat , $dest_lat, $orig_long, $dest_long);
print "The distance is: $distance \n";

# Calculates the direction from one point to another on the Earth. Great Circle Bearing
my $direction = $qibla->GreatCircleDirection($orig_lat, $dest_lat, $orig_long, $dest_long, $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 prayers directs their face. It also calculates and uses the Great Circle Distance and Great Circle Direction.

SEE ALSO

Date::HijriDate Religion::Islam::Quran Religion::Islam::PrayTime Religion::Islam::PrayerTimes

AUTHOR

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

COPYRIGHT AND LICENSE

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

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