view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/olympics.pm  view on Meta::CPAN

package Acme::MetaSyntactic::olympics;
use strict;
use Acme::MetaSyntactic::MultiList;
our @ISA = qw( Acme::MetaSyntactic::MultiList );
our $VERSION = '1.002';

=head1 NAME

Acme::MetaSyntactic::olympics - Olympic cities theme

=head1 DESCRIPTION

This theme lists the cities who have hosted, or will host, Olympic Games.
Cities for both the Summer and Winter games are listed.

The list was originally fetched from L<http://www.olympic.org/>.

The following cities have held, or will hold, the Olympic games:

=cut

{
    my $data;
    my $season;

    for my $line ( split /\n/ => <<'=cut' ) {

=pod

    Summer Games
    ============

    2020   Tokyo
    2016   Rio de Janeiro
    2012   London
    2008   Beijing
    2004   Athens
    2000   Sydney
    1996   Atlanta
    1992   Barcelona
    1988   Seoul
    1984   Los Angeles
    1980   Moscow
    1976   Montreal
    1972   Munich
    1968   Mexico City
    1964   Tokyo
    1960   Rome
    1956   Melbourne
    1952   Helsinki
    1948   London
    1936   Berlin
    1932   Los Angeles
    1928   Amsterdam
    1924   Paris
    1920   Antwerp
    1912   Stockholm
    1908   London
    1904   Saint-Louis
    1900   Paris
    1896   Athens


    Winter Games
    ============

    2018   Pyeongchang
    2014   Sochi
    2010   Vancouver
    2006   Torino
    2002   Salt Lake City
    1998   Nagano
    1994   Lillehammer
    1992   Albertville
    1988   Calgary
    1984   Sarajevo