File Coverage

blib/lib/Date/Japanese/Era/Table/Builder.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	6	6	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	44	44	100.0

package Date::Japanese::Era::Table::Builder;

use strict;
use vars qw($VERSION);
$VERSION = '0.02';

use vars qw(@ISA @EXPORT %ERA_TABLE %ERA_JA2ASCII %ERA_ASCII2JA);
require Exporter;
@ISA    = qw(Exporter);
@EXPORT = qw(%ERA_TABLE %ERA_JA2ASCII %ERA_ASCII2JA build_table);

use Carp;

sub build_table {
    my @eras;

    while (my $era = pop) {
        @$era == 5 or croak "Argument Error: Invalid era specification found: (@$era). 5 entries expected.";

        if (@eras) {
            use Date::Simple qw/ymd/;

            my $end_date = ymd($eras[0][2], $eras[0][3], $eras[0][4]) - 1;
            my $begin_date = ymd($era->[2], $era->[3], $era->[4]);

            $begin_date <= $end_date or croak "Argument error: The era ".$era->[1]." is later than ".$eras[0][1].", but specified before it.\n";

            push @$era, $end_date->year, $end_date->month, $end_date->day;
        } else {
            push @$era, 9999, 12, 31;
        }

        unshift @eras, $era;
    }

    for my $era (@eras) {
        my $kanji = shift @$era;

        $ERA_TABLE{$kanji} = $era;
    }

    %ERA_JA2ASCII = map { $_ => $ERA_TABLE{$_}->[0] } keys %ERA_TABLE;
    %ERA_ASCII2JA = reverse %ERA_JA2ASCII;
}

1;
__END__