line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Date::Manip::Lang::danish; |
2
|
|
|
|
|
|
|
# Copyright (c) 2001-2023 Sullivan Beck. All rights reserved. |
3
|
|
|
|
|
|
|
# This program is free software; you can redistribute it and/or modify it |
4
|
|
|
|
|
|
|
# under the same terms as Perl itself. |
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
######################################################################## |
7
|
|
|
|
|
|
|
######################################################################## |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
require 5.010000; |
10
|
|
|
|
|
|
|
|
11
|
1
|
|
|
1
|
|
7
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
31
|
|
12
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
27
|
|
13
|
1
|
|
|
1
|
|
4
|
use utf8; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
6
|
|
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
our($VERSION); |
16
|
|
|
|
|
|
|
$VERSION='6.91'; |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
our($Language,@Encodings,$LangName,$YearAdded); |
19
|
|
|
|
|
|
|
@Encodings = qw(utf-8 iso-8859-1 perl); |
20
|
|
|
|
|
|
|
$LangName = "Danish"; |
21
|
|
|
|
|
|
|
$YearAdded = 2001; |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
$Language = { |
24
|
|
|
|
|
|
|
_special_rules => { }, |
25
|
|
|
|
|
|
|
ampm => [['FM', 'f.m.'], ['EM', 'e.m.']], |
26
|
|
|
|
|
|
|
at => ['klokken', 'kl', 'kl.'], |
27
|
|
|
|
|
|
|
day_abb => [['Man'], ['Tir'], ['Ons'], ['Tor'], ['Fre'], ['Lør', 'Lor'], ['Søn', 'Son']], |
28
|
|
|
|
|
|
|
day_char => [['M'], ['Ti'], ['O'], ['To'], ['F'], ['L'], ['S']], |
29
|
|
|
|
|
|
|
day_name => [ |
30
|
|
|
|
|
|
|
['Mandag'], |
31
|
|
|
|
|
|
|
['Tirsdag'], |
32
|
|
|
|
|
|
|
['Onsdag'], |
33
|
|
|
|
|
|
|
['Torsdag'], |
34
|
|
|
|
|
|
|
['Fredag'], |
35
|
|
|
|
|
|
|
['Lørdag', 'Lordag'], |
36
|
|
|
|
|
|
|
['Søndag', 'Sondag'], |
37
|
|
|
|
|
|
|
], |
38
|
|
|
|
|
|
|
each => ['hver'], |
39
|
|
|
|
|
|
|
fields => [ |
40
|
|
|
|
|
|
|
['ar', 'år'], |
41
|
|
|
|
|
|
|
['maneder', 'måneder', 'man', 'maned', 'mån', 'måned'], |
42
|
|
|
|
|
|
|
['uger', 'u', 'uge'], |
43
|
|
|
|
|
|
|
['dage', 'd', 'dag'], |
44
|
|
|
|
|
|
|
['timer', 't', 'tim', 'time'], |
45
|
|
|
|
|
|
|
['minutter', 'm', 'min', 'minut'], |
46
|
|
|
|
|
|
|
['sekunder', 's', 'sek', 'sekund'], |
47
|
|
|
|
|
|
|
], |
48
|
|
|
|
|
|
|
last => ['forrige', 'sidste', 'nyeste'], |
49
|
|
|
|
|
|
|
mode => [['pracist', 'præcist', 'circa'], ['arbejdsdag', 'arbejdsdage']], |
50
|
|
|
|
|
|
|
month_abb => [ |
51
|
|
|
|
|
|
|
['Jan'], |
52
|
|
|
|
|
|
|
['Feb'], |
53
|
|
|
|
|
|
|
['Mar'], |
54
|
|
|
|
|
|
|
['Apr'], |
55
|
|
|
|
|
|
|
['Maj'], |
56
|
|
|
|
|
|
|
['Jun'], |
57
|
|
|
|
|
|
|
['Jul'], |
58
|
|
|
|
|
|
|
['Aug'], |
59
|
|
|
|
|
|
|
['Sep'], |
60
|
|
|
|
|
|
|
['Okt'], |
61
|
|
|
|
|
|
|
['Nov'], |
62
|
|
|
|
|
|
|
['Dec'], |
63
|
|
|
|
|
|
|
], |
64
|
|
|
|
|
|
|
month_name => [ |
65
|
|
|
|
|
|
|
['Januar'], |
66
|
|
|
|
|
|
|
['Februar'], |
67
|
|
|
|
|
|
|
['Marts'], |
68
|
|
|
|
|
|
|
['April'], |
69
|
|
|
|
|
|
|
['Maj'], |
70
|
|
|
|
|
|
|
['Juni'], |
71
|
|
|
|
|
|
|
['Juli'], |
72
|
|
|
|
|
|
|
['August'], |
73
|
|
|
|
|
|
|
['September'], |
74
|
|
|
|
|
|
|
['Oktober'], |
75
|
|
|
|
|
|
|
['November'], |
76
|
|
|
|
|
|
|
['December'], |
77
|
|
|
|
|
|
|
], |
78
|
|
|
|
|
|
|
nextprev => [['naste', 'næste'], ['forrige']], |
79
|
|
|
|
|
|
|
nth => [ |
80
|
|
|
|
|
|
|
['1.', 'forste', 'første', 'en'], |
81
|
|
|
|
|
|
|
['2.', 'anden', 'to'], |
82
|
|
|
|
|
|
|
['3.', 'tredie', 'tre'], |
83
|
|
|
|
|
|
|
['4.', 'fjerde', 'fire'], |
84
|
|
|
|
|
|
|
['5.', 'femte', 'fem'], |
85
|
|
|
|
|
|
|
['6.', 'sjette', 'seks'], |
86
|
|
|
|
|
|
|
['7.', 'syvende', 'syv'], |
87
|
|
|
|
|
|
|
['8.', 'ottende', 'otte'], |
88
|
|
|
|
|
|
|
['9.', 'niende', 'ni'], |
89
|
|
|
|
|
|
|
['10.', 'tiende', 'ti'], |
90
|
|
|
|
|
|
|
['11.', 'elfte', 'elleve'], |
91
|
|
|
|
|
|
|
['12.', 'tolvte', 'tolv'], |
92
|
|
|
|
|
|
|
['13.', 'trettende', 'tretten'], |
93
|
|
|
|
|
|
|
['14.', 'fjortende', 'fjorten'], |
94
|
|
|
|
|
|
|
['15.', 'femtende', 'femten'], |
95
|
|
|
|
|
|
|
['16.', 'sekstende', 'seksten'], |
96
|
|
|
|
|
|
|
['17.', 'syttende', 'sytten'], |
97
|
|
|
|
|
|
|
['18.', 'attende', 'atten'], |
98
|
|
|
|
|
|
|
['19.', 'nittende', 'nitten'], |
99
|
|
|
|
|
|
|
['20.', 'tyvende', 'tyve'], |
100
|
|
|
|
|
|
|
['21.', 'enogtyvende', 'enogtyve'], |
101
|
|
|
|
|
|
|
['22.', 'toogtyvende', 'toogtyve'], |
102
|
|
|
|
|
|
|
['23.', 'treogtyvende', 'treogtyve'], |
103
|
|
|
|
|
|
|
['24.', 'fireogtyvende', 'fireogtyve'], |
104
|
|
|
|
|
|
|
['25.', 'femogtyvende', 'femogtyve'], |
105
|
|
|
|
|
|
|
['26.', 'seksogtyvende', 'seksogtyve'], |
106
|
|
|
|
|
|
|
['27.', 'syvogtyvende', 'syvogtyve'], |
107
|
|
|
|
|
|
|
['28.', 'otteogtyvende', 'otteogtyve'], |
108
|
|
|
|
|
|
|
['29.', 'niogtyvende', 'niogtyve'], |
109
|
|
|
|
|
|
|
['30.', 'tredivte', 'tredive'], |
110
|
|
|
|
|
|
|
['31.', 'enogtredivte', 'enogtredive'], |
111
|
|
|
|
|
|
|
['32.', 'toogtredivte', 'toogtredive'], |
112
|
|
|
|
|
|
|
['33.', 'treogtredivte', 'treogtredive'], |
113
|
|
|
|
|
|
|
['34.', 'fireogtredivte', 'fireogtredive'], |
114
|
|
|
|
|
|
|
['35.', 'femogtredivte', 'femogtredive'], |
115
|
|
|
|
|
|
|
['36.', 'seksogtredivte', 'seksogtredive'], |
116
|
|
|
|
|
|
|
['37.', 'syvogtredivte', 'syvogtredive'], |
117
|
|
|
|
|
|
|
['38.', 'otteogtredivte', 'otteogtredive'], |
118
|
|
|
|
|
|
|
['39.', 'niogtredivte', 'niogtredive'], |
119
|
|
|
|
|
|
|
['40.', 'fyrretyvende', 'fyrre'], |
120
|
|
|
|
|
|
|
['41.', 'enogtyvende', 'enogtyve'], |
121
|
|
|
|
|
|
|
['42.', 'toogtyvende', 'toogtyve'], |
122
|
|
|
|
|
|
|
['43.', 'treogtyvende', 'treogtyve'], |
123
|
|
|
|
|
|
|
['44.', 'fireogtyvende', 'fireogtyve'], |
124
|
|
|
|
|
|
|
['45.', 'femogtyvende', 'femogtyve'], |
125
|
|
|
|
|
|
|
['46.', 'seksogtyvende', 'seksogtyve'], |
126
|
|
|
|
|
|
|
['47.', 'syvogtyvende', 'syvogtyve'], |
127
|
|
|
|
|
|
|
['48.', 'otteogtyvende', 'otteogtyve'], |
128
|
|
|
|
|
|
|
['49.', 'niogtyvende', 'niogtyve'], |
129
|
|
|
|
|
|
|
['50.', 'halvtredsindstyvende', 'halvtreds'], |
130
|
|
|
|
|
|
|
['51.', 'enogindstyvende', 'enogindstyve'], |
131
|
|
|
|
|
|
|
['52.', 'toogindstyvende', 'toogindstyve'], |
132
|
|
|
|
|
|
|
['53.', 'treogindstyvende', 'treogindstyve'], |
133
|
|
|
|
|
|
|
], |
134
|
|
|
|
|
|
|
of => ['om'], |
135
|
|
|
|
|
|
|
offset_date => { |
136
|
|
|
|
|
|
|
'idag' => '0:0:0:0:0:0:0', |
137
|
|
|
|
|
|
|
'igar' => '-0:0:0:1:0:0:0', |
138
|
|
|
|
|
|
|
'igår' => '-0:0:0:1:0:0:0', |
139
|
|
|
|
|
|
|
'imorgen' => '+0:0:0:1:0:0:0', |
140
|
|
|
|
|
|
|
}, |
141
|
|
|
|
|
|
|
offset_time => { nu => '0:0:0:0:0:0:0' }, |
142
|
|
|
|
|
|
|
on => ['pa', 'på'], |
143
|
|
|
|
|
|
|
sephm => ['\.'], |
144
|
|
|
|
|
|
|
sepms => [':'], |
145
|
|
|
|
|
|
|
times => { |
146
|
|
|
|
|
|
|
'midnat' => '00:00:00', |
147
|
|
|
|
|
|
|
'midt pa dagen' => '12:00:00', |
148
|
|
|
|
|
|
|
'midt på dagen' => '12:00:00', |
149
|
|
|
|
|
|
|
}, |
150
|
|
|
|
|
|
|
when => [['siden'], ['om', 'senere']], |
151
|
|
|
|
|
|
|
}; |
152
|
|
|
|
|
|
|
|
153
|
|
|
|
|
|
|
1; |