summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm')
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm92
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
-
-