Codebase list libtimedate-perl / edde425
Merge tag 'upstream/2.3000' Upstream version 2.3000 Florian Schlichting 10 years ago
10 changed file(s) with 243 addition(s) and 49 deletion(s). Raw diff Collapse all Expand all
+3
-0
ChangeLog less more
0 2.30 -- Mon Feb 18 13:31:03 CST 2013
1 * Syncing distribution version number with Date::Parse, not functional changes
2
03 1.20 -- Sat Dec 12 06:38:14 CST 2009
14
25 * Typo => s/timezome/timezone/ [yanick]
+3
-1
MANIFEST less more
44 lib/Date/Language/Amharic.pm
55 lib/Date/Language/Austrian.pm
66 lib/Date/Language/Brazilian.pm
7 lib/Date/Language/Bulgarian.pm
78 lib/Date/Language/Chinese.pm
89 lib/Date/Language/Chinese_GB.pm
910 lib/Date/Language/Czech.pm
4243 t/format.t
4344 t/getdate.t
4445 t/lang.t
45 META.yml Module meta-data (added by MakeMaker)
46 META.yml Module YAML meta-data (added by MakeMaker)
47 META.json Module JSON meta-data (added by MakeMaker)
4648 SIGNATURE Public-key signature (added by MakeMaker)
+44
-0
META.json less more
0 {
1 "abstract" : "unknown",
2 "author" : [
3 "Graham Barr <gbarr@pobox.com>"
4 ],
5 "dynamic_config" : 1,
6 "generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921",
7 "license" : [
8 "perl_5"
9 ],
10 "meta-spec" : {
11 "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
12 "version" : "2"
13 },
14 "name" : "TimeDate",
15 "no_index" : {
16 "directory" : [
17 "t",
18 "inc"
19 ]
20 },
21 "prereqs" : {
22 "build" : {
23 "requires" : {
24 "ExtUtils::MakeMaker" : "0"
25 }
26 },
27 "configure" : {
28 "requires" : {
29 "ExtUtils::MakeMaker" : "0"
30 }
31 },
32 "runtime" : {
33 "requires" : {}
34 }
35 },
36 "release_status" : "stable",
37 "resources" : {
38 "repository" : {
39 "url" : "http://github.com/gbarr/perl-TimeDate"
40 }
41 },
42 "version" : "2.30"
43 }
+20
-18
META.yml less more
0 --- #YAML:1.0
1 name: TimeDate
2 version: 1.20
3 abstract: ~
0 ---
1 abstract: unknown
42 author:
5 - Graham Barr <gbarr@pobox.com>
6 license: perl
7 distribution_type: module
3 - 'Graham Barr <gbarr@pobox.com>'
4 build_requires:
5 ExtUtils::MakeMaker: 0
86 configure_requires:
9 ExtUtils::MakeMaker: 0
10 requires: {}
7 ExtUtils::MakeMaker: 0
8 dynamic_config: 1
9 generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921'
10 license: perl
11 meta-spec:
12 url: http://module-build.sourceforge.net/META-spec-v1.4.html
13 version: 1.4
14 name: TimeDate
15 no_index:
16 directory:
17 - t
18 - inc
19 requires: {}
1120 resources:
12 repository: http://github.com/gbarr/perl-TimeDate
13 no_index:
14 directory:
15 - t
16 - inc
17 generated_by: ExtUtils::MakeMaker version 6.48
18 meta-spec:
19 url: http://module-build.sourceforge.net/META-spec-v1.4.html
20 version: 1.4
21 repository: http://github.com/gbarr/perl-TimeDate
22 version: 2.30
+4
-3
Makefile.PL less more
66 use ExtUtils::MakeMaker;
77
88 WriteMakefile(
9 NAME => 'TimeDate',
10 AUTHOR => 'Graham Barr <gbarr@pobox.com>',
11 VERSION => '1.20',
9 NAME => 'Date::Parse',
10 DISTNAME => 'TimeDate',
11 AUTHOR => 'Graham Barr <gbarr@pobox.com>',
12 VERSION_FROM => 'lib/Date/Parse.pm',
1213 (eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()),
1314 ( eval { ExtUtils::MakeMaker->VERSION(6.46) } ? (
1415 META_MERGE => {
+15
-13
SIGNATURE less more
00 This file contains message digests of all files listed in MANIFEST,
1 signed via the Module::Signature module, version 0.55.
1 signed via the Module::Signature module, version 0.70.
22
33 To verify the content in this distribution, first make sure you have
44 Module::Signature installed, then type:
1313 -----BEGIN PGP SIGNED MESSAGE-----
1414 Hash: SHA1
1515
16 SHA1 036da21b212a902ecb9d195565bbcd4c51bccecc ChangeLog
17 SHA1 efb2a90cd095d97ec148e6263fb921f560cfffb5 MANIFEST
18 SHA1 4efed966d43e74a6f53ef2bcdbfc4de05b92035f META.yml
19 SHA1 e111caf8b7da35935fa7004a17045cab55278445 Makefile.PL
16 SHA1 00fa067571b7bc7806dd9109f6577aa309236fd3 ChangeLog
17 SHA1 c4d9a2add4bdf790e5e25663f34352b8e0948a56 MANIFEST
18 SHA1 c58ec3281ea7c1532d67095c60348ce8f53bdc49 META.json
19 SHA1 421e12445cd12c9649b4e7f1b88724a9b237c0b0 META.yml
20 SHA1 d429709aeaefa05cbffa6958efb4ca3cd71a3121 Makefile.PL
2021 SHA1 80cff3b1f65e7df95eaa1a992b688c2c5e1d2b6e README
2122 SHA1 5ca10e18e888daf0883de553219f42ca2422763f lib/Date/Format.pm
22 SHA1 08342e72298e839f21236dff7555f2505f928d32 lib/Date/Language.pm
23 SHA1 395b9d58324f92d4ec56d631fcc2f08d9d8c289b lib/Date/Language.pm
2324 SHA1 50703aeade60a04398517416d30a2d8918c95578 lib/Date/Language/Afar.pm
2425 SHA1 f9450ca0047510a4102c32cc4e20a435cdd85b31 lib/Date/Language/Amharic.pm
2526 SHA1 f00534703736026830f729445d0d6f582481a05e lib/Date/Language/Austrian.pm
2627 SHA1 c5af5f819bbd3eff3b404e62f1a3735d7e4a038b lib/Date/Language/Brazilian.pm
28 SHA1 73b6db5c2f56905658cfa42ed01ee436fc5abc82 lib/Date/Language/Bulgarian.pm
2729 SHA1 e89738e9f3611a6de79cef7e791c20a05ac2a057 lib/Date/Language/Chinese.pm
2830 SHA1 d8765df8f8368d6b467a87b1f32397d50253747a lib/Date/Language/Chinese_GB.pm
2931 SHA1 f5061baf9b980aa0e8feefab059214775bb8182e lib/Date/Language/Czech.pm
30 SHA1 726c12ddd66f70ddcfd5bbdbc094777255eb2b9b lib/Date/Language/Danish.pm
32 SHA1 0f343e466e38735808d78f9871ca7df7b45ea871 lib/Date/Language/Danish.pm
3133 SHA1 8566be869607c2b2024821def260de5a828f005f lib/Date/Language/Dutch.pm
3234 SHA1 ab20e0b3487b85a54a3d6321b50d01d43fe78427 lib/Date/Language/English.pm
3335 SHA1 9b057eea719ed24f643f4d284cf1fa6ae594e7dc lib/Date/Language/Finnish.pm
5658 SHA1 394c7d372c25107ba5151ceca44c0599188907c7 lib/Time/Zone.pm
5759 SHA1 ee65cf5b634d907c4cc2d414e49c06175461e6ac t/cpanrt.t
5860 SHA1 7b16580497a96a4bc551b87b8b97ec89331e81f8 t/date.t
59 SHA1 bf6f4a7c599485ab11779c99fc821378e547d26d t/format.t
61 SHA1 54016044b60514ce4528d1c813c344714595da59 t/format.t
6062 SHA1 acef4dd152cd391a3e7a7945c8405a50d965f335 t/getdate.t
61 SHA1 501dcb487e33f6b2d4577ef2e6e5f67f038d3c04 t/lang.t
63 SHA1 7d033481dab637f54b0c168e64ad1406731a1af6 t/lang.t
6264 -----BEGIN PGP SIGNATURE-----
63 Version: GnuPG v1.4.10 (Darwin)
65 Version: GnuPG v1.4.11 (Darwin)
6466
65 iEYEARECAAYFAksjjt4ACgkQR0BL4gbYw3RCKgCePxf2QrH/3uvOofKewESV0zto
66 t+sAnA5dGEi945ziAfAkLyFUhIMWnm7U
67 =GqfE
67 iEYEARECAAYFAlEigmEACgkQR0BL4gbYw3SJOwCgjnXIVH+iDOco6297z4ao7ryX
68 DgQAnRpKYNCQBsjsSO4YX6aqOp9ywhMh
69 =3xgB
6870 -----END PGP SIGNATURE-----
+92
-0
lib/Date/Language/Bulgarian.pm less more
0 ##
1 ## Bulgarian tables contributed by Krasimir Berov
2 ##
3
4 package Date::Language::Bulgarian;
5 use strict;
6 use warnings;
7 use utf8;
8 use base qw(Date::Language);
9 our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW, $VERSION);
10 $VERSION = "1.01";
11
12 @DoW = qw(неделя понеделник вторник сряда четвъртък петък събота);
13 @MoY = qw(януари февруари март април май юни
14 юли август септември октомври ноември декември);
15 @DoWs = qw(нд пн вт ср чт пт сб);
16 @MoYs = map { substr($_,0,3) } @MoY;
17 @AMPM = qw(AM PM);
18
19 @Dsuf = (qw(ти ви ри ти ти ти ти ми ми ти)) x 3;
20 @Dsuf[11,12,13] = qw(ти ти ти);
21 @Dsuf[30,31] = qw(ти ви);
22
23 @MoY{@MoY} = (0 .. scalar(@MoY));
24 @MoY{@MoYs} = (0 .. scalar(@MoYs));
25 @DoW{@DoW} = (0 .. scalar(@DoW));
26 @DoW{@DoWs} = (0 .. scalar(@DoWs));
27
28 # Formatting routines
29
30 sub format_a { $DoWs[$_[0]->[6]] }
31 sub format_A { $DoW[$_[0]->[6]] }
32 sub format_b { $MoYs[$_[0]->[4]] }
33 sub format_B { $MoY[$_[0]->[4]] }
34 sub format_h { $MoYs[$_[0]->[4]] }
35 sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
36 sub format_o { ($_[0]->[3]<10?' ':'').$_[0]->[3].$Dsuf[$_[0]->[3]] }
37
38 1;
39
40 __END__
41
42 =encoding utf8
43
44 =head1 NAME
45
46 Date::Language::Bulgarian - localization for Date::Format
47
48 =head1 DESCRIPTION
49
50 This is Bulgarian localization for Date::Format.
51 It is important to note that this module source code is in utf8.
52 All strings which it outputs are in utf8, so it is safe to use it
53 currently only with English. You are left alone to try and convert
54 the output when using different Date::Language::* in the same application.
55 This should be addresed in the future.
56
57 =head1 SYNOPSIS
58
59 use strict;
60 use warnings;
61 use Date::Language;
62 local $\=$/;
63 my $template ='%a %b %e %T %Y (%Y-%m-%d %H:%M:%S)';
64 my $time=1290883821; #or just use time();
65 my @lt = localtime($time);
66 my %languages = qw(English GMT German EEST Bulgarian EET);
67 binmode(select,':utf8');
68
69 foreach my $l(keys %languages){
70 my $lang = Date::Language->new($l);
71 my $zone = $languages{$l};
72 print $/. "$l $zone";
73 print $lang->time2str($template, $time);
74 print $lang->time2str($template, $time, $zone);
75
76 print $lang->strftime($template, \@lt);
77 }
78
79 =head1 AUTHOR
80
81 Krasimir Berov (berov@cpan.org)
82
83 =head1 COPYRIGHT
84
85 Copyright (c) 2010 Krasimir Berov. This program is free
86 software; you can redistribute it and/or modify it under the same terms
87 as Perl itself.
88
89 =cut
90
91
+1
-1
lib/Date/Language.pm less more
109109 Danish Norwegian TigrinyaEritrean
110110 Dutch Oromo TigrinyaEthiopian
111111 English Romanian Turkish
112 Finnish Russian
112 Finnish Russian Bulgarian
113113
114114 =head1 METHODS
115115
+60
-12
t/format.t less more
0
0 use Test::More tests => 202;
11 use Date::Format qw(ctime time2str);
22 use Date::Language;
3
4 print "1..152\n";
5
6 my $i = 1;
7
3 use utf8;
4 my ($pkg, $t,$language);
85 $pkg = 'Date::Format::Generic';
9
106 while(<DATA>) {
117 chomp;
128 if (/^(\d+)/) {
1410 next;
1511 }
1612 elsif (/^(\w+)/) {
17 $pkg = Date::Language->new($1);
13 $language = $1;
14 $pkg = Date::Language->new($language);
1815 next;
1916 }
2017
2118 my($fmt,$res) = split(/\t+/,$_);
2219 my $str = $pkg->time2str($fmt,$t,'GMT');
23 print "# '$fmt'$res'$str'\nnot " unless $str eq $res;
24 print "ok ",$i++,"\n";
20 is($str, $res,"$fmt");
2521 }
2622
2723 __DATA__
179175 %Oq III
180176 %OY MCMXCIX
181177 %Oy XCIX
182 316051200 # Mon Jan 7 00:00:00 1980 GMT
183 %G 0
178 316648800 # Wed Jan 14 00:00:00 1980
179 %G 1 #0 is interpreted as empty string
180 Bulgarian
181 1283926923 # ср сеп 8 09:22:03 EET 2010 /Tue Sep 06:22:03 GMT 2010
182 %y 10
183 %Y 2010
184 %% %
185 %a ср
186 %A сряда
187 %b сеп
188 %B септември
189 %c 09/08/10 06:22:03
190 %C ср сеп 8 06:22:03 GMT 2010
191 %d 08
192 %e 8
193 %D 09/08/10
194 %G 1600
195 %h сеп
196 %H 06
197 %I 06
198 %j 251
199 %k 6
200 %l 6
201 %L 9
202 %m 09
203 %M 22
204 %o 8ми
205 %p AM
206 %q 3
207 %r 06:22:03 AM
208 %R 06:22
209 %s 1283926923
210 %S 03
211 %T 06:22:03
212 %U 36
213 %w 3
214 %W 36
215 %x 09/08/10
216 %X 06:22:03
217 %Z GMT
218 %z +0000
219 %z +0000
220 %Od VIII
221 %Oe VIII
222 %OH VI
223 %OI VI
224 %Oj CCLI
225 %Ok VI
226 %Ol VI
227 %Om IX
228 %OM XXII
229 %Oq III
230 %OY MMX
231 %Oy X
+1
-1
t/lang.t less more
55 my $time = time;
66 my $v;
77
8 my @lang = qw(English German Italian);
8 my @lang = qw(English German Italian Bulgarian);
99
1010 print "1..", scalar(@lang),"\n";
1111