File Coverage

blib/lib/Date/Vruceleto.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	3	4	75.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	0	2	0.0
total	31	34	91.1

package Date::Vruceleto;

#use 5.010001;
use strict;
use warnings;
use utf8;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT_OK = qw(vruceleto solarcycle vrutseleto);

our @EXPORT = qw();

our $VERSION = '0.01';

my %map = (
	1 => 'А',
	2 => 'В',
	3 => 'Г',
	4 => 'Д',
	5 => 'Е',
	6 => 'Ѕ', # Cyrillic capital letter DZE
	7 => 'З'
);

sub solarcycle {
    my ($year, $is_AD) = @_;
	$year = $year-8 if $is_AD;
	my $res = $year % 28 || 28;
	return $res;
}

sub vruceleto {
	my $q = solarcycle(@_);
	use integer;
	my $res = $q/4 + $q%7;
	$res = $res-7 if $res > 7;
	return $map{$res};
}

*vrutseleto = \&vruceleto;

1;
__END__