Author image Ahmed Amin Elsheshtawy احمد امين الششتاوى جودة
and 1 contributors


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


        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();


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.


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


Ahmed Amin Elsheshtawy, <> <> Website:


Copyright (C) 2006-2015 by Ahmed Amin Elsheshtawy,

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

1 POD Error

The following errors were encountered while parsing the POD:

Around line 235:

=cut found outside a pod block. Skipping to next block.