test/testapp.pl | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 0 | 7 | 0.0 |
branch | 0 | 2 | 0.0 |
condition | 0 | 2 | 0.0 |
subroutine | 0 | 1 | 0.0 |
pod | n/a | ||
total | 0 | 12 | 0.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | |||||||
2 | package Embperl::TEST::App ; | ||||||
3 | |||||||
4 | @ISA = ('Embperl::App') ; | ||||||
5 | |||||||
6 | %messages = | ||||||
7 | ( | ||||||
8 | 'de' => | ||||||
9 | { | ||||||
10 | 'addsel1' => 'Klicken Sie auf die Kategorie zu der Sie etwas hinzufügen möchten:', | ||||||
11 | 'addsel2' => 'oder fügen Sie eine neue Kategorie hinzu. Bitte geben Sie die Beschreibung in so vielen Sprachen wie Ihnen möglich ein.', | ||||||
12 | 'addsel3' => 'Falls Sie die Übersetzung nicht wissen, lassen Sie das entsprechende Eingabefeld leer.', | ||||||
13 | 'addsel4' => 'Kategorie hinzufügen', | ||||||
14 | 'add1' => 'Hinzufügen eines neuen Eintrages zu', | ||||||
15 | 'add2' => 'Bitte geben Sie die Beschreibung in so vielen Sprachen wie Ihnen möglich ein.\ Falls Sie die Übersetzung nicht wissen, lassen Sie das entsprechende Eingabefeld leer.', |
||||||
16 | 'heading' => 'Überschrift', | ||||||
17 | 'url' => 'URL', | ||||||
18 | 'show2' => 'Folgender Eintrag wurde erfolgreich der Datenbank hinzugefügt', | ||||||
19 | 'last' => 'last zwischen [= =]', | ||||||
20 | 'test undef' => undef, | ||||||
21 | }, | ||||||
22 | 'en' => | ||||||
23 | { | ||||||
24 | 'addsel1' => 'Click on the category for wich you want to add a new item:', | ||||||
25 | 'addsel2' => 'or add new category. Please enter the description in as much languages as possible.', | ||||||
26 | 'addsel3' => 'If you don\'t know the translation leave the corresponding input field empty.', | ||||||
27 | 'addsel4' => 'Add category', | ||||||
28 | 'add2' => 'Please enter the description in as much languages as possible. If you don\'t know the translation leave the corresponding input field empty.', |
||||||
29 | 'add3' => 'Add to', | ||||||
30 | 'heading' => 'Heading', | ||||||
31 | 'url' => 'URL', | ||||||
32 | 'show2' => 'The following entry has been sucessfully added to the database', | ||||||
33 | 'last' => 'last inside of [= =]', | ||||||
34 | 'test undef' => undef, | ||||||
35 | }, | ||||||
36 | ) ; | ||||||
37 | |||||||
38 | |||||||
39 | |||||||
40 | sub init | ||||||
41 | { | ||||||
42 | 0 | 0 | my $self = shift ; | ||||
43 | 0 | my $r = $self -> curr_req ; | |||||
44 | |||||||
45 | 0 | 0 | $lang = $r -> param -> language || 'de' ; | ||||
46 | 0 | push @{$r -> messages}, $messages{$lang} ; | |||||
0 | |||||||
47 | 0 | 0 | push @{$r -> default_messages}, $messages{'en'} if ($lang ne 'en') ; | ||||
0 | |||||||
48 | } | ||||||
49 | |||||||
50 | 1 ; |