File Coverage

blib/lib/Acme/MetaSyntactic/cyclists.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Acme::MetaSyntactic::cyclists;
2              
3 1     1   135143 use strict;
  1         7  
  1         45  
4 1     1   6 use warnings;
  1         3  
  1         58  
5 1     1   5 no warnings 'syntax';
  1         2  
  1         48  
6              
7 1     1   6 use Acme::MetaSyntactic::MultiList;
  1         3  
  1         848  
8             our @ISA = qw [Acme::MetaSyntactic::MultiList];
9              
10             our $VERSION = '2013072602';
11              
12             my $data;
13              
14             $$data {default} = "world_championships/road";
15              
16             =pod
17              
18             =encoding iso-8859-1
19              
20             =head1 NAME
21              
22             Acme::MetaSyntactic::cyclists - Winners of major cycling events
23              
24             =head1 DESCRIPTION
25              
26             This C<< Acme::MetaSyntactic >> theme provides winners of major
27             cycling events.
28              
29             The following subthemes are provided:
30              
31             =over 1
32              
33             =item C<< world_championships/road >>
34              
35             The winners of the World Championships Men's Road Race, held annually
36             since 1927:
37              
38             =cut
39              
40             $$data {names} {world_championships} {road} = do {
41             my %seen;
42             join ' ' =>
43             grep {!$seen {$_} ++}
44             map {Acme::MetaSyntactic::RemoteList::tr_nonword ($_)}
45             map {Acme::MetaSyntactic::RemoteList::tr_accent ($_)}
46             map {/^\s+[0-9]{4}\s+(.*?)\s+[A-Z]{3}$/ ? $1 : ()}
47             split /\n/ => <<'=cut'};
48              
49             =pod
50              
51             2012 Philippe Gilbert BEL
52             2011 Mark Cavendish GBR
53             2010 Thor Hushovd NOR
54             2009 Cadel Evans AUS
55             2008 Alessandro Ballan ITA
56             2007 Paolo Bettini ITA
57             2006 Paolo Bettini ITA
58             2005 Tom Boonen BEL
59             2004 Óscar Freire ESP
60             2003 Igor Astarloa ESP
61             2002 Mario Cipollini ITA
62             2001 Óscar Freire ESP
63             2000 Romans Vainsteins LAT
64             1999 Óscar Freire ESP
65             1998 Oscar Camenzind SUI
66             1997 Laurent Brochard FRA
67             1996 Johan Museeuw BEL
68             1995 Abraham Olano ESP
69             1994 Luc Leblanc FRA
70             1993 Lance Armstrong USA
71             1992 Gianni Bugno ITA
72             1991 Gianni Bugno ITA
73             1990 Rudy Dhaenens BEL
74             1989 Greg LeMond USA
75             1988 Maurizio Fondriest ITA
76             1987 Stephen Roche IRL
77             1986 Moreno Argentin ITA
78             1985 Joop Zoetemelk NED
79             1984 Claude Criquielion BEL
80             1983 Greg LeMond USA
81             1982 Giuseppe Saronni ITA
82             1981 Freddy Maertens BEL
83             1980 Bernard Hinault FRA
84             1979 Jan Raas NED
85             1978 Gerrie Knetemann NED
86             1977 Francesco Moser ITA
87             1976 Freddy Maertens BEL
88             1975 Hennie Kuiper NED
89             1974 Eddy Merckx BEL
90             1973 Felice Gimondi ITA
91             1972 Marino Basso ITA
92             1971 Eddy Merckx BEL
93             1970 Jean-Pierre Monseré BEL
94             1969 Harm Ottenbros NED
95             1968 Vittorio Adorni ITA
96             1967 Eddy Merckx BEL
97             1966 Rudi Altig FRG
98             1965 Tom Simpson GBR
99             1964 Jan Janssen NED
100             1963 Benoni Beheyt BEL
101             1962 Jean Stablinski FRA
102             1961 Rik van Looy BEL
103             1960 Rik van Looy BEL
104             1959 André Darrigade FRA
105             1958 Ercole Baldini ITA
106             1957 Rik Van Steenbergen BEL
107             1956 Rik Van Steenbergen BEL
108             1955 Stan Ockers BEL
109             1954 Louison Bobet FRA
110             1953 Fausto Coppi ITA
111             1952 Heinz Müller FRG
112             1951 Ferdi Kübler SUI
113             1950 Briek Schotte BEL
114             1949 Rik Van Steenbergen BEL
115             1948 Briek Schotte BEL
116             1947 Theo Middelkamp NED
117             1946 Hans Knecht SUI
118             1939-1945 Suspended due to World War II
119             1938 Marcel Kint BEL
120             1937 Eloi Meulenberg BEL
121             1936 Antonin Magne FRA
122             1935 Jean Aerts BEL
123             1934 Karel Kaers BEL
124             1933 Georges Speicher FRA
125             1932 Alfredo Binda ITA
126             1931 Learco Guerra ITA
127             1930 Alfredo Binda ITA
128             1929 Georges Ronsse BEL
129             1928 Georges Ronsse BEL
130             1927 Alfredo Binda ITA
131              
132             =cut
133              
134             =item C<< tour >>
135              
136             The winners of the I<< Tour de France >>, held annually since 1903, and
137             suspended due to World War I and World War II:
138              
139             =cut
140              
141             $$data {names} {tour} = do {
142             my %seen;
143             join ' ' =>
144             grep {!$seen {$_} ++}
145             map {Acme::MetaSyntactic::RemoteList::tr_nonword ($_)}
146             map {Acme::MetaSyntactic::RemoteList::tr_accent ($_)}
147             map {/^\s+[0-9]{4}\s+(.*?)\s+[A-Z]{3}$/ ? $1 : ()}
148             split /\n/ => <<'=cut'};
149              
150             =pod
151              
152             2013 Chris Froome GBR
153             2012 Bradley Wiggins GBR
154             2011 Cadel Evans AUS
155             2010 Andy Schleck LUX
156             2009 Alberto Contador ESP
157             2008 Carlos Sastre ESP
158             2007 Alberto Contador ESP
159             2006 Óscar Pereiro ESP
160             2005 (vacated)
161             2004 (vacated)
162             2003 (vacated)
163             2002 (vacated)
164             2001 (vacated)
165             2000 (vacated)
166             1999 (vacated)
167             1998 Marco Pantani ITA
168             1997 Jan Ullrich GER
169             1996 Bjarne Riis DEN
170             1995 Miguel Indurain ESP
171             1994 Miguel Indurain ESP
172             1993 Miguel Indurain ESP
173             1992 Miguel Indurain ESP
174             1991 Miguel Indurain ESP
175             1990 Greg Lemond USA
176             1989 Greg Lemond USA
177             1988 Pedro Delgado ESP
178             1987 Stephen Roche IRL
179             1986 Greg Lemond USA
180             1985 Bernard Hinault FRA
181             1984 Laurent Fignon FRA
182             1983 Laurent Fignon FRA
183             1982 Bernard Hinault FRA
184             1981 Bernard Hinault FRA
185             1980 Joop Zoetemelk NED
186             1979 Bernard Hinault FRA
187             1978 Bernard Hinault FRA
188             1977 Bernard Thévenet FRA
189             1976 Lucien Van Impe BEL
190             1975 Bernard Thévenet FRA
191             1974 Eddy Merckx BEL
192             1973 Luis Ocana ESP
193             1972 Eddy Merckx BEL
194             1971 Eddy Merckx BEL
195             1970 Eddy Merckx BEL
196             1969 Eddy Merckx BEL
197             1968 Jan Janssen NED
198             1967 Roger Pingeon FRA
199             1966 Lucien Aimar FRA
200             1965 Felice Gimondi ITA
201             1964 Jacques Anquetil FRA
202             1963 Jacques Anquetil FRA
203             1962 Jacques Anquetil FRA
204             1961 Jacques Anquetil FRA
205             1960 Gastone Nencini ITA
206             1959 Federico Bahamontčs ESP
207             1958 Charly Gaul LUX
208             1957 Jacques Anquetil FRA
209             1956 Roger Walkowiak FRA
210             1955 Louison Bobet FRA
211             1954 Louison Bobet FRA
212             1953 Louison Bobet FRA
213             1952 Fausto Coppi ITA
214             1951 Hugo Koblet SUI
215             1950 Ferdi Kubler SUI
216             1949 Fausto Coppi ITA
217             1948 Gino Bartali ITA
218             1947 Jean Robic FRA
219             1940-1946 Suspended due to World War II
220             1939 Sylvčre Maes BEL
221             1938 Gino Bartali ITA
222             1937 Roger Labépie FRA
223             1936 Sylvčre Maes BEL
224             1935 Romain Maes BEL
225             1934 Antonin Magne FRA
226             1933 Georges Speicher FRA
227             1932 André Leducq FRA
228             1931 Antonin Magne FRA
229             1930 André Leducq FRA
230             1929 Maurice Dewaele BEL
231             1928 Nicolas Frantz LUX
232             1927 Nicolas Frantz LUX
233             1926 Lucien Buysse BEL
234             1925 Ottavio Bottecchia ITA
235             1924 Ottavio Bottecchia ITA
236             1923 Henri Pélissier FRA
237             1922 Firmin Lambot BEL
238             1921 Léon Scieur BEL
239             1920 Philippe Thijs BEL
240             1919 Firmin Lambot BEL
241             1915-1918 Suspended due to World War I
242             1914 Philippe Thijs BEL
243             1913 Philippe Thijs BEL
244             1912 Odile Defraye BEL
245             1911 Gustavo Garrigou FRA
246             1910 Octave Lapize FRA
247             1909 François Faber LUX
248             1908 Lucien Petit-Breton FRA
249             1907 Lucien Petit-Breton FRA
250             1906 René Pottier FRA
251             1905 Louis Trousselier FRA
252             1904 Henri Cornet FRA
253             1903 Maurice Garin FRA
254              
255             =cut
256              
257             =item C<< giro >>
258              
259             The winners of the I<< Giro d'Italia >>, held annually since 1909, and
260             suspended due to World War I and World War II:
261              
262             =cut
263              
264             $$data {names} {giro} = do {
265             my %seen;
266             join ' ' =>
267             grep {!$seen {$_} ++}
268             map {Acme::MetaSyntactic::RemoteList::tr_nonword ($_)}
269             map {Acme::MetaSyntactic::RemoteList::tr_accent ($_)}
270             map {/^\s+[0-9]{4}\s+(.*?)\s+[A-Z]{3}$/ ? $1 : ()}
271             split /\n/ => <<'=cut'};
272              
273             =pod
274              
275             2013 Vincenzo Nibali ITA
276             2012 Ryder Hesjedal CAN
277             2011 Michele Scarponi ITA
278             2010 Ivan Basso ITA
279             2009 Denis Menchov RUS
280             2008 Alberto Contador ESP
281             2007 Danilo Di Luca ITA
282             2006 Ivan Basso ITA
283             2005 Paolo Savoldelli ITA
284             2004 Damiano Cunego ITA
285             2003 Gilberto Simoni ITA
286             2002 Paolo Savoldelli ITA
287             2001 Gilberto Simoni ITA
288             2000 Stefano Garzelli ITA
289             1999 Ivan Gotti ITA
290             1998 Marco Pantani ITA
291             1997 Ivan Gotti ITA
292             1996 Pavel Tonkov RUS
293             1995 Tony Rominger SUI
294             1994 Evgeni Berzin RUS
295             1993 Miguel Indurain ESP
296             1992 Miguel Indurain ESP
297             1991 Franco Chioccioli ITA
298             1990 Gianni Bugno ITA
299             1989 Laurent Fignon FRA
300             1988 Andrew Hampsten USA
301             1987 Stephen Roche IRL
302             1986 Roberto Visentini ITA
303             1985 Bernard Hinault FRA
304             1984 Francesco Moser ITA
305             1983 Giuseppe Saronni ITA
306             1982 Bernard Hinault FRA
307             1981 Giovanni Battaglin ITA
308             1980 Bernard Hinault FRA
309             1979 Giuseppe Saronni ITA
310             1978 Johan de Muynck BEL
311             1977 Michel Pollentier BEL
312             1976 Felice Gimondi ITA
313             1975 Fausto Bertoglio ITA
314             1974 Eddy Merckx BEL
315             1973 Eddy Merckx BEL
316             1972 Eddy Merckx BEL
317             1971 Gösta Pettersson SWE
318             1970 Eddy Merckx BEL
319             1969 Felice Gimondi ITA
320             1968 Eddy Merckx BEL
321             1967 Felice Gimondi ITA
322             1966 Gianni Motta ITA
323             1965 Vittorio Adorni ITA
324             1964 Jacques Anquetil FRA
325             1963 Franco Balmamion ITA
326             1962 Franco Balmamion ITA
327             1961 Arnaldo Pambianco ITA
328             1960 Jacques Anquetil FRA
329             1959 Charly Gaul LUX
330             1958 Ercole Baldini ITA
331             1957 Gastone Nencini ITA
332             1956 Charly Gaul LUX
333             1955 Fiorenzo Magni ITA
334             1954 Carlo Clerici SUI
335             1953 Fausto Coppi ITA
336             1952 Fausto Coppi ITA
337             1951 Fiorenzo Magni ITA
338             1950 Hugo Koblet SUI
339             1949 Fausto Coppi ITA
340             1948 Fiorenzo Magni ITA
341             1947 Fausto Coppi ITA
342             1946 Gino Bartali ITA
343             1941-1945 Suspended due to World War II
344             1940 Fausto Coppi ITA
345             1939 Giovanni Valetti ITA
346             1938 Giovanni Valetti ITA
347             1937 Gino Bartali ITA
348             1936 Gino Bartali ITA
349             1935 Vasco Bergamaschi ITA
350             1934 Learco Guerra ITA
351             1933 Alfredo Binda ITA
352             1932 Antonio Pesenti ITA
353             1931 Francesco Camusso ITA
354             1930 Luigi Marchisio ITA
355             1929 Alfredo Binda ITA
356             1928 Alfredo Binda ITA
357             1927 Alfredo Binda ITA
358             1926 Giovanni Brunero ITA
359             1925 Alfredo Binda ITA
360             1924 Giuseppe Enrici ITA
361             1923 Costante Girardengo ITA
362             1922 Giovanni Brunero ITA
363             1921 Giovanni Brunero ITA
364             1920 Gaetano Belloni ITA
365             1919 Costante Girardengo ITA
366             1915-1918 Suspended due to World War I
367             1914 Alfonso Calzolari ITA
368             1913 Carlo Oriani ITA
369             1912 Team Atala ITA
370             1911 Carlo Galetti ITA
371             1910 Carlo Galetti ITA
372             1909 Luigi Ganna ITA
373              
374             =cut
375              
376             =item C<< vuelta >>
377              
378             The winners of the I<< Vuelta a EspaE<241>a >>, held since 1935, annually
379             since 1955:
380              
381             =cut
382              
383             $$data {names} {vuelta} = do {
384             my %seen;
385             join ' ' =>
386             grep {!$seen {$_} ++}
387             map {Acme::MetaSyntactic::RemoteList::tr_nonword ($_)}
388             map {Acme::MetaSyntactic::RemoteList::tr_accent ($_)}
389             map {/^\s+[0-9]{4}\s+(.*?)\s+[A-Z]{3}$/ ? $1 : ()}
390             split /\n/ => <<'=cut'};
391              
392             =pod
393              
394             2012 Alberto Contador ESP
395             2011 Juan José Cobo ESP
396             2010 Vincenzo Nibali ITA
397             2009 Alejandro Valverde ESP
398             2008 Alberto Contador ESP
399             2007 Denis Menchov RUS
400             2006 Alexandre Vinokourov KAZ
401             2005 Denis Menchov RUS
402             2004 Roberto Heras ESP
403             2003 Roberto Heras ESP
404             2002 Aitor González ESP
405             2001 Ángel Casero ESP
406             2000 Roberto Heras ESP
407             1999 Jan Ullrich GER
408             1998 Abraham Olano ESP
409             1997 Alex Zülle SUI
410             1996 Alex Zülle SUI
411             1995 Laurent Jalabert FRA
412             1994 Tony Rominger SUI
413             1993 Tony Rominger SUI
414             1992 Tony Rominger SUI
415             1991 Melchor Mauri ESP
416             1990 Marco Giovannetti ITA
417             1989 Pedro Delgado ESP
418             1988 Sean Kelly IRL
419             1987 Lucho Herrera COL
420             1986 Álvaro Pino ESP
421             1985 Pedro Delgado ESP
422             1984 Eric Caritoux FRA
423             1983 Bernard Hinault FRA
424             1982 Marino Lejarreta ESP
425             1981 Giovanni Battaglin ITA
426             1980 Faustino Rupérez ESP
427             1979 Joop Zoetemelk NED
428             1978 Bernard Hinault FRA
429             1977 Freddy Maertens BEL
430             1976 José Pesarrodona ESP
431             1975 Agustín Tamames ESP
432             1974 José Manuel Fuente ESP
433             1973 Eddy Merckx BEL
434             1972 José Manuel Fuente ESP
435             1971 Ferdinand Bracke BEL
436             1970 Luis Ocańa ESP
437             1969 Roger Pingeon FRA
438             1968 Felice Gimondi ITA
439             1967 Jan Janssen NED
440             1966 Francisco Gabica ESP
441             1965 Rolf Wolfshohl GER
442             1964 Raymond Poulidor FRA
443             1963 Jacques Anquetil FRA
444             1962 Rudi Altig GER
445             1961 Angelino Soler ESP
446             1960 Franz De Mulder BEL
447             1959 Antonio Suárez ESP
448             1958 Jean Stablinski FRA
449             1957 Jesús Lorońo ESP
450             1956 Angelo Conterno ITA
451             1955 Jean Dotto FRA
452             1950 Emilio Rodríguez ESP
453             1948 Bernardo Ruiz ESP
454             1947 Edouard van Dyck BEL
455             1946 Dalmacio Langarica ESP
456             1945 Delio Rodríguez ESP
457             1942 Julián Berrendero ESP
458             1941 Julián Berrendero ESP
459             1936 Gustaaf Deloor BEL
460             1935 Gustaaf Deloor BEL
461              
462             =cut
463              
464             =pod
465              
466             =back
467              
468             This module is part of the set of C<< Acme::MetaSyntactic >> themes
469             found in the C<< Acme::MetaSyntactic::Themes::Abigail >> package.
470              
471             =head1 NOTES
472              
473             =over 1
474              
475             =item *
476              
477             The C<< cyclists/tour >> theme is identical to the C<< tour_de_france >>
478             theme from the C<< Acme::MetaSyntactic::Themes >> package.
479              
480             =back
481              
482             =head1 SEE ALSO
483              
484             L, L.
485              
486             =head1 AUTHOR
487              
488             Abigail, L<< mailto:cpan@abigail.be >>.
489              
490             =head1 COPYRIGHT and LICENSE
491              
492             Copyright (C) 2013 by Abigail.
493              
494             Permission is hereby granted, free of charge, to any person obtaining a
495             copy of this software and associated documentation files (the "Software"),
496             to deal in the Software without restriction, including without limitation
497             the rights to use, copy, modify, merge, publish, distribute, sublicense,
498             and/or sell copies of the Software, and to permit persons to whom the
499             Software is furnished to do so, subject to the following conditions:
500              
501             The above copyright notice and this permission notice shall be included
502             in all copies or substantial portions of the Software.
503              
504             THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
505             IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
506             FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
507             THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
508             WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT
509             OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
510             THE SOFTWARE.
511              
512              
513             =cut
514              
515             __PACKAGE__ -> init ($data);
516              
517             1;