view release on metacpan or  search on metacpan

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

package Acme::MetaSyntactic::daleks;
use strict;
use warnings;
use Acme::MetaSyntactic::List;
use vars qw(%Remote);

{
    no strict "vars";
    $VERSION = '1.05';
    @ISA = qw(Acme::MetaSyntactic::List);
}

*_tr_nonword = \&Acme::MetaSyntactic::RemoteList::tr_nonword;

sub _uniq { return keys %{ { map { $_ => 1 } @_ } } }

%Remote = (
    source  => "http://maddingue.org/daleks/movies.txt",
    extract => sub {
        return sort _uniq(
            map { $_ = _tr_nonword($_) ; s/^_+|_+$//g ; s/_+/_/g ; $_ }
                grep { !/^\d/ }
                    grep { length }
                        split "\012", shift
        )
    },
);

__PACKAGE__->init();

q!EXTERMINATE!;

=head1 NAME

Acme::MetaSyntactic::daleks - EXTERMINATE! EXTERMINATE! EXTERMINATE!

=head1 VERSION

Version 1.05

=head1 SYNOPSIS

See L<Acme::MetaSyntactic>.

=head1 DESCRIPTION

A list of movies for the Daleks. A collective work of C<#perl>.
See L<http://use.perl.org/~statico/journal/21689>

I've tried to remove all the duplicates and comments I could find, 
but there are probably still a few left. The source file used to
generate this module is located at L<http://maddingue.org/daleks/movies.txt>.
Don't hesitate to send patch to remove duplicate or wrong entries,
or to propose new entries.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Acme::MetaSyntactic::daleks

You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Acme-MetaSyntactic-daleks>

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/Acme-MetaSyntactic-daleks>

=item * CPAN Ratings

L<http://cpanratings.perl.org/d/Acme-MetaSyntactic-daleks>

=item * Search CPAN

L<http://search.cpan.org/dist/Acme-MetaSyntactic-daleks>