ACIL FM

Nama	Ukuran	Aksi
Afar.pm	1.01 MB	View DL Edit
Amharic.pm	1.88 MB	View DL Edit
Austrian.pm	994 B	View DL Edit
Brazilian.pm	966 B	View DL Edit
Bulgarian.pm	2.51 MB	View DL Edit
Chinese.pm	977 B	View DL Edit
Chinese_GB.pm	918 B	View DL Edit
Czech.pm	1.38 MB	View DL Edit
Danish.pm	1.01 MB	View DL Edit
Dutch.pm	1.06 MB	View DL Edit
English.pm	973 B	View DL Edit
Finnish.pm	1.21 MB	View DL Edit
French.pm	1020 B	View DL Edit
Gedeo.pm	1.04 MB	View DL Edit
German.pm	1.02 MB	View DL Edit
Greek.pm	2.76 MB	View DL Edit
Hungarian.pm	2.08 MB	View DL Edit
Icelandic.pm	1.01 MB	View DL Edit
Italian.pm	1006 B	View DL Edit
Norwegian.pm	1004 B	View DL Edit
Occitan.pm	964 B	View DL Edit
Oromo.pm	999 B	View DL Edit
Romanian.pm	892 B	View DL Edit
Russian.pm	1.35 MB	View DL Edit
Russian_cp1251.pm	1.01 MB	View DL Edit
Russian_koi8r.pm	1.01 MB	View DL Edit
Sidama.pm	980 B	View DL Edit
Somali.pm	1.13 MB	View DL Edit
Spanish.pm	922 B	View DL Edit
Swedish.pm	1.1 MB	View DL Edit
Tigrinya.pm	1.4 MB	View DL Edit
TigrinyaEritrean.pm	1.86 MB	View DL Edit
TigrinyaEthiopian.pm	1.88 MB	View DL Edit
Turkish.pm	2.03 MB	View DL Edit

Edit file: /usr/share/perl5/vendor_perl/Date/Language/Bulgarian.pm

##
## 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]] }

__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

Batal