SILENT KILLER Tool

Name	Type	Size	Last Modified
Afar.pm	File	1032 bytes	February 23 2009 21:34:32.
Amharic.pm	File	1927 bytes	February 23 2009 21:34:32.
Austrian.pm	File	994 bytes	December 12 2009 12:30:06.
Brazilian.pm	File	966 bytes	February 23 2009 21:34:32.
Bulgarian.pm	File	2567 bytes	May 19 2020 17:30:43.
Chinese.pm	File	977 bytes	December 12 2009 12:30:06.
Chinese_GB.pm	File	918 bytes	February 23 2009 21:34:32.
Czech.pm	File	1411 bytes	February 23 2009 21:34:32.
Danish.pm	File	1035 bytes	December 12 2009 12:30:06.
Dutch.pm	File	1086 bytes	February 23 2009 21:34:32.
English.pm	File	973 bytes	February 23 2009 21:34:32.
Finnish.pm	File	1239 bytes	February 23 2009 21:34:32.
French.pm	File	1020 bytes	May 19 2020 17:30:43.
Gedeo.pm	File	1064 bytes	February 23 2009 21:34:32.
German.pm	File	1040 bytes	December 12 2009 12:30:06.
Greek.pm	File	2826 bytes	February 23 2009 21:34:32.
Hungarian.pm	File	2133 bytes	December 12 2009 12:30:06.
Icelandic.pm	File	1037 bytes	December 12 2009 12:30:06.
Italian.pm	File	1006 bytes	December 12 2009 12:30:06.
Norwegian.pm	File	1004 bytes	December 12 2009 12:30:06.
Occitan.pm	File	964 bytes	May 19 2020 17:30:43.
Oromo.pm	File	999 bytes	February 23 2009 21:34:32.
Romanian.pm	File	892 bytes	December 12 2009 12:30:06.
Russian.pm	File	1384 bytes	December 12 2009 12:30:06.
Russian_cp1251.pm	File	1036 bytes	December 12 2009 12:30:06.
Russian_koi8r.pm	File	1034 bytes	December 12 2009 12:30:06.
Sidama.pm	File	980 bytes	February 23 2009 21:34:32.
Somali.pm	File	1155 bytes	February 23 2009 21:34:32.
Spanish.pm	File	922 bytes	December 12 2009 12:27:24.
Swedish.pm	File	1122 bytes	December 12 2009 12:30:06.
Tigrinya.pm	File	1434 bytes	December 12 2009 12:30:06.
TigrinyaEritrean.pm	File	1904 bytes	February 23 2009 21:34:32.
TigrinyaEthiopian.pm	File	1930 bytes	February 23 2009 21:34:32.
Turkish.pm	File	2079 bytes	December 12 2009 12:30:06.

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

SILENT KILLERPanel

Files and Folders in: //usr/local/share/perl5/Date/Language/

Reading File: //usr/local/share/perl5/Date/Language//Bulgarian.pm