File Coverage

blib/lib/Acme/MetaSyntactic/olympics.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Acme::MetaSyntactic::olympics;
2 1     1   85710 use strict;
  1         8  
  1         55  
3 1     1   13 use Acme::MetaSyntactic::MultiList;
  1         3  
  1         415  
4             our @ISA = qw( Acme::MetaSyntactic::MultiList );
5             our $VERSION = '1.002';
6              
7             =head1 NAME
8              
9             Acme::MetaSyntactic::olympics - Olympic cities theme
10              
11             =head1 DESCRIPTION
12              
13             This theme lists the cities who have hosted, or will host, Olympic Games.
14             Cities for both the Summer and Winter games are listed.
15              
16             The list was originally fetched from L.
17              
18             The following cities have held, or will hold, the Olympic games:
19              
20             =cut
21              
22             {
23             my $data;
24             my $season;
25              
26             for my $line ( split /\n/ => <<'=cut' ) {
27              
28             =pod
29              
30             Summer Games
31             ============
32              
33             2020 Tokyo
34             2016 Rio de Janeiro
35             2012 London
36             2008 Beijing
37             2004 Athens
38             2000 Sydney
39             1996 Atlanta
40             1992 Barcelona
41             1988 Seoul
42             1984 Los Angeles
43             1980 Moscow
44             1976 Montreal
45             1972 Munich
46             1968 Mexico City
47             1964 Tokyo
48             1960 Rome
49             1956 Melbourne
50             1952 Helsinki
51             1948 London
52             1936 Berlin
53             1932 Los Angeles
54             1928 Amsterdam
55             1924 Paris
56             1920 Antwerp
57             1912 Stockholm
58             1908 London
59             1904 Saint-Louis
60             1900 Paris
61             1896 Athens
62              
63              
64             Winter Games
65             ============
66              
67             2018 Pyeongchang
68             2014 Sochi
69             2010 Vancouver
70             2006 Torino
71             2002 Salt Lake City
72             1998 Nagano
73             1994 Lillehammer
74             1992 Albertville
75             1988 Calgary
76             1984 Sarajevo
77             1980 Lake Placid
78             1976 Innsbruck
79             1972 Sapporo
80             1968 Grenoble
81             1964 Innsbruck
82             1960 Squaw Valley
83             1956 Cortina d'Ampezzo
84             1952 Oslo
85             1948 Saint-Moritz
86             1936 Garmisch-Partenkirchen
87             1932 Lake Placid
88             1928 Saint-Moritz
89             1924 Chamonix
90              
91             =cut
92              
93             $season = lc $1 and next if $line =~ /(\w+) Games/;
94             next if $line !~ /^\s+(\d+)\s+(.*)/;
95             my ( $year, $city ) = ( $1, $2 );
96             $city =~ s/\W+/_/g;
97             $data->{names}{$year}{$season} = $city;
98             $data->{names}{$season}{$year} = $city;
99             }
100             $data->{default} = ':all';
101              
102             __PACKAGE__->init($data);
103             }
104              
105             1;
106              
107             __END__