use
vars
qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION)
;
@ISA
=
qw(Date::Language)
;
$VERSION
=
"1.01"
;
@MoY
=
qw(Janúar Febrúar Mars Apríl Maí Júni
Júli Ágúst September Október Nóvember Desember)
;
@MoYs
=
qw(Jan Feb Mar Apr Maí Jún Júl Ágú Sep Okt Nóv Des)
;
@DoW
=
qw(Sunnudagur Mánudagur Þriðjudagur Miðvikudagur Fimmtudagur Föstudagur Laugardagur Sunnudagur)
;
@DoWs
=
qw(Sun Mán Þri Mið Fim Fös Lau Sun)
;
@AMPM
= @{Date::Language::English::AMPM};
@Dsuf
= @{Date::Language::English::Dsuf};
@MoY
{
@MoY
} = (0 ..
scalar
(
@MoY
));
@MoY
{
@MoYs
} = (0 ..
scalar
(
@MoYs
));
@DoW
{
@DoW
} = (0 ..
scalar
(
@DoW
));
@DoW
{
@DoWs
} = (0 ..
scalar
(
@DoWs
));
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] }
1;