File Coverage

blib/lib/Date/Jalali.pm

Criterion	Covered	Total	%
statement	44	45	97.7
branch	2	4	50.0
condition	4	9	44.4
subroutine	8	8	100.0
pod	0	4	0.0
total	58	70	82.8

package Date::Jalali;

use strict;
use warnings;
use Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';

my @g_days_in_month = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
my @j_days_in_month = (31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 29);
my @j_month_name = ("", "Farvardin", "Ordibehesht", "Khordad", "Tir",
                      "Mordad", "Shahrivar", "Mehr", "Aban", "Azar",
                      "Dey", "Bahman", "Esfand");

# Preloaded methods go here.


sub new {
  my $class = shift;
  my ($gy,$gm,$gd)=($_[0]-1600,$_[1]-1,$_[2]-1);
  my $self={};
  my $i=0;

  my $g_day_no = 365*$gy+int(($gy+3)/4)-int(($gy+99)/100)+int(($gy+399)/400);

   for ($i=0; $i < $gm; ++$i) {
      $g_day_no += $g_days_in_month[$i]; }
   if ($gm>1 && (($gy%4==0 && $gy%100!=0) || ($gy%400==0))) {
      #leap and after Feb
      ++$g_day_no; }
   $g_day_no += $gd;

   my $j_day_no = $g_day_no-79;

   my $j_np = int($j_day_no/12053);
   $j_day_no %= 12053;

   my $jy = 979+33*$j_np+4*int($j_day_no/1461);

   $j_day_no %= 1461;

   if ($j_day_no >= 366) {
      $jy += int(($j_day_no-1)/365);
      $j_day_no = ($j_day_no-1)%365;
   }

   for ($i = 0; $i < 11 && $j_day_no >= $j_days_in_month[$i]; ++$i) {
      $j_day_no -= $j_days_in_month[$i];
   }
   my $jm = $i+1;
   my $jd = $j_day_no+1;

   $self->{jal_day}=$jd;
   $self->{jal_month}=$jm;
   $self->{jal_year}=$jy;

   bless $self;
   return $self;
}


sub jal_day {
    my $self = shift;
    return ( $self->{jal_day} );
}

sub jal_month {
    my $self = shift;
    return ( $self->{jal_month} );
}

sub jal_year {
    my $self = shift;
    return ( $self->{jal_year} );
}


# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__