File Coverage

blib/lib/Date/Indiction.pm

Criterion	Covered	Total	%
statement	17	18	94.4
branch	8	10	80.0
condition	6	9	66.6
subroutine	7	7	100.0
pod	0	4	0.0
total	38	48	79.1

package Date::Indiction;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(indiction);

our $VERSION = '0.01';
our $SUB;
our $DEFAULT_SUB = 'byzantine';

sub import {
	$SUB = $_[1] ? \&{lc $_[1]} : \&$DEFAULT_SUB;
	goto &Exporter::import;
}

# Returns the indiction of the year using either &byzantine or
# &christian
sub indiction {
	return $SUB->(@_);
}

sub set_aera {
	$SUB = \&{$_[0]};
}

sub byzantine {
	my ($year, $month) = @_;
	$year +=1 if $month && ($month >= 9 || $month < 3);
	$year % 15 || 15;
}

sub christian {
	my ($year, $month) = @_;
	$year +=1 if $month && $month >= 9;
	($year+3) % 15 || 15;
}

*AM = \&byzantine;
*AD = \&christian;

1;
__END__