Na}{

File Content: `Swedish.pm`

##
## Swedish tables
## Contributed by Matthew Musgrove <muskrat@mindless.com>
## Corrected by dempa
##

package Date::Language::Swedish;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";

@MoY  = qw(januari februari mars april maj juni juli augusti september oktober november december);
@MoYs = map { substr($_,0,3) } @MoY;
@DoW  = map($_ . "dagen", qw(s�n m�n tis ons tors fre l�r));
@DoWs = map { substr($_,0,2) } @DoW;

# the ordinals are not typically used in modern times
@Dsuf = ('a' x 2, 'e' x 29);

use Date::Language::English ();
@AMPM =   @{Date::Language::English::AMPM};


@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 { sprintf("%2de",$_[0]->[3]) }

1;

Name	Size	Permission
Afar.pm	1032 bytes	0644
Amharic.pm	1927 bytes	0644
Austrian.pm	994 bytes	0644
Brazilian.pm	966 bytes	0644
Bulgarian.pm	2567 bytes	0644
Chinese.pm	977 bytes	0644
Chinese_GB.pm	918 bytes	0644
Czech.pm	1411 bytes	0644
Danish.pm	1035 bytes	0644
Dutch.pm	1086 bytes	0644
English.pm	973 bytes	0644
Finnish.pm	1239 bytes	0644
French.pm	992 bytes	0644
Gedeo.pm	1064 bytes	0644
German.pm	1040 bytes	0644
Greek.pm	2826 bytes	0644
Hungarian.pm	2133 bytes	0644
Icelandic.pm	1037 bytes	0644
Italian.pm	1006 bytes	0644
Norwegian.pm	1004 bytes	0644
Oromo.pm	999 bytes	0644
Romanian.pm	892 bytes	0644
Russian.pm	1384 bytes	0644
Russian_cp1251.pm	1036 bytes	0644
Russian_koi8r.pm	1034 bytes	0644
Sidama.pm	980 bytes	0644
Somali.pm	1155 bytes	0644
Spanish.pm	922 bytes	0644
Swedish.pm	1122 bytes	0644
Tigrinya.pm	1434 bytes	0644
TigrinyaEritrean.pm	1904 bytes	0644
TigrinyaEthiopian.pm	1930 bytes	0644
Turkish.pm	2079 bytes	0644

File Content: Swedish.pm

File Content: `Swedish.pm`