Acme-MetaSyntactic-Themes-Abigail

 view release on metacpan or  search on metacpan

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

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

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

The winners of the I<< Tour de France >>, held annually since 1903, and
suspended due to World War I and World War II:

=cut

$$data {names} {tour} = 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

  2013      Chris Froome          GBR
  2012      Bradley Wiggins       GBR
  2011      Cadel Evans           AUS
  2010      Andy Schleck          LUX
  2009      Alberto Contador      ESP
  2008      Carlos Sastre         ESP

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

The winners of the I<< Giro d'Italia >>, held annually since 1909, and
suspended due to World War I and World War II:

=cut

$$data {names} {giro} = 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

  2013      Vincenzo Nibali       ITA
  2012      Ryder Hesjedal        CAN
  2011      Michele Scarponi      ITA
  2010      Ivan Basso            ITA
  2009      Denis Menchov         RUS
  2008      Alberto Contador      ESP

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

The winners of the I<< Vuelta a EspaE<241>a >>, held since 1935, annually 
since 1955:

=cut

$$data {names} {vuelta} = 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   Alberto Contador      ESP
  2011   Juan José Cobo        ESP
  2010   Vincenzo Nibali       ITA
  2009   Alejandro Valverde    ESP
  2008   Alberto Contador      ESP
  2007   Denis Menchov         RUS

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

the moon. Twelve people have walked on the moon.

=head2 Moonwalkers

The following people have walked on the moon:

=cut

__PACKAGE__ -> init ({
    names  =>  join ' ',
               map {s/__+/_/g; $_}
               map {Acme::MetaSyntactic::RemoteList::tr_nonword ($_)}
               map {Acme::MetaSyntactic::RemoteList::tr_accent  ($_)}
               map {/^\s+(\S+\s+(?:\w\.\s+)?\S+)/ ? $1 : ()}
               split /\n/ => <<'=cut' });

=pod

  Neil Armstrong            Apollo 11      July 21, 1969
  Buzz Aldrin

  Pete Conrad               Apollo 12      November 19 & 20, 1969
  Alan Bean

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

OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
THE SOFTWARE.


=cut

my $primes;

if (eval "require Lingua::EN::Numbers") {
    $primes = join ' ' =>
        map {Acme::MetaSyntactic::RemoteList::tr_nonword
                  (Lingua::EN::Numbers::num2en ($_))} qw [
             2      3      5      7     11     13     17     19     23     29
            31     37     41     43     47     53     59     61     67     71
            73     79     83     89     97    101    103    107    109    113
           127    131    137    139    149    151    157    163    167    173
           179    181    191    193    197    199    211    223    227    229
           233    239    241    251    257    263    269    271    277    281
           283    293    307    311    313    317    331    337    347    349
           353    359    367    373    379    383    389    397    401    409
           419    421    431    433    439    443    449    457    461    463

t/980_versions.t  view on Meta::CPAN

        fail "Did not find a version in $base; skipping tests";
        next;
    }

    pass "Found version $version in $base";

    ok $version le $main_version,
      "      It does not exceed package version";
}

my %monthmap = qw [Jan 01 Feb 02 Mar 03 Apr 04 May 05 Jun 06
                   Jul 07 Aug 08 Sep 09 Oct 10 Nov 11 Dec 12];

if (open my $fh, "<", "Changes") {
    my $first = <$fh>;
    if ($first =~
       /^Version ([0-9]{10}) \S+ (\S+) +([0-9]{0,2}) \S+ \S+ ([0-4]{4})/) {
        my ($version, $month, $date, $year) = ($1, $2, $3, $4);
        pass "Version line in Changes file formatted ok";
        my $target = sprintf "%04d%02d%02d" => $year, $monthmap {$month}, $date;
        is substr ($version, 0, 8), $target => "      Version and date match";
        is $version, $main_version => "      Version matches package version";
    }
    else {
        fail "First line of Changes files correctly formatted: $first";
    }
}
else {
    fail "Failed to open Changes file: $!"
}

t/984_pod.t  view on Meta::CPAN

undef $ENV {PATH};
my $FIND  = "/usr/bin/find";
my $CAT   = "/bin/cat";

my $top   = -d "blib" ? "blib/lib" : "lib";
my @files = `$FIND $top -name [a-z_]*.pm`;
chomp @files;

my @skip  = `$CAT MANIFEST.SKIP`;
chomp @skip;
my %skip  = map {$_ => 1} @skip;

my $main  = "$top/Acme/MetaSyntactic/Themes/Abigail.pm";

open my $fh, "<", $main or do {
    fail "Open $main: $!";
    done_testing;
    exit;
};

undef $/;