package Bibulus::ja; use strict; use warnings; use Carp; sub populate { my $self = shift; $self->{LANGTEXT}{ja}{startquote} ||= '『'; $self->{LANGTEXT}{ja}{endquote} ||= '』'; $self->{LANGTEXT}{ja}{comma} ||= '、'; $self->{LANGTEXT}{ja}{fullstop} ||= '。'; $self->{LANGTEXT}{ja}{and} ||= '・'; $self->{LANGTEXT}{ja}{etal} ||= 'kaj al.'; $self->{LANGTEXT}{ja}{editor} ||= '編集者'; $self->{LANGTEXT}{ja}{edby} ||= '編集した'; $self->{LANGTEXT}{ja}{edition} ||= '版'; # -han/-ban $self->{LANGTEXT}{ja}{volume} ||= '冊'; # -satsu $self->{LANGTEXT}{ja}{of} ||= 'の'; $self->{LANGTEXT}{ja}{number} ||= '番'; # -ban $self->{LANGTEXT}{ja}{in} ||= 'で'; $self->{LANGTEXT}{ja}{page} ||= 'ページ'; $self->{LANGTEXT}{ja}{eidpp} ||= 'ページ'; $self->{LANGTEXT}{ja}{chapter} ||= '章'; # -shou $self->{LANGTEXT}{ja}{techrep}{full} ||= '技術的な報告'; $self->{LANGTEXT}{ja}{mthesis} ||= '修士論文'; $self->{LANGTEXT}{ja}{phdthesis} ||= '博士論文'; $self->{LANGTEXT}{ja}{th} ||= '番'; # or 番? $self->{LANGTEXT}{ja}{number}{1} ||= '1'; $self->{LANGTEXT}{ja}{number}{2} ||= '2'; $self->{LANGTEXT}{ja}{number}{3} ||= '3'; $self->{LANGTEXT}{ja}{number}{4} ||= '4'; $self->{LANGTEXT}{ja}{number}{5} ||= '5'; $self->{LANGTEXT}{ja}{number}{6} ||= '6'; $self->{LANGTEXT}{ja}{number}{7} ||= '7'; $self->{LANGTEXT}{ja}{number}{8} ||= '8'; $self->{LANGTEXT}{ja}{number}{9} ||= '9'; $self->{LANGTEXT}{ja}{number}{0} ||= '0'; $self->{LANGTEXT}{ja}{number}{1} ||= '一'; $self->{LANGTEXT}{ja}{number}{2} ||= '二'; $self->{LANGTEXT}{ja}{number}{3} ||= '三'; $self->{LANGTEXT}{ja}{number}{4} ||= '四'; $self->{LANGTEXT}{ja}{number}{5} ||= '五'; $self->{LANGTEXT}{ja}{number}{6} ||= '六'; $self->{LANGTEXT}{ja}{number}{7} ||= '七'; $self->{LANGTEXT}{ja}{number}{8} ||= '八'; $self->{LANGTEXT}{ja}{number}{9} ||= '九'; $self->{LANGTEXT}{ja}{number}{10} ||= '十'; $self->{LANGTEXT}{ja}{number}{100} ||= '百'; $self->{LANGTEXT}{ja}{year} ||= '年'; $self->{LANGTEXT}{ja}{month} ||= '月'; $self->{LANGTEXT}{ja}{day} ||= '日'; $self->{LANGINIT}{ja} = 1; } sub tradyear { my $self = shift; my $year = shift; if ($year >= 1989) { return "平成" . japnum($year - 1989 - 1) . "年"; } elsif ($year >= 1926) { return "昭和" . japnum($year - 1926 - 1) . "年"; } elsif ($year >= 1912) { return "大正" . japnum($year - 1912 - 1) . "年"; } elsif ($year >= 1868) { return "明治" . japnum($year - 1968 - 1) . "年"; } else { warn "I don't know Japanese eras before Meiji.\n"; } } 1; __END__ =head1 NAME Bibulus::Lang::ja - Bibulus support for Japanese =head2 EXPORT None. =head1 SEE ALSO F, F. The homepage is L. =head1 AUTHOR Thomas M. Widmann, L =head1 COPYRIGHT AND LICENSE Copyright 2003 by Thomas M. Widmann This module is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. =cut