Religion::Islam::PrayerTimes - Calculates Muslim Prayers Times and Sunrise

	use Religion::Islam::PrayerTimes;

	#create new object with default options
	my $prayer = Religion::Islam::PrayerTimes->new();

	#Juristic Methods:
	# 1 = Standard (Imams Shafii, Hanbali, and Maliki),
	#2  = Hanafi
	#The difference is in the Aser time only
	$prayer->JuristicMethod(1);

	# Calculation Method 
	#1:	Umm Al-Qura Committee
	#2:	Muslim World League
	#3:	Egyptian General Authority of Survey
	#4:	University Of Islamic Sciences, Karachi
	#5:	ISNA, Islamic Society of North America
	$prayer->CalculationMethod(3);

	# Q. What is daylight saving? Ans. Many countries try to adopt their work time by subtracting
	# from their clocks one hour in the Fall and Winter seasons. 
	$prayer->DaylightSaving(1);
	#print "DaylightSaving: ". $prayer->DaylightSaving() ."\n";

	# set the location to clculate prayer times for.
	# for Cairo, Egypt:
	# http://heavens-above.com/countries.asp
	$prayer->PrayerLocation(
									Latitude => 30.050,
									Longitude => 31.250,
									Altitude => 24,
									TimeZone => 2
								);

	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$mon++; 	$year += 1900;

	#Adjust the Gregorian Dates by making sure that the month lengths  
	#are correct if not so take the extra days to next month or year.
	my ($yg0, $mg0, $dg0) = $prayer->GDateAjust($year, $mon, $mday);
	# Now calculate the prayer times. Times returns in hours decimal format

	#%result = $prayer->PrayerTimes($year, $mon, $mday);
	%result = $prayer->PrayerTimes($yg0, $mg0, $dg0);

	#print "Fajr: " . $result{Fajr} . "\n";
	#print "Sunrise: " . $result{Sunrise} . "\n";
	#print "Zohar: " . $result{Zohar} . "\n";
	#print "Aser: " . $result{Aser} . "\n";
	#print "Maghrib: " . $result{Maghrib} . "\n";
	#print "Isha: " . $result{Isha} . "\n";
	#print "Fajir Rabita: " . $result{FajirRabita} . "\n";	 #Fajer using exact Rabita method for places >48
	#print "Isha Rabita: " . $result{IshaRabita} . "\n";	#Ash using exact Rabita method for places >48
	#print "Eid Prayer Time: " . $result{Eid} . "\n";	 #Eid Prayer Time
	#print "\n";

	# set time mode for 12 or 24 hour for FormatTime function.
	$prayer->TimeMode(1);
	#print time formated
	#print "TimeMode: "  . $prayer->TimeMode() ."\n";

	my ($h, $m, $ap);

	($h, $m, $ap) = $prayer->FormatTime($result{Fajr});
	print "Fajr: $h:$m $ap\n";

	($h, $m, $ap) = $prayer->FormatTime($result{Sunrise});
	print "Sunrise: $h:$m $ap\n";

	($h, $m, $ap) = $prayer->FormatTime($result{Zohar});
	print "Zohar: $h:$m $ap\n";

	($h, $m, $ap) = $prayer->FormatTime($result{Aser});
	print "Aser: $h:$m $ap\n";

	($h, $m, $ap) = $prayer->FormatTime($result{Maghrib});
	print "Maghrib: $h:$m $ap\n";

	($h, $m, $ap) = $prayer->FormatTime($result{Isha});
	print "Isha: $h:$m $ap\n";

	#($h, $m, $ap) = $prayer->FormatTime($result{FajirRabita});
	#print "Fajir Rabita: $h:$m $ap\n";	 #Fajer using exact Rabita method for places >48

	#($h, $m, $ap) = $prayer->FormatTime($result{IshaRabita});
	#print "Isha Rabita: $h:$m $ap\n";	#Ash using exact Rabita method for places >48

	#($h, $m, $ap) = $prayer->FormatTime($result{Eid});
	#print "Eid Prayer Time: $h:$m $ap\n";	 #Eid Prayer Time

This module calculates Muslim prayers times and sunrise for any location on the earth.

Religion::Islam::Qibla Religion::Islam::Quran

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

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.