view release on metacpan or  search on metacpan

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

package Acme::MetaSyntactic::pokemon;
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.009';
__PACKAGE__->init();

our %Remote = (
    source =>
        'http://en.wikipedia.org/wiki/List_of_Pok%C3%A9mon',
    extract => sub {
        my %by_idx =
            $_[0] =~ m!^<td[^>]*>([0-9]{3})</td>\n<td[^>]*><a href="/wiki/[^>]+" [^>]*title="[^>]+">([^<]+)</a>!gm;
        return    # support for Unicode female/male symbols
            map { tr/-'.: /_/s; s/_$//; $_ }
            map { Acme::MetaSyntactic::RemoteList::tr_accent($_) }
            map { Acme::MetaSyntactic::RemoteList::tr_utf8_basic($_) }
            map { s/Nidoran/Nidoran /; $_ }
            map $by_idx{$_}, sort keys %by_idx;
    },
);

1;

=encoding iso-8859-1

=head1 NAME

Acme::MetaSyntactic::pokemon - The Pokémon theme

=head1 DESCRIPTION

List of the 802 Pokémon characters that are officially known to exist
in the franchise.

This list is based on the following wikipedia article:
L<http://en.wikipedia.org/wiki/List_of_Pok%C3%A9mon>.

=head1 CONTRIBUTORS

Abigail, Philippe Bruhat (BooK)

=head1 CHANGES

=over 4

=item *

2017-11-13 - v1.009

Fixed the regular expression used to extract the pokemon names from Wikipedia
in Acme-MetaSyntactic-Themes version 1.051.

=item *

2017-06-12 - v1.008

Updated with "Pokémon Generation VII"
in Acme-MetaSyntactic-Themes version 1.050.

=item *

2016-03-21 - v1.007

Updated with "The Mythical Pokémons" Volcanion and Magearna
in Acme-MetaSyntactic-Themes version 1.049.

=item *

2015-02-02 - v1.006

Updated with "The Mythical Pokémon Hoopa"
in Acme-MetaSyntactic-Themes version 1.045.

=item *

2014-06-16 - v1.005

Fixed the transformation script to properly deal with accented letters,