File Coverage

blib/lib/Map/Metro/Plugin/Hook/Helsinki/Swedish.pm
Criterion Covered Total %
statement 92 92 100.0
branch 4 8 50.0
condition 1 3 33.3
subroutine 14 14 100.0
pod n/a
total 111 117 94.8


line stmt bran cond sub pod time code
1 1     1   3953 use Map::Metro::Standard::Moops;
  2         180  
  1         8  
2 1     1   1908 use strict;
  1         2  
  1         22  
3 1     1   3 use warnings;
  1         1  
  1         42  
4              
5             our $VERSION = '0.1985'; # VERSION
6             # PODNAME: Map::Metro::Plugin::Hook::Helsinki::Swedish
7             # ABSTRACT: Use the Swedish station names
8              
9 1     1   1428 class Map::Metro::Plugin::Hook::Helsinki::Swedish using Moose {
  1     1   20  
  1     1   5  
  1         2  
  1         56  
  1         3  
  1         1  
  1         8  
  1         235  
  1         2  
  1         7  
  1         47  
  1         0  
  1         39  
  1         4  
  1         1  
  1         92  
  1         25  
  1         4  
  1         2  
  1         5  
  1         2872  
  1         15  
  1         7  
  1         4470  
  1         1  
  1         8  
  1         2566  
  1         2  
  1         9  
  1         62  
  1         2  
  1         14  
  1         170  
  1         2  
  1         7  
  1         841  
  1         2  
  1         8  
  1         3241  
  1         2  
  1         31  
  1         3  
  1         2  
  1         29  
  1         4  
  1         1  
  1         38  
  1         3  
  1         1  
  1         150  
  1         10  
  1         2908  
  1         16  
  1         101  
10              
11 1     1   9549 use Map::Metro::Hook;
  1         1  
  1         27  
12 1     1   634 use Encode qw/encode_utf8 decode_utf8/;
  1         7296  
  1         75  
13 1     1   5 use utf8;
  1         1  
  1         6  
14              
15 1 50   1   1183 method register {
  1     2   2  
  1         107  
  1         11  
  2         2  
  2         15  
16             before_add_station => sub {
17              
18 34     34   34 my $self = shift;
19 34         666 my $station = shift;
20 34         164 $station->set_name($self->station_translation($station->name));
21              
22 34         31917 };
23             }
24              
25 1 50   1   1162 method station_translation($name) {
  1 50   34   1  
  1 50       135  
  2         31  
  34         62  
  34         57  
  34         31  
  34         324  
26 34         184 my $to_swedish = {
27             'Ruoholahti' => 'Gräsviken',
28             'Kamppi' => 'Kampen',
29             'Rautatientori' => 'Järnvägstorget',
30             'Kaisaniemi' => 'Kajsaniemi',
31             'Hakaniemi' => 'Hagnäs',
32             'Sörnälnen' => 'Sörnäs',
33             'Kalasatama' => 'Fiskhamnen',
34             'Kulosaari' => 'Brändö',
35             'Herttoniemi' => 'Hertonäs',
36             'Siilitie' => 'Igelkottsvägen',
37             'Itäkeskus' => 'Östra centrum',
38             'Myllypuro' => 'Kvarnbäcken',
39             'Kontula' => 'GÃ¥rdsbacka',
40             'Mellunmäki' => 'Mellungsbacka',
41             'Puotila' => 'Botby gÃ¥rd',
42             'Rastila' => 'Rastböle',
43             'Vuosaari' => 'Nordsjö',
44             };
45     33       return $to_swedish->{ $name } // $name;
46             }
47              
48             }
49              
50             1;
51              
52             __END__
53              
54             =pod
55              
56             =encoding UTF-8
57              
58             =head1 NAME
59              
60             Map::Metro::Plugin::Hook::Helsinki::Swedish - Use the Swedish station names
61              
62             =head1 VERSION
63              
64             Version 0.1985, released 2015-04-26.
65              
66             =head1 SOURCE
67              
68             L<https://github.com/Csson/p5-Map-Metro-Helsinki>
69              
70             =head1 HOMEPAGE
71              
72             L<https://metacpan.org/release/Map-Metro-Plugin-Map-Helsinki>
73              
74             =head1 AUTHOR
75              
76             Erik Carlsson <info@code301.com>
77              
78             =head1 COPYRIGHT AND LICENSE
79              
80             This software is copyright (c) 2015 by Erik Carlsson <info@code301.com>.
81              
82             This is free software; you can redistribute it and/or modify it under
83             the same terms as the Perl 5 programming language system itself.
84              
85             =cut