From: Hyunjee Kim Date: Wed, 30 Jan 2019 06:50:03 +0000 (+0900) Subject: Imported Upstream version 2.30 X-Git-Tag: upstream/2.30 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=refs%2Fheads%2Fupstream;p=platform%2Fupstream%2Fperl-TimeDate.git Imported Upstream version 2.30 Change-Id: Ib6e94c21c32222375425677fd657508238622cdf Signed-off-by: Hyunjee Kim --- diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..04de9de --- /dev/null +++ b/.gitignore @@ -0,0 +1,6 @@ +Makefile +blib +pm_to_blib +*.bak +TimeDate-* +_dev diff --git a/ChangeLog b/ChangeLog index 49eca37..512471c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,6 @@ +2.30 -- Mon Feb 18 13:31:03 CST 2013 + * Syncing distribution version number with Date::Parse, not functional changes + 1.20 -- Sat Dec 12 06:38:14 CST 2009 * Typo => s/timezome/timezone/ [yanick] diff --git a/MANIFEST b/MANIFEST index 227442e..7169f9f 100644 --- a/MANIFEST +++ b/MANIFEST @@ -5,6 +5,7 @@ lib/Date/Language/Afar.pm lib/Date/Language/Amharic.pm lib/Date/Language/Austrian.pm lib/Date/Language/Brazilian.pm +lib/Date/Language/Bulgarian.pm lib/Date/Language/Chinese.pm lib/Date/Language/Chinese_GB.pm lib/Date/Language/Czech.pm @@ -43,5 +44,3 @@ t/date.t t/format.t t/getdate.t t/lang.t -META.yml Module meta-data (added by MakeMaker) -SIGNATURE Public-key signature (added by MakeMaker) diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP new file mode 100644 index 0000000..4b11c92 --- /dev/null +++ b/MANIFEST.SKIP @@ -0,0 +1,15 @@ +MANIFEST.SKIP +^\.git/ +.gitignore +blib\b +cover_db +^Makefile$ +^Makefile.old$ +\.bak$ +\.bs$ +\.[oc]$ +^arch.txt$ +^TimeDate- +^_dev +.*.swp +MYMETA.* diff --git a/META.yml b/META.yml deleted file mode 100644 index 6434fd5..0000000 --- a/META.yml +++ /dev/null @@ -1,21 +0,0 @@ ---- #YAML:1.0 -name: TimeDate -version: 1.20 -abstract: ~ -author: - - Graham Barr -license: perl -distribution_type: module -configure_requires: - ExtUtils::MakeMaker: 0 -requires: {} -resources: - repository: http://github.com/gbarr/perl-TimeDate -no_index: - directory: - - t - - inc -generated_by: ExtUtils::MakeMaker version 6.48 -meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 diff --git a/Makefile.PL b/Makefile.PL index c7c6034..7b6643a 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -7,9 +7,10 @@ use warnings; use ExtUtils::MakeMaker; WriteMakefile( - NAME => 'TimeDate', - AUTHOR => 'Graham Barr ', - VERSION => '1.20', + NAME => 'Date::Parse', + DISTNAME => 'TimeDate', + AUTHOR => 'Graham Barr ', + VERSION_FROM => 'lib/Date/Parse.pm', (eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()), ( eval { ExtUtils::MakeMaker->VERSION(6.46) } ? ( META_MERGE => { diff --git a/SIGNATURE b/SIGNATURE deleted file mode 100644 index b4879bb..0000000 --- a/SIGNATURE +++ /dev/null @@ -1,69 +0,0 @@ -This file contains message digests of all files listed in MANIFEST, -signed via the Module::Signature module, version 0.55. - -To verify the content in this distribution, first make sure you have -Module::Signature installed, then type: - - % cpansign -v - -It will check each file's integrity, as well as the signature's -validity. If "==> Signature verified OK! <==" is not displayed, -the distribution may already have been compromised, and you should -not run its Makefile.PL or Build.PL. - ------BEGIN PGP SIGNED MESSAGE----- -Hash: SHA1 - -SHA1 036da21b212a902ecb9d195565bbcd4c51bccecc ChangeLog -SHA1 efb2a90cd095d97ec148e6263fb921f560cfffb5 MANIFEST -SHA1 4efed966d43e74a6f53ef2bcdbfc4de05b92035f META.yml -SHA1 e111caf8b7da35935fa7004a17045cab55278445 Makefile.PL -SHA1 80cff3b1f65e7df95eaa1a992b688c2c5e1d2b6e README -SHA1 5ca10e18e888daf0883de553219f42ca2422763f lib/Date/Format.pm -SHA1 08342e72298e839f21236dff7555f2505f928d32 lib/Date/Language.pm -SHA1 50703aeade60a04398517416d30a2d8918c95578 lib/Date/Language/Afar.pm -SHA1 f9450ca0047510a4102c32cc4e20a435cdd85b31 lib/Date/Language/Amharic.pm -SHA1 f00534703736026830f729445d0d6f582481a05e lib/Date/Language/Austrian.pm -SHA1 c5af5f819bbd3eff3b404e62f1a3735d7e4a038b lib/Date/Language/Brazilian.pm -SHA1 e89738e9f3611a6de79cef7e791c20a05ac2a057 lib/Date/Language/Chinese.pm -SHA1 d8765df8f8368d6b467a87b1f32397d50253747a lib/Date/Language/Chinese_GB.pm -SHA1 f5061baf9b980aa0e8feefab059214775bb8182e lib/Date/Language/Czech.pm -SHA1 726c12ddd66f70ddcfd5bbdbc094777255eb2b9b lib/Date/Language/Danish.pm -SHA1 8566be869607c2b2024821def260de5a828f005f lib/Date/Language/Dutch.pm -SHA1 ab20e0b3487b85a54a3d6321b50d01d43fe78427 lib/Date/Language/English.pm -SHA1 9b057eea719ed24f643f4d284cf1fa6ae594e7dc lib/Date/Language/Finnish.pm -SHA1 105169f2848df40ac1111f0130ec1bb4b74647d8 lib/Date/Language/French.pm -SHA1 dc2f9c1cee48be3b73613ca9ed1291e9c976a37e lib/Date/Language/Gedeo.pm -SHA1 794a9b715e66fdcc428a65b2972ced4fee62b52c lib/Date/Language/German.pm -SHA1 863bb62fd08b3e61c63a2df3d65323d8e6c1b651 lib/Date/Language/Greek.pm -SHA1 8f0678fee75492f3675cf0b130fd39c7a589a552 lib/Date/Language/Hungarian.pm -SHA1 34da50806290fe731fd1e01290728fcd0b6d02a2 lib/Date/Language/Icelandic.pm -SHA1 de5069f424fed480586bc2dcff1cca1930bf98a1 lib/Date/Language/Italian.pm -SHA1 e4e81280ba513a3ab6e0bee01704913dd730c9a8 lib/Date/Language/Norwegian.pm -SHA1 13165e5b72586200a106aa2870fe92b49d94dd8c lib/Date/Language/Oromo.pm -SHA1 71eaea1d32b8fcfa23c5a815e3fa54b9f84af80c lib/Date/Language/Romanian.pm -SHA1 806f38e0789bf10f2e843c69f68bcfa50c0d78eb lib/Date/Language/Russian.pm -SHA1 292c36c93532a57b667d7deedc23cefbb9bf478c lib/Date/Language/Russian_cp1251.pm -SHA1 26efbebc7afd065da56ec09ee3b062a9ddd4a2d3 lib/Date/Language/Russian_koi8r.pm -SHA1 d1658daedcf106f01869a4371b9c3e572330f864 lib/Date/Language/Sidama.pm -SHA1 58f9ded75fc18c26eeb96ce6374e66565ad01494 lib/Date/Language/Somali.pm -SHA1 8b970f347eb0718e210d7613db5ba88b124d189e lib/Date/Language/Spanish.pm -SHA1 a52f8968a0fdf3e735d62f71b91d6b64a5f98fa3 lib/Date/Language/Swedish.pm -SHA1 5da829cf39dc01331ad58f66eced0a1f47e346b6 lib/Date/Language/Tigrinya.pm -SHA1 20fc6beb32657ca147719f713ff816bbb696da20 lib/Date/Language/TigrinyaEritrean.pm -SHA1 30f77a43a000f2ce3d22b1b633261a20289025aa lib/Date/Language/TigrinyaEthiopian.pm -SHA1 54288741c52b09ee92b0487848df74a08cdc3b9e lib/Date/Language/Turkish.pm -SHA1 b10ec48bd01b73638e4c6dce3f554e4c77267b6c lib/Date/Parse.pm -SHA1 394c7d372c25107ba5151ceca44c0599188907c7 lib/Time/Zone.pm -SHA1 ee65cf5b634d907c4cc2d414e49c06175461e6ac t/cpanrt.t -SHA1 7b16580497a96a4bc551b87b8b97ec89331e81f8 t/date.t -SHA1 bf6f4a7c599485ab11779c99fc821378e547d26d t/format.t -SHA1 acef4dd152cd391a3e7a7945c8405a50d965f335 t/getdate.t -SHA1 501dcb487e33f6b2d4577ef2e6e5f67f038d3c04 t/lang.t ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.10 (Darwin) - -iEYEARECAAYFAksjjt4ACgkQR0BL4gbYw3RCKgCePxf2QrH/3uvOofKewESV0zto -t+sAnA5dGEi945ziAfAkLyFUhIMWnm7U -=GqfE ------END PGP SIGNATURE----- diff --git a/lib/Date/Language.pm b/lib/Date/Language.pm index 229a1c0..02a05e7 100644 --- a/lib/Date/Language.pm +++ b/lib/Date/Language.pm @@ -110,7 +110,7 @@ L provides objects to parse and format dates for specific langua Danish Norwegian TigrinyaEritrean Dutch Oromo TigrinyaEthiopian English Romanian Turkish - Finnish Russian + Finnish Russian Bulgarian =head1 METHODS diff --git a/lib/Date/Language/Bulgarian.pm b/lib/Date/Language/Bulgarian.pm new file mode 100644 index 0000000..cf3d127 --- /dev/null +++ b/lib/Date/Language/Bulgarian.pm @@ -0,0 +1,92 @@ +## +## 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 + + diff --git a/t/format.t b/t/format.t index 15765c2..f6cbf58 100644 --- a/t/format.t +++ b/t/format.t @@ -1,13 +1,9 @@ - +use Test::More tests => 202; use Date::Format qw(ctime time2str); use Date::Language; - -print "1..152\n"; - -my $i = 1; - +use utf8; +my ($pkg, $t,$language); $pkg = 'Date::Format::Generic'; - while() { chomp; if (/^(\d+)/) { @@ -15,14 +11,14 @@ while() { next; } elsif (/^(\w+)/) { - $pkg = Date::Language->new($1); + $language = $1; + $pkg = Date::Language->new($language); next; } my($fmt,$res) = split(/\t+/,$_); my $str = $pkg->time2str($fmt,$t,'GMT'); - print "# '$fmt'$res'$str'\nnot " unless $str eq $res; - print "ok ",$i++,"\n"; + is($str, $res,"$fmt"); } __DATA__ @@ -180,5 +176,57 @@ Italian %Oq III %OY MCMXCIX %Oy XCIX -316051200 # Mon Jan 7 00:00:00 1980 GMT -%G 0 +316648800 # Wed Jan 14 00:00:00 1980 +%G 1 #0 is interpreted as empty string +Bulgarian +1283926923 # ср сеп 8 09:22:03 EET 2010 /Tue Sep 06:22:03 GMT 2010 +%y 10 +%Y 2010 +%% % +%a ср +%A сряда +%b сеп +%B септември +%c 09/08/10 06:22:03 +%C ср сеп 8 06:22:03 GMT 2010 +%d 08 +%e 8 +%D 09/08/10 +%G 1600 +%h сеп +%H 06 +%I 06 +%j 251 +%k 6 +%l 6 +%L 9 +%m 09 +%M 22 +%o 8ми +%p AM +%q 3 +%r 06:22:03 AM +%R 06:22 +%s 1283926923 +%S 03 +%T 06:22:03 +%U 36 +%w 3 +%W 36 +%x 09/08/10 +%X 06:22:03 +%Z GMT +%z +0000 +%z +0000 +%Od VIII +%Oe VIII +%OH VI +%OI VI +%Oj CCLI +%Ok VI +%Ol VI +%Om IX +%OM XXII +%Oq III +%OY MMX +%Oy X diff --git a/t/lang.t b/t/lang.t index 02c96f4..75bac66 100644 --- a/t/lang.t +++ b/t/lang.t @@ -6,7 +6,7 @@ use Date::Language; my $time = time; my $v; -my @lang = qw(English German Italian); +my @lang = qw(English German Italian Bulgarian); print "1..", scalar(@lang),"\n";