view release on metacpan or  search on metacpan

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

package Acme::MetaSyntactic::cyclists;

use strict;
use warnings;
no  warnings 'syntax';

use Acme::MetaSyntactic::MultiList;
our @ISA = qw [Acme::MetaSyntactic::MultiList];

our $VERSION = '2013072602';

my $data;

$$data {default} = "world_championships/road";

=pod

=encoding iso-8859-1

=head1 NAME

Acme::MetaSyntactic::cyclists - Winners of major cycling events

=head1 DESCRIPTION

This C<< Acme::MetaSyntactic >> theme provides winners of major 
cycling events. 

The following subthemes are provided:

=over 1

=item C<< world_championships/road >>

The winners of the World Championships Men's Road Race, held annually
since 1927:

=cut

$$data {names} {world_championships} {road} = do {
    my %seen;
    join ' ' =>
    grep {!$seen {$_} ++}
    map  {Acme::MetaSyntactic::RemoteList::tr_nonword ($_)}
    map  {Acme::MetaSyntactic::RemoteList::tr_accent  ($_)}
    map  {/^\s+[0-9]{4}\s+(.*?)\s+[A-Z]{3}$/ ? $1 : ()}
    split /\n/ => <<'=cut'};

=pod

  2012      Philippe Gilbert      BEL
  2011      Mark Cavendish        GBR
  2010      Thor Hushovd          NOR
  2009      Cadel Evans           AUS
  2008      Alessandro Ballan     ITA
  2007      Paolo Bettini         ITA
  2006      Paolo Bettini         ITA
  2005      Tom Boonen            BEL
  2004      Óscar Freire          ESP
  2003      Igor Astarloa         ESP
  2002      Mario Cipollini       ITA
  2001      Óscar Freire          ESP
  2000      Romans Vainsteins     LAT
  1999      Óscar Freire          ESP
  1998      Oscar Camenzind       SUI
  1997      Laurent Brochard      FRA
  1996      Johan Museeuw         BEL
  1995      Abraham Olano         ESP
  1994      Luc Leblanc           FRA
  1993      Lance Armstrong       USA
  1992      Gianni Bugno          ITA
  1991      Gianni Bugno          ITA
  1990      Rudy Dhaenens         BEL
  1989      Greg LeMond           USA