Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | ## |
2 | ## Italian tables | |
3 | ## | |
4 | ||
5 | package Date::Language::Italian; | |
6 | ||
7 | use Date::Language (); | |
8 | use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); | |
9 | @ISA = qw(Date::Language); | |
10 | $VERSION = "1.01"; | |
11 | ||
12 | @MoY = qw(Gennaio Febbraio Marzo Aprile Maggio Giugno | |
13 | Luglio Agosto Settembre Ottobre Novembre Dicembre); | |
14 | @MoYs = qw(Gen Feb Mar Apr Mag Giu Lug Ago Set Ott Nov Dic); | |
15 | @DoW = qw(Domenica Lunedi Martedi Mercoledi Giovedi Venerdi Sabato); | |
16 | @DoWs = qw(Dom Lun Mar Mer Gio Ven Sab); | |
17 | ||
18 | @AMPM = @{Date::Language::English::AMPM}; | |
19 | @Dsuf = @{Date::Language::English::Dsuf}; | |
20 | ||
21 | @MoY{@MoY} = (0 .. scalar(@MoY)); | |
22 | @MoY{@MoYs} = (0 .. scalar(@MoYs)); | |
23 | @DoW{@DoW} = (0 .. scalar(@DoW)); | |
24 | @DoW{@DoWs} = (0 .. scalar(@DoWs)); | |
25 | ||
26 | # Formatting routines | |
27 | ||
28 | sub format_a { $DoWs[$_[0]->[6]] } | |
29 | sub format_A { $DoW[$_[0]->[6]] } | |
30 | sub format_b { $MoYs[$_[0]->[4]] } | |
31 | sub format_B { $MoY[$_[0]->[4]] } | |
32 | sub format_h { $MoYs[$_[0]->[4]] } | |
33 | sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } | |
34 | ||
35 | 1; |