File Coverage

blib/lib/Date/Japanese/Era/Table.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Date::Japanese::Era::Table;
2              
3 1     1   4 use strict;
  1         1  
  1         29  
4 1     1   5 use vars qw($VERSION);
  1         1  
  1         39  
5             $VERSION = '0.04';
6              
7 1     1   3 use vars qw(@ISA @EXPORT %ERA_TABLE %ERA_JA2ASCII %ERA_ASCII2JA);
  1         2  
  1         197  
8             require Exporter;
9             @ISA = qw(Exporter);
10             @EXPORT = qw(%ERA_TABLE %ERA_JA2ASCII %ERA_ASCII2JA);
11              
12             %ERA_TABLE = (
13             # era => [ $ascii, @begin_ymd, @end_ymd ]
14             "\x{660E}\x{6CBB}" => [ 'meiji', 1868, 9, 8, 1912, 7, 29 ],
15             "\x{5927}\x{6B63}" => [ 'taishou', 1912, 7, 30, 1926, 12, 24 ],
16             "\x{662D}\x{548C}" => [ 'shouwa', 1926, 12, 25, 1989, 1, 7 ],
17             "\x{5E73}\x{6210}" => [ 'heisei', 1989, 1, 8, 2999, 12, 31 ], # XXX
18             );
19              
20             %ERA_JA2ASCII = map { $_ => $ERA_TABLE{$_}->[0] } keys %ERA_TABLE;
21             %ERA_ASCII2JA = reverse %ERA_JA2ASCII;
22              
23             1;
24             __END__