Acme-MetaSyntactic-Themes
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/ben_and_jerry.pm view on Meta::CPAN
my $regex = {
current => qr{"name":"([^"]+)"},
retired => qr{<option value="([^"]+ )">\1</option>},
};
our %Remote = (
source => {
current => 'http://www.benjerry.com/flavors',
},
extract => sub {
return map { s/^10th/Tenth/; s/_+/_/g; s/_$//; $_ }
map { Acme::MetaSyntactic::RemoteList::tr_nonword($_) }
map { Acme::MetaSyntactic::RemoteList::tr_accent($_) }
map { s{(w)/}{$1ith }i; $_ }
$_[0] =~ m{$regex->{$_[1]}}gm;
},
);
1;
=head1 NAME
Acme::MetaSyntactic::ben_and_jerry - Ben & Jerry's Ice Cream Flavours
lib/Acme/MetaSyntactic/dilbert.pm view on Meta::CPAN
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.005';
__PACKAGE__->init();
our %Remote = (
source => 'http://www.triviaasylum.com/dilbert/diltriv.html',
extract => sub {
return
grep { $_ ne '' }
map { s/_+/_/g; s/^_//; $_ }
map { y!- '"/!____ !; s/\.//g; split ' ', lc }
$_[0] =~ m!<b>([^<]+)</b>!gm;
},
);
1;
=encoding iso-8859-1
=head1 NAME
lib/Acme/MetaSyntactic/donmartin.pm view on Meta::CPAN
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.005';
__PACKAGE__->init();
our %Remote = (
source => 'http://madcoversite.com/dmd-alphabetical.html',
extract => sub {
return
# split a few items that are way too long
map /CHIRP_TIK_TIK_KRIK_BREET_BREET_TOOD_TOOD_KRIDIT_KRIDIT_BREET/
? ( substr( $_, 0, 163 ), substr( $_, 164 ) )
: $_,
map /TIKAK_KAK_BINGCHIKA_CHUNK_THWIZZIK_ZAK/
? ( substr( $_, 0, 164 ), substr( $_, 165 ) )
: $_,
# pick and clean up items from the HTML table
map {
s/\s+/ /g;
# remove HTML
s/<[^>]+>//g;
s/&(?:hellip|nbsp);/_/g;
s/\(etc\. etc\.\)//g;
# do the "n times" math, but shorten items that are too long
s/twice/2 times/;
s/four times/4 times/;
lib/Acme/MetaSyntactic/good_omens.pm view on Meta::CPAN
and Precepts for the Wise,
by Neil Gaiman and Terry Pratchett.
=cut
{
my %seen;
__PACKAGE__->init(
{ names => join ' ',
grep { !$seen{$_}++ }
map { s/_+/_/g; $_ }
map { Acme::MetaSyntactic::RemoteList::tr_nonword($_) }
map { Acme::MetaSyntactic::RemoteList::tr_accent($_) }
map { /^=item\s+(.*?)\s*$/ ? $1 : () }
split /\n/ => <<'=cut'} );
=pod
=head1 DRAMATIS PERSONAE
=head2 SUPERNATURAL BEINGS
=over 4
lib/Acme/MetaSyntactic/iata.pm view on Meta::CPAN
package Acme::MetaSyntactic::iata;
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.007';
__PACKAGE__->init();
our %Remote = (
source => [
map [ 'https://www.avcodes.co.uk/aptlistres.asp' => "iataaptlst=$_" ],
'A' .. 'Z'
],
extract => sub { $_[0] =~ m{<tr><td>(\w+)</td>}g; },
);
1;
=head1 NAME
Acme::MetaSyntactic::iata - IATA airport codes
lib/Acme/MetaSyntactic/icao.pm view on Meta::CPAN
package Acme::MetaSyntactic::icao;
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.008';
__PACKAGE__->init();
our %Remote = (
source => [
map [ 'https://www.avcodes.co.uk/aptlistres.asp' => "icaoaptlst=$_" ],
'A' .. 'Z'
],
extract => sub { $_[0] =~ m{<tr><td>(\w+)</td>}g; },
);
1;
=head1 NAME
Acme::MetaSyntactic::icao - ICAO airport codes
lib/Acme/MetaSyntactic/invasions.pm view on Meta::CPAN
=back
=cut
{
my %seen;
__PACKAGE__->init(
{ names => join ' ',
grep { !$seen{$_}++ }
map { s/_+/_/g; $_ }
map { Acme::MetaSyntactic::RemoteList::tr_nonword($_) }
map { Acme::MetaSyntactic::RemoteList::tr_accent($_) }
map { /^=item\s+(.*?)\s*$/ ? $1 : () }
split /\n/ => <<'=cut'} );
=pod
=over 4
=item Al
Diversionary invasion of the Aleutians, in support of the invasion of Midway. Executed on 7th June 1942.
lib/Acme/MetaSyntactic/jabberwocky.pm view on Meta::CPAN
=cut
# include the poem in the documentation
{
my %seen;
__PACKAGE__->init(
{ names => join ' ',
grep { !$seen{$_}++ }
map {
/^(?:J(?:abberwock|ubjub)|Bandersnatch|Tumtum)$/ ? $_ : lc
}
map { Acme::MetaSyntactic::RemoteList::tr_nonword($_) }
map { (/([-\w]*\w)/g) }
grep { !/=pod/ }
split /\n/ => <<'=cut' } );
=pod
'Twas brillig, and the slithy toves
Did gyre and gimble in the wabe;
All mimsy were the borogoves,
And the mome raths outgrabe.
lib/Acme/MetaSyntactic/linux.pm view on Meta::CPAN
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.036';
our %Remote = (
source => 'http://distrowatch.com/',
extract => sub {
my @forms = $_[0] =~ m{<select [^>]+>(.*?)</select>}gs;
return
map {
s/\@/_at_/g; s/\+/_plus_/g;
s/^0/Zero/; s/^2/Two/; s/^3/Three/; s/^4/Four/;
s/^_|_$//g; s/_+/_/g;
$_
}
map { Acme::MetaSyntactic::RemoteList::tr_nonword($_) }
map { Acme::MetaSyntactic::RemoteList::tr_accent($_) }
map { Acme::MetaSyntactic::RemoteList::tr_utf8_basic($_) }
$forms[0] =~ m!<option value=".*?">([^<]+?)</option>!g;
}
);
__PACKAGE__->init();
1;
=head1 NAME
lib/Acme/MetaSyntactic/opcodes.pm view on Meta::CPAN
package Acme::MetaSyntactic::opcodes;
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.000';
# get the list from the current perl
use Opcode qw( opset_to_ops full_opset );
__PACKAGE__->init(
{ names => join( " ", map { uc "OP_$_" } opset_to_ops(full_opset) ) } );
1;
__END__
=head1 NAME
Acme::MetaSyntactic::opcodes - The Perl opcodes theme
=head1 DESCRIPTION
lib/Acme/MetaSyntactic/oulipo.pm view on Meta::CPAN
group Oulipo, created by Raymond Queneau (RQ) and François Le Lionnais
(FLL) in 1960. These initials are commonly used in place of a member's
full name.
See the official Oulipo web site at L<http://www.oulipo.net/>.
=cut
__PACKAGE__->init(
{ names => join ' ',
map join( '', /\b([A-Z])/g ),
grep /^[A-Z]/,
split /\n/, << '=cut' } );
=head2 Members
=over 4
=item *
Noël ARNAUD (1919-2003), founding member.
lib/Acme/MetaSyntactic/pause_id.pm view on Meta::CPAN
our $VERSION = '1.013';
my $names = eval {
require CPAN;
require CPAN::FirstTime;
no warnings 'redefine';
local *CPAN::Shell::myprint = sub { };
local *CPAN::Shell::print_ornamented = sub { };
local *CPAN::FirstTime::init = sub { };
CPAN::HandleConfig->load;
join ' ', map { y/-/_/; $_ } map $_->{ID},
$CPAN::META->all_objects('CPAN::Author')
};
# read from __DATA__ if CPAN.pm didn't return anything
__PACKAGE__->init( $names ? { names => $names } : () );
1;
=head1 NAME
lib/Acme/MetaSyntactic/pm_groups.pm view on Meta::CPAN
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.031';
__PACKAGE__->init();
our %Remote = (
source => 'http://www.pm.org/groups/perl_mongers.xml',
extract => sub {
return
map { Acme::MetaSyntactic::RemoteList::tr_nonword($_) }
map { Acme::MetaSyntactic::RemoteList::tr_accent($_) }
map { s/#/Pound_/g; $_ }
map { s/&([aeiouy])(?:acute|grave|circ|uml);/$1/g; $_ }
$_[0] =~ m!<group id="\d+" status="active">\s*<name>\s*([^<]+)\s*</nam!g;
},
);
1;
=head1 NAME
Acme::MetaSyntactic::pm_groups - The Perl Mongers groups theme
lib/Acme/MetaSyntactic/pokemon.pm view on Meta::CPAN
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
lib/Acme/MetaSyntactic/pornstars.pm view on Meta::CPAN
use Acme::MetaSyntactic::MultiList;
our @ISA = qw( Acme::MetaSyntactic::MultiList );
our $VERSION = '1.034';
__PACKAGE__->init();
our %Remote = (
source => 'https://en.wikipedia.org/wiki/List_of_pornographic_performers_by_decade',
extract => sub {
$_[0] =~ s/<h2>(?:<[^>]*>)?References<.*//s; # drop everything after references
my @items =
map { Acme::MetaSyntactic::RemoteList::tr_accent($_) }
map { Acme::MetaSyntactic::RemoteList::tr_utf8_basic($_) }
grep { ! /^List_|_Groups$/ }
map { s/[-\s'\x{2019}]/_/g; s/[."]//g; $_ }
grep $_,
$_[0] =~ m{^<h3><span[^>]*>((?:Fem|M)ale)</span>|^(?:<ul>)?<li>(?:<a [^>]*>)?(.*?)(?:(?: ?[-,(<]| aka | see ).*)?</li>}mig;
my ( $category, @list );
for (@items) {
if (/^(?:Fem|M)ale$/) { $category = lc; next; }
push @list, $_ if $category eq $_[1];
}
return @list;
},
,
lib/Acme/MetaSyntactic/regions.pm view on Meta::CPAN
Belait Brunei_Muara Temburong Tutong
# names bo
Chuquisaca Cochabamba El_Beni La_Paz Oruro Pando Potosi
Santa_Cruz Tarija
# names bq
Bonaire Saba Sint_Eustatius
# names br
Acre Alagoas Amapa Amazonas Bahia Ceara Distrito_Federal
Espirito_Santo Goias Maranhao Mato_Grosso Mato_Grosso_do_Sul
Minas_Gerais Para Paraiba Parana Pernambuco Piaui Rio_Grande_do_Norte
Rio_Grande_do_Sul Rio_de_Janeiro Rondonia Roraima Santa_Catarina
Sao_Paulo Sergipe Tocantins
# names bs
Acklins Acklins_and_Crooked_Islands Berry_Islands Bimini Bimini
Black_Point Cat_Island Cat_Island Central_Abaco Central_Andros
Central_Eleuthera City_of_Freeport Crooked_Island_and_Long_Cay
East_Grand_Bahama Exuma Exuma Freeport Fresh_Creek Governor_s_Harbour
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
package Acme::MetaSyntactic::services;
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.008';
__PACKAGE__->init();
our %Remote = (
source => 'http://www.insecure.org/nmap/data/nmap-services',
extract => sub {
return grep {/^\D/}
map { s/[#\s].*//; y!-:.+/*!_!; s/__+/_/g; $_ }
$_[0] =~ m!^(\S+)!gm;
},
);
1;
=head1 NAME
Acme::MetaSyntactic::services - The services theme
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
perl -ne 's/[#\s].*//;y/-/_/;$s{$_}++||print' /etc/services
For version 0.68, this was golfed a little more, by using the symbol
table as the hash table it is:
perl -ne 's/[#\s].*//;y/-/_/;$$_++||print' /etc/services
The reference list is given by the IANA, and available at
L<http://www.iana.org/assignments/port-numbers>.
A bigger services lists is used by B<nmap>:
L<http://www.insecure.org/nmap/data/nmap-services>.
This list is used to update the theme.
=head1 CONTRIBUTOR
Philippe "BooK" Bruhat.
=head1 CHANGES
=over 4
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
=item *
2014-10-13 - v1.002
Updated from the source web site in Acme-MetaSyntactic-Themes version 1.043.
=item *
2014-08-18 - v1.001
Changed the source link to use the services list from nmap,
as the I<graffiti.com> site seems to have disappeared.
Updated from the source web site in Acme-MetaSyntactic-Themes version 1.041.
=item *
2012-05-07 - v1.000
Received its own version number in Acme-MetaSyntactic-Themes version 1.000.
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
apollo_cc
apollo_data
apollo_gms
apollo_relay
apollo_status
apparenet_as
apparenet_tps
apparenet_ts
apparenet_ui
appiq_mgmt
apple_imap_admin
apple_iphoto
apple_licman
appleqtc
appleqtcsrvr
apple_sasl
appleugcontrol
apple_vpns_rp
apple_xsrvr_admin
appliance_cfg
applix
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
asmp
asmps
asnaacceler8db
asoki_sma
aspcoordination
aspeclmd
aspen_services
aspentec_lm
asprovatalk
asr
as_servermap
assoc_disc
assuria_ins
assuria_slm
assyst_dr
astergate_disc
asterix
astrolink
astromed_main
at_3
at_5
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
blockade_bpsp
blocks
blp2
blp3
blp4
blp5
blueberry_lm
bluectrlproxy
bluelance
blwnkl_port
bmap
bmc_ar
bmc_ctd_ldap
bmc_data_coll
bmc_ea
bmc_gms
bmc_grx
bmc_jmx_port
bmc_messaging
bmc_net_adm
bmc_net_svc
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
cardax
cardbox
cardbox_http
cardifftec_back
CardWeb_IO
carracho
carrius_rshell
cart_o_rama
cas
casanswmgmt
cas_mapi
casp
caspssl
casrmagent
castorproxy
catalyst
catchpole
caupc_remote
cautcpd
cawas
ca_web_update
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
dell_eql_asm
dellpwrappks
dell_rm_port
dellwebadmin_1
dellwebadmin_2
delos_dms
delta_mcp
denali_server
de_noc
deos
deploymentmap
derby_repli
descent3
de_server
deskshare
desktop_dna
deskview
deslogin
deslogind
de_spot
devbasic
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
ema_sent_lm
embl_ndt
emb_proj_cmd
embrace_dp_c
embrace_dp_s
emcads
emce
emc_gateway
emc_pp_mgmtsvc
emcrmirccd
emcsymapiport
emc_vcas_tcp
emc_vcas_udp
emc_xsw_dcache
emc_xsw_dconfig
e_mdu
emfis_cntl
emfis_data
emgmsg
emperion
empire_empuma
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
frc_mp
frcs
freeciv
freezexservice
fronet
fryeserv
fs_agent
fsc_port
fse
fs_mgmt
fsportmap
fs_qos
fsr
fs_rh_srv
fs_server
ftnmtp
ftp
ftp_agent
ftp_data
ftp_proxy
ftps
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
gbmt_stars
gbs_smp
gbs_stp
gc_config
gcm_app
gcmonitor
gcp_rphy
gcsp
gdbremote
gdoi
gdomap
gdp_port
gdrive_sync
gds_adppiw_db
gds_db
gearman
gemini_lm
geneous
generalsync
geneve
genie
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
hsl_storm
hs_port
hsrp
hsrpv6
htcp
htrust
http
http_alt
http_mgmt
http_proxy
http_rpc_epmap
https
https_alt
https_wmap
http_wmap
httpx
htuilsrv
hub_open_net
hughes_ap
husky
hybrid
hybrid_pop
hydap
hydra
hylafax
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
ida_discover2
idcp
ideafarm_door
ideafarm_panic
ideesrv
iden_ralp
ident
identify
idfp
idig_mux
idmaps
idmgratm
idonix_metanet
idotdist
idp
idp_infotrieve
idps
idrs
idtp
idware_router
idxp
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
iims
iiop
IIS
IISrpc_or_vat
iiw_port
ild
ill
ilss
imagepump
imagequery
imap
imap3
imap4_ssl
imaps
imdocsvc
imgames
imink
imip
imip_channels
immedianet_bcn
imoguia_port
impera
imprs
imqbrokerd
imqstomp
imqstomps
imqtunnel
imqtunnels
imsldoc
imsp
imtc_map
imtc_mcs
imyx
incognitorv
incp
index_net
index_pc_wb
indi
indigo_server
indigo_vbcp
indigo_vrmi
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
intelliadm_disc
intellistor_lm
intel_rci
intel_rci_mp
intelsync
interact
interactionweb
interbase
interhdl_elmd
interintelli
intermapper
interpathpanel
intersan
interserver
intersys_cache
interwise
interworld
intraintra
intrastar
int_rcv_cntrl
intrepid_ssl
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
ldp
lds_distrib
lds_dump
ldss
ldxp
lecroy_vicp
leecoposserver
legent_1
legent_2
leoip
lgtomapper
lhtp
libelle
liberty_lm
licensedaemon
LiebDevMgmt_A
LiebDevMgmt_C
LiebDevMgmt_DM
light
limnerpressure
link
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
lmp
lm_perfworks
lms
lmsocialserver
lm_sserver
lm_webwatcher
lm_x
lnvalarm
lnvconsole
lnvmailmon
lnvmaps
lnvpoller
lnvstatus
loadsrv
loaprobe
localinfosrvr
lockd
lockstep
locus_con
locus_disc
locus_map
lofr_lm
logcabin
login
lonewolf_lm
lontalk_norm
lontalk_urgnt
lonworks
lonworks2
loreji_panel
lorica_in
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
mailq
maincontrol
mainsoft_lm
maitrd
man
manage_exec
manet
manyone_http
manyone_xml
mao
mapper_mapethd
mapper_nodemgr
mapper_ws_ethd
mapx
marathontp
marcam_lm
markem_dcp
martalk
masc
masqdialer
matahari
matip_type_a
matip_type_b
matrix_vnet
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
mcs_mailsvr
mcs_messaging
mctet_gateway
mctet_jserv
mctet_master
mctfeed
mctp
mdap_port
mdbs_daemon
md_cg_http
mdc_portmapper
mdm
mdns
mdnsresponder
mdtp
mecomm
med_ci
medevolve
med_fsp_rx
med_fsp_tx
media_agent
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
mvel_lm
mvs_capacity
mvx_lm
m_wnn
mxi
mxit
mxodbc_connect
mxomss
mxxrlogin
myblast
mylex_mapd
mylxamport
mynahautostart
myq_termlink
myrtle
mysql
mysql_cluster
mysql_cm_agent
mysql_im
mysql_proxy
mysqlx
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
netinfo_local
netiq
netiq_endpoint
netiq_endpt
netiq_mc
netiq_ncap
netiq_qcheck
netiq_voipa
netlabs_lm
netmagic
netmap_lm
netml
netmo_default
netmo_http
netmon
netmount
netmpi
netnews
netobjects1
netobjects2
neto_dcs
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
nip
niprobe
nirp
nitrogen
ni_visa_remote
njenet_ssl
nkd
nlg_data
nlogin
nls_tl
nmap
nmasoverip
nm_asses_admin
nm_assessor
nmc_disc
nmea_0183
nmea_onenet
nm_game_admin
nm_game_server
nmmp
nms
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
pcduo_old
pcep
pciarray
pcia_rxp_b
pcihreq
pcle_infex
pclemultimedia
pcm
pcmail_srv
pcmk_remote
pc_mta_addrmap
pcnfs
pcoip
pcoip_mgmt
pconnectmgr
pcptcpservice
pcs_pcw
pcs_sf_ui_man
pcsync_http
pcsync_https
pc_telecommute
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
pvsw_inet
pvuniwien
pvxpluscs
pvxplusio
pwdgen
pwdis
pwgippfax
pwgpsi
pwgwims
pwrsevent
pxc_epmap
pxc_ntfy
pxc_pin
pxc_roid
pxc_sapxom
pxc_splr
pxc_splr_ft
pxc_spvr
pxc_spvr_ft
pyrrho
pythonds
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
rmonitor
rmonitor_secure
rmopagt
rmpp
rmt
rmtserver
rna
rna_lm
rndc
rnm
rnmap
rnrp
robcad_lm
robix
roboeda
roboer
robotraconteur
robot_remote
roce
rockwell_csp1
rockwell_csp2
rocrail
roketz
rome
rootd
rothaga
route
routematch
roverlog
rpasswd
rpc2portmap
rpcbind
rpi
rpki_rtr
rpki_rtr_tls
rplay
rp_reputation
rprt
rrac
rrdp
rrh
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
rs_rmi
rs_status
rsvd
rsvp_encap_1
rsvp_encap_2
rsvp_tunnel
rsync
rt_classmanager
rtcm_sc104
rtc_pm_port
rt_devicemapper
rtelnet
rt_event
rt_event_s
rt_helper
rtimeviewer
rtip
rt_labtracker
rtmp
rtmp_port
rtnt_1
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
sdfunc
sdhelp
sdl_ets
sdlog
sdmmp
sdnskmp
sdo
sdo_ssh
sdo_tls
sdp_id_port
sdp_portmapper
sdproxy
sdr
sdreport
sd_request
sds
sds_admin
sdsc_lm
sdserv
sdserver
sdt
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
secure_aux_bus
secure_cfg_svr
secureidprop
secure_mqtt
securenetpro_sensor
secure_ts
securid
securitychase
seispoc
semantix
semaphore
semi_grpc
send
senip
senomix01
senomix02
senomix03
senomix04
senomix05
senomix06
senomix07
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
skronk
skynetflow
skytelnet
sky_transport
slc_ctrlrloops
slc_systemlog
slim_devices
slingshot
slinkysearch
slinterbase
slmap
slm_api
slnp
slp
slp_notify
slscc
slslavemon
slush
smaclmgr
smakynet
smallchat
smap
smar_se_port1
smar_se_port2
smartcard_port
smartcard_tls
smart_diagnose
smart_install
smart_lm
smartpackets
smartsdp
sma_spw
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
socks
socorfs
socp_c
socp_t
softaudit
softcm
softdataphone
softpc
softrack_meter
solaris_audit
solera_epmap
solera_lpn
solid_e_engine
solid_mux
solve
sometimes_rpc1
sometimes_rpc10
sometimes_rpc11
sometimes_rpc12
sometimes_rpc13
sometimes_rpc14
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
tsaf
tsb
tsb2
tscchat
tsdos390
tsepisp
tserver
tsilb
tsp
tsrmagt
tsspmap
ttat3lb
ttc
ttc_etap
ttc_etap_ds
ttc_etap_ns
ttcmremotectrl
ttc_ssl
ttg_protocol
ttlpriceproxy
ttl_publisher
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
xingmpeg
xinuexpansion1
xinuexpansion2
xinuexpansion3
xinuexpansion4
xinupageserver
xiostatus
xkotodrcp
xlog
xmail_ctrl
xmapi
xmcp
xmlblaster
xmlink_connect
XmlIpcRegSvc
xmlrpc_beep
xmltec_xmlmail
xmms2
xmp
xmpcr_interface
xmpp
lib/Acme/MetaSyntactic/simpsons.pm view on Meta::CPAN
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.002';
__PACKAGE__->init();
our %Remote = (
source => 'https://simpsons.fandom.com/wiki/Portal:All_Simpson_Characters',
extract => sub {
my $i = 1;
return
grep !/^(?:The_Simpsons|Simpson_family)$/, map {
s/%26/and/g;
s/%27//g;
s/%C3%9C/U/g;
s/%C3%A9/e/g;
s/%C3%B6/o/g;
s/%C3%BC/u/g;
s/5th/Fifth/g;
s/4/Four/g;
y/-().,/_/d;
$_;
lib/Acme/MetaSyntactic/simpsons.pm view on Meta::CPAN
Amber_Simpson
American_Spy
Amish_Man
Anastasia
Andy_Hamilton
Angelica
Angelica_Button
Annie_Ant
Annie_Dubinsky
Annika_Van_Houten
Anoop_Nahasapeemapetilon
Apu_Nahasapeemapetilon
Apu_Nahasapeemapetilon_Sr
Aristotle_Amadopolis
Arnie_Pye
Arnold_Schwarzenegger
Arthur_Crandall
Arthur_Student
Artie_Ziff
Art_teacher
Ashley
Audrey_McConnell
Augusta_Flanders
lib/Acme/MetaSyntactic/simpsons.pm view on Meta::CPAN
Gary_nerd
Gary_the_Unicorn
Gavin
Gay_Colonel
Geech
General_Sherman
Gentle_Ben
George_Burns_character
Gerald_Samson
German_Santa_Girl
Gheet_Nahasapeemapetilon
Gil_Gunderson
Gina_Vendetti
Ginger_Flanders
Gino_Terwilliger
Girl_with_glasses
Girl_with_ponytail
Gitmo_Spuckler
Giuseppe
Gladys_Gurney
Gloria_Jailbird
lib/Acme/MetaSyntactic/simpsons.pm view on Meta::CPAN
Jose_Flanders
Judge_Constance_Harm
Judge_Muntz
Jug_Band_Manager
Juliet_Hobbes
Julio
Julius_Hibbert
Just_Stamp_the_Ticket_Man
Kamala
Kang
Kavi_Nahasapeemapetilon
Kearney_Zzyzwicz
Kearney_Zzyzwicz_Jr
Kent_Brockman
Kevin_Stealing_First_Base
Khlav_Kalash_vendor
Killhammad_Aieee
King_Snorky
Kirk_Van_Houten
Kissing_Fish
Kodos
lib/Acme/MetaSyntactic/simpsons.pm view on Meta::CPAN
Lumpy
Lurleen_Lumpkin
Lyla
Lyle_Lanley
Mabel_Simpson
MacArthur_Parker
Maggie_Simpson
Maggie_Simpson_Jr
Male_Twin
Malicious_Krubb
Manjula_Nahasapeemapetilon
Marcel_Bouvier
Marge_Simpson
Martha_Prince
Martha_Quimby
Martin_Prince
Martin_Prince_Sr
Marty_KBBL_DJ
Marvin_Monroe
Mary_Bailey
Mary_Frowning_Cloud
lib/Acme/MetaSyntactic/simpsons.pm view on Meta::CPAN
Ms_Albright
Ms_Barr
Ms_Cantwell
Ms_Myles
Ms_Phipps
Mugger
Multi_eyed_squirrel
Murderpuss
Mutant_Peacock
Myra
Nabendu_Nahasapeemapetilon
Nana_Sophie_Mussolini
NASA_Chimp
Ned_Flanders
Nedgar_Flanders
Nediana_Flanders
Nedmond_Flanders
Nedna_Flanders
Neduchadnezzar_Flanders
Nedward_Flanders_Sr
Nedwynn_Flanders
lib/Acme/MetaSyntactic/simpsons.pm view on Meta::CPAN
Norman_Van_Horne
Number_51
Number_One
Old_Jewish_Man
Opal
Orville_Simpson
Otto_Graycomb
Otto_Mann
Oxycontin_Spuckler
Ozmodiar
Pahusacheta_Nahasapeemapetilon
Parkfield_Servant_1
Parkfield_Servant_2
Patches
Patty_Bouvier
Pediculus_Spuckler
Pepe_Bouvier
Pepita_Hernandez
Pete_Spuckler
Phillips
Photo_Girl
Pigeon_Rat
Ping_Ping
Pippa_Simpson
Playground_ghost
Plopper
Pokey
Poochie
Poonam_Nahasapeemapetilon
Poor_Violet
Popular_Girl_1
Popular_Girl_2
Popular_Girl_3
Popular_Girl_Four
Portuguese_Boy
Pria_Nahasapeemapetilon
Princess_Kashmir
Princess_Penelope
Probe_Alien
Professor_Lombardo
Professor_Werner_von_Brawn
Prudence_Simpson
Prune_Juice_Nerd
Pyro
Q_Bert_Spuckler
Queenie
lib/Acme/MetaSyntactic/simpsons.pm view on Meta::CPAN
Roy
Roy_Snyder
Rubella_Scabies_Spuckler
Rumor_Spuckler
Rupert_Simpson
Russ_Cargill
Ruth_Powers
Sailor_Kid
Samantha_Stankey
Sam_barfly
Sandeep_Nahasapeemapetilon
Sandwich_Delivery_Guy
Sanjay_Nahasapeemapetilon
Sarah_Wiggum
Sara_Sloane
Sara_Student
Sashi_Nahasapeemapetilon
Saul_Bernstein
Scott_Christian
Scout_Spuckler
Scratchy
Screamapillar
Sebastian_Cobb
Selma_Bouvier
Serak_the_Preparer
Sex_Toy
Sexy_Assistant
Seymour_Skinner
Seymour_Skinner_real
Shary_Bobbins
Shauna_Chalmers
She_Biscuit
lib/Acme/MetaSyntactic/simpsons.pm view on Meta::CPAN
Tripod_Spuckler
Trixie_Simpson
Troy_McClure
Truckasaurus
Tumi
Two_Headed_Dog
Two_nicorn
Tyrone_Simpson
Ugolin
Ultrahouse_3000
Uma_Nahasapeemapetilon
Unborn_Spuckler_Baby
Unicorn_Wizard
Unnamed_blonde_haired_girl
Unnamed_girl_with_red_glasses
Unnamed_Latino_Man
Unnamed_smoking_man
Unnamed_Spuckler_Baby
Uter_Zorker
Veterinarian
Vicious_Monkeys
lib/Acme/MetaSyntactic/sins.pm view on Meta::CPAN
=item *
English: L<http://www.raptureready.com/faq/faq222.html>.
=item
Dutch: L<http://www.allesopeenrij.nl/index.html>.
=item *
French: L<http://mapage.noos.fr/lesaviezvous/cps/seven.htm>.
=back
=head1 CONTRIBUTORS
Abigail, Philippe Bruhat (BooK).
=head1 CHANGES
=over 4
lib/Acme/MetaSyntactic/tld.pm view on Meta::CPAN
jaguar java jcb jcp jeep jetzt jewelry jio jlc jll jmp jnj joburg jot
joy jpmorgan jprs juegos juniper
kaufen kddi kerryhotels kerrylogistics kerryproperties kfh kia kim kinder
kindle kitchen kiwi koeln komatsu kosher kpmg kpn krd kred kuokgroup kyoto
lacaixa ladbrokes lamborghini lamer lancaster lancia lancome land
landrover lanxess lasalle lat latino latrobe law lawyer lds lease leclerc
lefrak legal lego lexus lgbt liaison lidl life lifeinsurance lifestyle
lighting like lilly limited limo lincoln linde link lipsy live living
lixil llc llp loan loans locker locus loft lol london lotte lotto love lpl
lplfinancial ltd ltda lundbeck lupin luxe luxury
macys madrid maif maison makeup man management mango map market marketing
markets marriott marshalls maserati mattel mba mcd mcdonalds mckinsey med
media meet melbourne meme memorial men menu meo merckmsd metlife miami
microsoft mini mint mit mitsubishi mlb mls mma mobi mobile mobily moda
moe moi mom monash money monster montblanc mopar mormon mortgage moscow
moto motorcycles mov movie movistar msd mtn mtpc mtr mutual mutuelle
nab nadex nagoya nationwide natura navy nba nec netbank netflix
network neustar new newholland news next nextdirect nexus nfl ngo nhk
nico nike nikon ninja nissan nissay nokia northwesternmutual norton now
nowruz nowtv nra nrw ntt nyc
obi observer off office okinawa olayan olayangroup oldnavy ollo omega one
lib/Acme/MetaSyntactic/tmnt.pm view on Meta::CPAN
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.001';
__PACKAGE__->init();
our %Remote = (
source => ['http://www.ninjaturtles.com/html/profiles.htm',
'http://www.ninjaturtles.com/html/profiles02.htm'],
extract => sub {
return
map { s/\W+/_/g; $_ }
map { split /\s+&\s+/ }
$_ [0] =~ m{<a href="/html/profile?\d+.htm">([^<]+)</a>}g
}
);
1;
=head1 NAME
Acme::MetaSyntactic::tmnt - The Teenage Mutant Ninja Turtles theme
lib/Acme/MetaSyntactic/tokipona.pm view on Meta::CPAN
package Acme::MetaSyntactic::tokipona;
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.001';
__PACKAGE__->init();
our %Remote = (
source => 'http://tokipona.net/tp/ClassicWordList.aspx',
extract => sub {
map { split /, / }
$_[0] =~ m{<a name="(\w+)">}mg;
},
);
1;
=head1 NAME
Acme::MetaSyntactic::tokipona - Words from the Toki Pona language
lib/Acme/MetaSyntactic/tour_de_france.pm view on Meta::CPAN
The winners from 1903 onwards are:
=cut
{
my %seen;
__PACKAGE__->init(
{ names => join ' ',
grep { !$seen{$_}++ }
map { Acme::MetaSyntactic::RemoteList::tr_nonword($_) }
map { Acme::MetaSyntactic::RemoteList::tr_accent($_) }
map { /^\s+\d+\s+(.*?)\s+\w+$/ ? $1 : () }
split /\n/ => <<'=cut'} );
=pod
2016 Christopher Froome GBR
2015 Christopher Froome GBR
2014 Vincenzo Nibali ITA
2013 Christopher Froome GBR
2012 Bradley Wiggins GBR
2011 Cadel Evans AUS
lib/Acme/MetaSyntactic/unicode.pm view on Meta::CPAN
package Acme::MetaSyntactic::unicode;
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.001';
{
# a very basic list
my $data = join "\n",
map { ( "\t\tLATIN CAPITAL LETTER $_", "\t\tLATIN SMALL LETTER $_" ) }
'A' .. 'Z';
# try to find better
if ( $] >= 5.006 && $] < 5.007003 ) {
eval { $data = require 'unicode/Name.pl'; };
}
elsif ( $] >= 5.007003 ) {
eval { $data = require 'unicore/Name.pl'; };
# since v5.11.3, unicore/Name.pl creates subroutines
# they end up in our namespace, so get rid of them
undef *code_point_to_name_special;
undef *name_to_code_point_special;
}
# clean up the list
my %seen;
$data = join ' ',
grep !$seen{$_}++, # we might have aliases/duplicates
map { s/ \(.*\)//; y/- /_/; $_ }
grep { $_ ne '<control>' } # what's this for a character name?
map { my @F = split /\t+/; @F > 2 ? () : $F[1] } # remove blocks
split /\n/, $data;
__PACKAGE__->init( { names => $data } );
}
1;
__END__
=for irony
lib/Acme/MetaSyntactic/us_presidents.pm view on Meta::CPAN
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
lib/Acme/MetaSyntactic/viclones.pm view on Meta::CPAN
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.000';
__PACKAGE__->init();
our %Remote = (
source => 'http://www.guckes.net/vi/clones.php3',
extract => sub {
return
map { y!- /!__!d; /clone/ ? () : $_ }
$_[0] =~ /^<dt>\s*([^[\n\(]+?)(?:\s*\([^)]+\))?\s*\[/gm;
},
);
1;
=head1 NAME
Acme::MetaSyntactic::viclones - The C<vi> clones theme
lib/Acme/MetaSyntactic/wales_towns.pm view on Meta::CPAN
our $VERSION = '1.014';
__PACKAGE__->init();
our %Remote = (
source => 'http://en.wikipedia.org/wiki/List_of_towns_in_Wales',
extract => sub {
my $list = shift;
$list =~ s{\A.*<span class="mw-headline" id="A">A</span>}{}s;
$list =~ s{<span [^>]*>Notes</span>.*}{}s;
$list =~ s{<span [^>]*>See also</span>.*}{}s;
return map { s/_+/_/g; s/^_|_$//g; $_ }
map { Acme::MetaSyntactic::RemoteList::tr_nonword($_) }
$list =~ m{<a href="/wiki/[^"]*" title="[^"]*"[^>]*>([^<]+)</a>}g;
},
);
1;
=head1 NAME
Acme::MetaSyntactic::wales_towns - Towns in Wales
lib/Acme/MetaSyntactic/weekdays.pm view on Meta::CPAN
mandag tirsdag onsdag torsdag fredag lordag sondag
# names el
devtera triti tetarti pempti paraskevi sabbato kyriaki
# names en
monday tuesday wednesday thursday friday saturday sunday
# names eo
lundo mardo merkredo jaudo vendredo sabato dimanco
# names es
lunes martes miercoles jueves viernes sabado domingo
# names et
esmapaev teisipaev kolmapaev neljapaev reede laupaev puhapaev
# names eu
astelehena asteartea asteazkena osteguna ostirala larunbata igandea
# names fi
maanantai tiistai keskiviikko torstai perjantai lauantai sunnuntai
# names fr
lundi mardi mercredi jeudi vendredi samedi dimanche
# names gd
di_luain di_mairt di_ciadain di_ardaoin di_haoine di_sathurna di_domhnaich
# names it
lunedi martedi mercoledi giovedi venerdi sabato domenica
lib/Acme/MetaSyntactic/weekdays.pm view on Meta::CPAN
mandag tirsdag onsdag torsdag fredag lordag sondag
# names pl
poniedzialek wtorek sroda czwartek piatek sobota niedziela
# names pt
segunda_feira terca_feira quarta_feira quinta_feira sexta_feira sabado domingo
# names ru
ponedelnik vtornik sreda chetverg pyatnitsa subbota voskresene
# names se
mandag tisdag onsdag torsdag fredag lordag sondag
# names sw
jumatatu jumanne jumatano alhamisi ijumaa jumamosi jumapili
# names tl
lunes martes miyerkoles huwebes biyernes sabado linggo
# names x-pataphysical
lundi mardi mercredi jeudi vendredi samedi hunyadi dimanche
# names yi
montik dinstik mitvokh donershtik fraytik shabes zuntik
t/00-compile.t view on Meta::CPAN
use IO::Handle;
open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
my @warnings;
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
my @_warnings = <$stderr>;
waitpid($pid, 0);
is($?, 0, "$lib loaded ok");
shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/
t/00-report-prereqs.t view on Meta::CPAN
if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
push @dep_errors, "$mod is not installed ($req_string)";
}
}
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
else {
splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;
}
push @full_reports, "\n";
}
}
}
if ( @full_reports ) {
diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports;
}
( run in 0.830 second using v1.01-cache-2.11-cpan-49f99fa48dc )