diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm | 92 |
1 files changed, 0 insertions, 92 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm deleted file mode 100644 index cf3d127486e..00000000000 --- a/Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm +++ /dev/null @@ -1,92 +0,0 @@ -## -## Bulgarian tables contributed by Krasimir Berov -## - -package Date::Language::Bulgarian; -use strict; -use warnings; -use utf8; -use base qw(Date::Language); -our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW, $VERSION); -$VERSION = "1.01"; - -@DoW = qw(неделя понеделник вторник сряда четвъртък петък събота); -@MoY = qw(януари февруари март април май юни - юли август септември октомври ноември декември); -@DoWs = qw(нд пн вт ср чт пт сб); -@MoYs = map { substr($_,0,3) } @MoY; -@AMPM = qw(AM PM); - -@Dsuf = (qw(ти ви ри ти ти ти ти ми ми ти)) x 3; -@Dsuf[11,12,13] = qw(ти ти ти); -@Dsuf[30,31] = qw(ти ви); - -@MoY{@MoY} = (0 .. scalar(@MoY)); -@MoY{@MoYs} = (0 .. scalar(@MoYs)); -@DoW{@DoW} = (0 .. scalar(@DoW)); -@DoW{@DoWs} = (0 .. scalar(@DoWs)); - -# Formatting routines - -sub format_a { $DoWs[$_[0]->[6]] } -sub format_A { $DoW[$_[0]->[6]] } -sub format_b { $MoYs[$_[0]->[4]] } -sub format_B { $MoY[$_[0]->[4]] } -sub format_h { $MoYs[$_[0]->[4]] } -sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } -sub format_o { ($_[0]->[3]<10?' ':'').$_[0]->[3].$Dsuf[$_[0]->[3]] } - -1; - -__END__ - -=encoding utf8 - -=head1 NAME - -Date::Language::Bulgarian - localization for Date::Format - -=head1 DESCRIPTION - -This is Bulgarian localization for Date::Format. -It is important to note that this module source code is in utf8. -All strings which it outputs are in utf8, so it is safe to use it -currently only with English. You are left alone to try and convert -the output when using different Date::Language::* in the same application. -This should be addresed in the future. - -=head1 SYNOPSIS - - use strict; - use warnings; - use Date::Language; - local $\=$/; - my $template ='%a %b %e %T %Y (%Y-%m-%d %H:%M:%S)'; - my $time=1290883821; #or just use time(); - my @lt = localtime($time); - my %languages = qw(English GMT German EEST Bulgarian EET); - binmode(select,':utf8'); - - foreach my $l(keys %languages){ - my $lang = Date::Language->new($l); - my $zone = $languages{$l}; - print $/. "$l $zone"; - print $lang->time2str($template, $time); - print $lang->time2str($template, $time, $zone); - - print $lang->strftime($template, \@lt); - } - -=head1 AUTHOR - -Krasimir Berov (berov@cpan.org) - -=head1 COPYRIGHT - -Copyright (c) 2010 Krasimir Berov. This program is free -software; you can redistribute it and/or modify it under the same terms -as Perl itself. - -=cut - - |