File Coverage

blib/lib/DateTime/Calendar/Hijri.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package DateTime::Calendar::Hijri;

use strict;

use vars qw($VERSION);

$VERSION = '0.00';

use Date::Hijri;
use Params::Validate qw(validate SCALAR OBJECT);

sub new {
    my $class = shift;
    my %p = validate( @_,
                      { year  => {type => SCALAR},
                        month => {type => SCALAR, default => 1},
                        day   => {type => SCALAR, default => 1},
                        rd_secs   => { type => SCALAR, default => 0},
                        rd_nano   => { type => SCALAR, default => 0},
                      } );

    $p{rd} = Date::Hijri::Islamic2Absolute(@p{qw(day month year)});

    return bless \%p, $class;
}

sub year { $_[0]->{year} }

sub month { $_[0]->{month} }

sub day { $_[0]->{day} }

sub datetime {
    return $_[0]->year .'-'. $_[0]->month .'-'. $_[0]->day .' AH';
}

sub from_object {
    my $class = shift;
    my %p = validate( @_,
                      { object => { type => OBJECT,
                                    can => 'utc_rd_values',
                                  },
                      } );

    my %parts;
    @parts{qw(rd rd_secs rd_nano)} = $p{object}->utc_rd_values;
    @parts{qw(day month year)} = Date::Hijri::Absolute2Islamic($parts{rd});
    return bless \%parts, $class;
}

sub utc_rd_values {
    my ($self) = @_;
    return $self->{rd}, $self->{rd_secs}, $self->{rd_nano};
}

1;
__END__