view release on metacpan or  search on metacpan

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

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

our %Remote = (
    source  => 'https://www.whitehouse.gov/1600/Presidents',
    extract => sub {
        return
            map { s/(?:,| the [1-9]).*//; y'- .'_'; s/_+/_/g; s/_+\z//; s/\b(.)/uc $1/eg; $_ }
	    #grep { !/^(?:BEGIN|END)$/ }
	    #$_[0] =~ /"Portrait of ([^"]+)"/g;
	    $_[0] =~ m{<h3 class="acctext--con grid-item__title h4alt">\s*([^<]+?)\s*</h3>}g;
    }
);

1;

=head1 NAME

Acme::MetaSyntactic::us_presidents - The presidents of the USA theme

=head1 DESCRIPTION

Presidents of the USA.

This list is based on the official White House list, available at:
L<https://www.whitehouse.gov/1600/Presidents>.

=head1 CONTRIBUTOR

Abigail

=head1 CHANGES

=over 4

=item *

2021-04-30 - v1.002

Updated with the new US president since 2017
in Acme-MetaSyntactic-Themes version 1.055.

=item *

2017-06-12 - v1.001

Updated with the new US president since 2012
in Acme-MetaSyntactic-Themes version 1.050.

=item *

2012-05-07 - v1.000

Updated with the new US president since 2008, and
received its own version number in Acme-MetaSyntactic-Themes version 1.000.

=item *

2006-01-16

Updated (correction of a typo) by Abigail again
in Acme-MetaSyntactic version 0.57.

=item *

Introduced in Acme-MetaSyntactic version 0.52, published on December 12, 2005.

=item *