File Coverage

blib/lib/Acme/MetaSyntactic/daleks.pm

Criterion	Covered	Total	%
statement	15	18	83.3
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	20	24	83.3

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.

=head1 DESCRIPTION

A list of movies for the Daleks. A collective work of C<#perl>.
See L

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.
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

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=item * Search CPAN

L

=back

=head1 SEE ALSO

L

=head1 COPYRIGHT & LICENSE

Copyright 2007 SEbastien Aperghis-Tramoni, all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

__DATA__