File Coverage

blib/lib/BlankOnDev/DateTime/lang.pm
Criterion Covered Total %
statement 12 21 57.1
branch n/a
condition n/a
subroutine 4 9 44.4
pod 0 4 0.0
total 16 34 47.0


line stmt bran cond sub pod time code
1             package BlankOnDev::DateTime::lang;
2 1     1   9 use strict;
  1         2  
  1         31  
3 1     1   6 use warnings;
  1         2  
  1         26  
4              
5             # Import Module :
6 1     1   4 use BlankOnDev;
  1         2  
  1         35  
7              
8             # Version :
9             our $VERSION = '0.1005';;
10 1     1   5 use vars '$AUTOLOAD';
  1         2  
  1         289  
11              
12             # AutoLoad :
13             sub AUTOLOAD {
14 0     0     return $_[0]->id_ID();
15             }
16              
17             # For Indonesian Language :
18             sub id_ID {
19 0     0 0   my $lang = {
20             'month' => [
21             '', 'Januari', 'Februari', 'Maret', 'April',
22             'Mei', 'Juni', 'Juli', 'Agustus',
23             'September', 'Oktober', 'November', 'Desember'
24             ],
25             'month_short' => [
26             '', 'Jan', 'Feb', 'Mar', 'Apr',
27             'Mei', 'Jun', 'Jul', 'Agu',
28             'Sep', 'Okt', 'Nov', 'Des'
29             ],
30             'day' => [
31             '',
32             'Senin', 'Selasa', 'Rabu',
33             'Kamis', 'Jum\'at', 'Sabtu', 'Minggu'
34             ],
35             'day_short' => [
36             '', 'Sen', 'Sel', 'Rab', 'Kam', 'Jum', 'Sab', 'Min'
37             ]
38             };
39 0           return $lang;
40             }
41              
42             # For mount Indonesian and day Engish Language :
43             sub id_US {
44 0     0 0   my $lang = {
45             'month' => [
46             '',
47             'Januari', 'Februari','Maret','April',
48             'Mei', 'Juni', 'Juli','Agustus',
49             'September','Oktober','November','Desember'
50             ],
51             'month_short' => [
52             '',
53             'Jan','Feb','Mar','Apr',
54             'Mei','Jun','Jul','Agu',
55             'Sep','Okt','Nov','Des'
56             ],
57             'day' => [
58             '',
59             'Monday','Tuesday','Wednesday',
60             'Thursday','Friday','Saturday','Sunday'
61             ],
62             'day_short' => [
63             '',
64             'Mon','Tue','Wed',
65             'Thu','Fri','Sat','Mon'
66             ]
67             };
68 0           return $lang;
69             }
70              
71             # For English US Language :
72             sub en_US {
73 0     0 0   my $lang = {
74             'month' => [
75             '',
76             'January','February','March','April',
77             'May', 'June', 'Juy', 'August',
78             'September', 'October', 'November', 'December'
79             ],
80             'month_short' => [
81             '',
82             'Jan', 'Feb', 'Mar', 'Apr',
83             'May', 'Jun', 'Jul', 'Aug',
84             'Sep', 'Oct', 'Nov', 'Dec'
85             ],
86             'day' => [
87             '',
88             'Monday', 'Tuesday', 'Wednesday',
89             'Thursday', 'Friday', 'Saturday', 'Sunday'
90             ],
91             'day_short' => [
92             '',
93             'Mon', 'Tue', 'Wed',
94             'Thu', 'Fri', 'Sat', 'Mon'
95             ]
96             };
97 0           return $lang;
98             }
99              
100             # For Germany Language :
101             sub de_DE {
102 0     0 0   my $lang = {
103             'month' => [
104             '',
105             'Januar','Februa','Márz','April',
106             'Mai', 'Juni', 'Juli', 'August',
107             'September', 'Oktober', 'November', 'Dezember'
108             ],
109             'month_short' => [
110             '',
111             'Jan', 'Feb', 'Mär', 'Apr',
112             'Mai', 'Jun', 'Jul', 'Aug',
113             'Sep', 'Okt', 'Nov', 'Dez'
114             ],
115             'day' => [
116             '',
117             'Montag', 'Dienstag', 'Mittwoch',
118             'Donnerstag', 'Freitag', 'Samstag', 'Sonntag'
119             ],
120             'day_short' => [
121             '',
122             'Mon', 'Die', 'Mit',
123             'Don', 'Fre', 'Sam', 'Son'
124             ]
125             };
126 0           return $lang;
127             }
128              
129             1;
130             __END__
131             #