Result:
found more than 680 distributions - search limited to the first 2001 files matching your query
( run in 0.825 )
Acme-Crap
view release on metacpan or search on metacpan
lib/Acme/Crap.pm view on Meta::CPAN
overload::constant q => sub { my $val = $_[1]; bless \$val, 'Acme::Crap' };
no strict qw( refs );
*{caller().'::crap'} = sub {
local $Acme::Crap::no_negation = 1;
@_ = map {"$_"} @_;
goto &Carp::carp;
}
}
package Acme::Crap::Negated;
lib/Acme/Crap.pm view on Meta::CPAN
sub value {
my ($self) = @_;
if ($Acme::Crap::no_negation) {
return $self->{degree} == 1 ? ucfirst "$self->{val}!"
: $self->{degree} == 2 ? join q{}, map { ucfirst $_ } split /(\s+)/, "$self->{val}!!"
: uc $self->{val} . '!' x $self->{degree};
}
return !$self->{val} if $self->{degree} % 2;
return !!$self->{val};
}
Acme-Dahut-Call
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
use vars qw{$VERSION};
BEGIN {
$VERSION = '1.03';
}
# special map on pre-defined feature sets
my %FeatureMap = (
'' => 'Core Features', # XXX: deprecated
'-core' => 'Core Features',
);
inc/Module/AutoInstall.pm view on Meta::CPAN
my $maxlen = length(
(
sort { length($b) <=> length($a) }
grep { /^[^\-]/ }
map {
ref($_)
? ( ( ref($_) eq 'HASH' ) ? keys(%$_) : @{$_} )
: ''
}
map { +{@args}->{$_} }
grep { /^[^\-]/ or /^-core$/i } keys %{ +{@args} }
)[0]
);
while ( my ( $feature, $modules ) = splice( @args, 0, 2 ) ) {
inc/Module/AutoInstall.pm view on Meta::CPAN
if (
defined( my $cur = _version_check( _load($mod), $arg ||= 0 ) ) )
{
print "loaded. ($cur" . ( $arg ? " >= $arg" : '' ) . ")\n";
push @Existing, $mod => $arg;
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
print "missing." . ( $arg ? " (would need $arg)" : '' ) . "\n";
push @required, $mod => $arg;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
) =~ /^[Yy]/
)
)
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
elsif ( !$SkipInstall
and $default
and $mandatory
and
_prompt( qq{==> The module(s) are mandatory! Really skip?}, 'n', )
=~ /^[Nn]/ )
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
$DisabledTests{$_} = 1 for map { glob($_) } @tests;
}
}
$UnderCPAN = _check_lock(); # check for $UnderCPAN
inc/Module/AutoInstall.pm view on Meta::CPAN
sub install {
my $class = shift;
my $i; # used below to strip leading '-' from config keys
my @config = ( map { s/^-// if ++$i; $_ } @{ +shift } );
my ( @modules, @installed );
while ( my ( $pkg, $ver ) = splice( @_, 0, 2 ) ) {
# grep out those already installed
inc/Module/AutoInstall.pm view on Meta::CPAN
}
$args{test}{TESTS} ||= 't/*.t';
$args{test}{TESTS} = join( ' ',
grep { !exists( $DisabledTests{$_} ) }
map { glob($_) } split( /\s+/, $args{test}{TESTS} ) );
my $missing = join( ',', @Missing );
my $config =
join( ',', UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
if $Config;
Acme-Daily-Fail
view release on metacpan or search on metacpan
lib/Acme/Daily/Fail.pm view on Meta::CPAN
$sentence[1] = $subject->[WORD];
$sentence[2] = _match_verb_and_tense($verb, $phrase);
$sentence[3] = $object;
$sentence[4] = $phrase->[OBJECT] if $phrase->[OBJECT];
my $s = join ' ', map { uc } @sentence;
$s .= '?';
return $s;
}
Acme-Damn
view release on metacpan or search on metacpan
# throw an error message informing the user where the problem is
my ( undef, $file , $line ) = caller 0;
die sprintf( "Bad choice of symbol name%s %s for import at %s line %s\n"
, ( @bad == 1 ) ? '' : 's'
, join( ', ' , map { qq|'$_'| } @bad ) , $file , $line );
}
# remove duplicates from the list of aliases, as well as those symbol
# names listed in @EXPORT
# - we keep @EXPORT_OK in a separate list since they are optionally
keys %_
};
# 'import' the symbols into the host package
# - ensure 'EXPORT_OK' is correctly honoured
my %reserved = map { $_ => 1 } @EXPORT , @EXPORT_OK;
my @reserved = ();
my ( $pkg ) = caller 1;
foreach my $alias ( @aliases ) {
# if this alias is a reserved symbol as defined by @EXPORT et al.
# then add it to the list of symbols to export
Acme-DarmstadtPM-TieHash
view release on metacpan or search on metacpan
t/02_base.t view on Meta::CPAN
);
my @keys = keys %hash;
is scalar( @keys ), 3, 'three keys in %hash';
is_deeply [ sort map { join '', @{$_} }@keys ], [ sort keys %check ], 'Check remaining keys';
while ( my ($key, $value) = each %hash ) {
my $tmp_key = join '', @{$key};
is $value, $check{$tmp_key}, "Check value for $key";
}
Acme-DateTime-Duration-Numeric
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
delete $args->{SIGN};
}
# merge both kinds of requires into prereq_pm
my $prereq = ($args->{PREREQ_PM} ||= {});
%$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
($self->build_requires, $self->requires) );
# merge both kinds of requires into prereq_pm
my $subdirs = ($args->{DIR} ||= []);
if ($self->bundles) {
inc/Module/Install/Makefile.pm view on Meta::CPAN
eval "use $perl_version; 1"
or die "ERROR: perl: Version $] is installed, "
. "but we need version >= $perl_version";
}
my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
if ($self->admin->preop) {
$args{dist} = $self->admin->preop;
}
my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
Acme-Debug
view release on metacpan or search on metacpan
lib/Acme/Debug.pm view on Meta::CPAN
bless($self, $class);
foreach my $f (@_) {
next unless -f $f;
my $l = 0;
if (open(FH, "< $f")) {
map { DB::DB($f, $l, $_), $l++ } (<FH>);
} else {
die("unable to open file $f! $!\n");
}
}
return $self;
Acme-DependOnEverything
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use AnyEvent::RipeRedis::Cluster;
use AnyEvent::RPC;
use AnyEvent::RTPG;
use AnyEvent::Run;
use AnyEvent::SCGI;
use AnyEvent::Semaphore;
use AnyEvent::Sereal;
use AnyEvent::Serialize;
use AnyEvent::SerialPort;
use AnyEvent::SIP;
use AnyEvent::SKKServ;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Apache::Mailtrack;
use Apache::MimeInfo;
use Apache::MIMEMapper;
use Apache::MimeXML;
use Apache::MiniWiki;
use Apache::Mmap;
use Apache::ModLogConfig;
use Apache::ModProxyPerlHtml;
use Apache::ModSSL;
use Apache::Module;
use Apache::ModXml;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use App::TrimHistories;
use App::tt;
use App::ttycolor;
use App::Ttyrec;
use App::Tweet;
use App::Twimap;
use App::Twitch;
use App::txtnix;
use App::UnANSI;
use App::Unding;
use App::Uni;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Cache::Cascade;
use Cache::Ehcache;
use Cache::Elasticache::Memcache;
use Cache::Escalate;
use Cache::FastMemoryCache;
use Cache::FastMmap;
use Cache::FastMmap::Tie;
use Cache::Funky;
use Cache::Funky::Storage::Memcached;
use Cache::Historical;
use Cache::Isolator;
use Cache::Keys::DSL;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Cache::Memcached::Indexable;
use Cache::Memcached::libmemcached;
use Cache::Memcached::Managed;
use Cache::Memcached::Mock;
use Cache::Memcached::Queue;
use Cache::Memcached::Semaphore;
use Cache::Memcached::Sweet;
use Cache::Memcached::Tags;
use Cache::Memcached::Tie;
use Cache::Memcached::Turnstile;
use Cache::Memcached::XS;
use Cache::Memory::Simple;
use Cache::Method;
use Cache::Mmap;
use Cache::Moustache;
use Cache::Profile;
use Cache::RamDisk;
use Cache::Range;
use Cache::Reddit;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Catalyst::Plugin::Authorization::Roles::tar;
use Catalyst::Plugin::AutoCRUD;
use Catalyst::Plugin::AutoRestart;
use Catalyst::Plugin::AutoSession;
use Catalyst::Plugin::Babelfish;
use Catalyst::Plugin::BigSitemap;
use Catalyst::Plugin::BootstrapAlert;
use Catalyst::Plugin::Bread::Board;
use Catalyst::Plugin::Browser;
use Catalyst::Plugin::BuildURI;
use Catalyst::Plugin::C;
use Catalyst::Plugin::Cache;
use Catalyst::Plugin::Cache::BerkeleyDB;
use Catalyst::Plugin::Cache::FastMmap;
use Catalyst::Plugin::Cache::HTTP;
use Catalyst::Plugin::Cache::HTTP::Preempt::vta;
use Catalyst::Plugin::Cache::Memcached;
use Catalyst::Plugin::Cache::Memcached::Fast::ta;
use Catalyst::Plugin::Cache::Store::FastMmap::ta;
use Catalyst::Plugin::Captcha;
use Catalyst::Plugin::CDBI::Transaction;
use Catalyst::Plugin::CGI::Untaint;
use Catalyst::Plugin::ChainedURI;
use Catalyst::Plugin::Charsets::Japanese::targ;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Catalyst::Plugin::Session;
use Catalyst::Plugin::Session::AsObject;
use Catalyst::Plugin::Session::CGISession::tar;
use Catalyst::Plugin::Session::Defaults;
use Catalyst::Plugin::Session::DynamicExpiry::t;
use Catalyst::Plugin::Session::FastMmap;
use Catalyst::Plugin::Session::Flex;
use Catalyst::Plugin::Session::Manager;
use Catalyst::Plugin::Session::PerUser;
use Catalyst::Plugin::Session::PerUser::AutoLogout;
use Catalyst::Plugin::Session::PSGI;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Catalyst::Plugin::Session::Store::CouchDB::t;
use Catalyst::Plugin::Session::Store::DBIC::tar;
use Catalyst::Plugin::Session::Store::DBI::targ;
use Catalyst::Plugin::Session::Store::Delegate;
use Catalyst::Plugin::Session::Store::DOD::targ;
use Catalyst::Plugin::Session::Store::FastMmap;
use Catalyst::Plugin::Session::Store::File::tar;
use Catalyst::Plugin::Session::Store::Jifty::DBI;
use Catalyst::Plugin::Session::Store::KiokuDB::t;
use Catalyst::Plugin::Session::Store::Memcached;
use Catalyst::Plugin::Session::Store::Memcached::Fast;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Catalyst::Plugin::Setenv;
use Catalyst::Plugin::Shorten;
use Catalyst::Plugin::SimpleAuth;
use Catalyst::Plugin::SimpleMessage;
use Catalyst::Plugin::Singleton;
use Catalyst::Plugin::Sitemap;
use Catalyst::Plugin::SmartURI;
use Catalyst::Plugin::Snippets;
use Catalyst::Plugin::Spark::Form;
use Catalyst::Plugin::SpecialAction::Trail::tar;
use Catalyst::Plugin::StackTrace;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use CGI::GuruMeditation;
use CGI::Header;
use CGI::Header::PSGI;
use CGI::HTMLError;
use CGI::IDS;
use CGI::Imagemap::tgz;
use CGI::Info;
use CGI::Inspect;
use CGI::JSONRPC;
use CGI::kSession;
use CGI::Kwiki;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Class::Meta;
use Class::Meta::Declare;
use Class::Meta::Express;
use Class::Method::Auto;
use Class::MethodCache;
use Class::Method::Cache::FastMmap::v;
use Class::Method::Debug;
use Class::Method::Delegate::zip;
use Class::MethodFilter;
use Class::Methodist;
use Class::MethodMaker;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Data::Apache::mod_status;
use Data::Apple::PriceTier;
use Data::ArrayList;
use Data::AsObject;
use Data::asXML;
use Data::AutoBimap;
use Data::Babel;
use Data::Babel::Client;
use Database::Async;
use Database::Async::SQLite;
use Database::Cassandra::Client;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Data::DigestPath;
use Data::Dimensions;
use Data::Direct;
use Data::Display;
use Data::Diver::tgz;
use Data::Dmap;
use Data::Dmp;
use Data::Dmp::Org;
use Data::Domain;
use Data::Domain::Net;
use Data::Domain::SemanticAdapter;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Data::ObjectDriver;
use Data::Object::Immutable;
use Data::Object::Prototype;
use Data::ObjectStore;
use Data::OFAC;
use Data::Omap;
use Data::OpenGraph;
use Data::OpeningHours;
use Data::OpenStruct::Deep;
use Data::OptList;
use Data::Overlay;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Data::ResultsHelper;
use Data::Reuse;
use Data::Riak;
use Data::Riak::Fast;
use Data::Rlist;
use Data::Rmap;
use Data::RoundRobin;
use Data::RoundRobinShared;
use Data::RuledCluster;
use Data::RuledValidator;
use Data::RuledValidator::Plugin::Japanese::tar;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Device::WxM;
use Device::XBee::API;
use Device::ZyXEL::IES;
use DFA::Kleene;
use DFA::Simple;
use DFA::Statemap;
use DFS::Perl;
use DhMakePerl;
use DHTMLX::Connector;
use DHTMLX::Core;
use Dialog;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use ExtUtils::PkgConfig;
use ExtUtils::PLBat;
use ExtUtils::Scriptlet;
use ExtUtils::SVDmaker;
use ExtUtils::TBone;
use ExtUtils::Typemap;
use ExtUtils::Typemaps::Default;
use ExtUtils::Typemaps::Excommunicated;
use ExtUtils::Typemaps::STL::Extra;
use ExtUtils::XSBuilder;
use ExtUtils::XSpp;
use ExtUtils::XSpp::Plugin::Cloning;
use Ezmlm;
use Facebook;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Geo::Coder::HostIP;
use Geo::Coder::Ja;
use Geo::Coder::List;
use Geo::Coder::Mappy;
use Geo::Coder::Mapquest;
use Geo::Coder::Multimap;
use Geo::Coder::Navteq;
use Geo::Coder::OpenCage;
use Geo::Coder::OSM;
use Geo::Coder::Ovi;
use Geo::Coder::Postcodes;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Geography::USStates;
use Geo::Hash;
use Geo::Hash::Grid;
use Geo::Hashing;
use Geo::Hash::XS;
use Geo::Heatmap;
use Geo::HelmertTransform;
use Geo::Hex::v;
use Geo::Hex::V::XS;
use Geo::Horizon;
use Geo::iArea;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Geo::OGC::Service;
use Geo::OGC::Service::WFS;
use Geo::OGC::Service::WMTS;
use Geo::OLC;
use Geo::OLC::XS;
use Geo::Openstreetmap::Parser;
use Geo::OSM::DBI;
use Geo::OSM::Imager;
use Geo::OSM::MapFeatures;
use Geo::OSM::Primitive;
use Geo::OSM::Render;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use GitHub::Jobs;
use GitHub::MergeVelocity;
use GitHub::WebHook;
use Git::IssueManager;
use Git::LowLevel;
use Git::Mailmap;
use Git::Megapull;
use Git::MoreHooks;
use Git::ObjectStore;
use Git::Open;
use Git::PurePerl;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Image::Flight::Suborbital;
use Image::GD::Thumbnail;
use Image::GeoTIFF::Tiled;
use Image::Grab;
use Image::Hash;
use Image::Heatmap;
use Image::Identicon;
use Image::Imager::Thumbnail;
use Image::Imgur::tgz;
use Image::Imlib;
use Image::Imlib::Thumbnail;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Imager::Font::T;
use Imager::Font::W;
use Image::RGBA;
use Imager::GIF;
use Imager::Graph;
use Imager::Heatmap;
use Imager::Image::Base;
use Imager::LineTrace;
use Imager::Montage;
use Image::Robohash;
use Imager::Plot;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use IPC::Lockfile;
use IPC::Lock::RabbitMQ;
use IPC::Lock::WithTTL;
use IPC::MM;
use IPC::MMA;
use IPC::Mmap;
use IPC::Mmap::Share;
use IPC::MorseSignals;
use IPC::MPS;
use IPC::Notify;
use IPC::OpenAny;
use IPC::Open::Callback;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use IPC::RunSession::Simple;
use IPC::Run::Shell;
use IPC::Run::Simple;
use IPC::SafeFork;
use IPC::ScoreBoard;
use IPC::Semaphore::Concurrency;
use IPC::Semaphore::Set;
use IPC::Semaphore::SmokeSignals;
use IPC::Serial;
use IPC::Session;
use IPC::Shareable;
use IPC::SharedCache;
use IPC::ShareLite;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Linux::RTC::Ioctl;
use Linux::Seccomp;
use Linux::Setns;
use Linux::Shadow;
use Linux::Slackware::SystemTests;
use Linux::Smaps;
use Linux::Smaps::Tiny;
use Linux::Socket::Accept;
use Linux::SocketFilter;
use Linux::stat;
use Linux::Statm::Tiny;
use Linux::Svgalib;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Net::IMP::Remote;
use Net::INETGlue;
use Net::Inspect;
use Net::Interface;
use Net::Interface::Wireless::FreeBSD;
use Net::Intermapper;
use Net::Int::Stats;
use Net::IP;
use Net::IPAddress::Filter;
use Net::IPAddress::Filter::IPFilterDat;
use Net::IPAddress::Minimal;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Net::Kestrel;
use Net::Kotonoha;
use Net::Kubernetes;
use Net::Laconica;
use Net::LastFM;
use net::lastfmapi::tgz;
use Net::LastFM::Submission;
use Net::LCDproc;
use Net::LDAPapi;
use Net::LDAP::AutoDNs;
use Net::LDAP::AutoServer;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Net::MyPeople::Bot::IPUpdator;
use Net::MySourceMatrix;
use Net::MySQL;
use Net::MythTV;
use Net::MythWeb;
use Net::Nakamap;
use Net::NationalRail::LiveDepartureBoards::ta;
use Net::NAT::PMP;
use Net::NATS::Client;
use Net::NATS::Streaming::Client;
use Net::NATS::Streaming::PB;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Net::Zemanta;
use Net::Zendesk;
use Net::ZooIt;
use Net::ZooKeeper;
use Net::ZooKeeper::Lock;
use Net::ZooKeeper::Semaphore;
use Net::ZooTool;
use Net::Z::PQF;
use Net::Z::RadioMARC;
use Net::Z::SimpleServer;
use Net::Z::SimpleZOOM;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use NIS::a;
use NISPlus::::alpha;
use Nitesi::DBI;
use NLP::GATE;
use NLP::Service;
use Nmap::Parser;
use Nmap::Scanner;
use NNexus;
use NNML;
use NNTPClient;
use No::Die;
use No::Giro;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Parallel::MapReduce;
use Parallel::MPI;
use Parallel::Mpich::MPD;
use Parallel::MPI::Simple;
use Parallel::MPM::Prefork;
use Parallel::parallel_map;
use Parallel::Pipes;
use Parallel::Prefork;
use Parallel::PreForkManager;
use Parallel::Pvm;
use Parallel::Pvm::Scheduler;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use POSIX::Open;
use POSIX::pselect;
use POSIX::Regex;
use POSIX::RT::MQ;
use POSIX::RT::Scheduler;
use POSIX::RT::Semaphore;
use POSIX::RT::SharedMem;
use POSIX::RT::Signal;
use POSIX::RT::Spawn;
use POSIX::RT::Timer;
use POSIX::Run::Capture;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Proc::Find::Parents;
use Proc::Fork;
use Proc::Fork::Control;
use Proc::Forkfunc;
use Proc::Forking;
use Proc::Forkmap;
use Proc::Govern;
use Proc::Guard;
use Proc::Info::Environment;
use Proc::InvokeEditor;
use Proc::JobQueue;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Queue::Beanstalk;
use Queue::DBI::v;
use Queue::Dir;
use Queue::Gearman;
use Queue::Leaky;
use Queue::Mmap;
use Queuepmgz;
use Queue::Priority;
use Queue::Q;
use Queue::QM;
use Queue::QM::Worker;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Rose::DBx::Garden;
use Rose::DBx::Garden::Catalyst;
use Rose::DBx::MoreConfig;
use Rose::DBx::Object::Builder;
use Rose::DBx::Object::Cached::CHI;
use Rose::DBx::Object::Cached::FastMmap;
use Rose::DBx::Object::Indexed;
use Rose::DBx::Object::InternalPager;
use Rose::DBx::Object::Loader::FormMaker;
use Rose::DBx::Object::MakeMethods::EKSBlowfish;
use Rose::DBx::Object::Metadata::Column::Xml::ta;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use RPC::XML::Parser::XS;
use RPC::Xmlrpc_c::atgz;
use RPerl;
use RPG::Dice;
use RPG::Traveller::Person;
use RPG::Traveller::Starmap;
use rpm::build::perl;
use RPM::Header::PurePerl;
use RPM::Info;
use RPM::Make::DWIW;
use RPM::Make::Simple;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Search::Query::Dialect::KSx;
use Search::Query::Dialect::Lucy;
use Search::QueryParser;
use Search::QueryParser::SQL;
use SearchSDK::b;
use Search::Sitemap;
use Search::Tokenizer;
use Search::Tools;
use Search::VectorSpace;
use Search::WuManber;
use Search::Xapian;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Simplepmgz;
use SimpleProcess_zip;
use Simulation::Automate;
use Simulation::DiscreteEvent;
use Simulation::Sensitivity;
use sitemapper;
use Slackware::Slackget;
use Slackware::Slackget::Network::Connection::DEBUG;
use Slash::Client;
use Slash::Gallery;
use Slash::OurNet;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use SyslogScan::Daemon::SpamDetector;
use Sys::LoopDevice;
use Sys::MemInfo;
use Sys::Mknod;
use Sys::Mlockall;
use Sys::Mmap;
use Sys::OutPut;
use Sys::PageCache;
use Sys::Path;
use Sys::PortIO;
use Sys::Prctl;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Term::Choose;
use Term::Choose::Util;
use Term::Chrome;
use Term::CLI;
use Term::Clui;
use Term::Colormap;
use Term::Complete;
use Term::Completion;
use Term::DataMatrix;
use Term::Detect::Software;
use Term::DNAColor;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Thread::Queue::Priority;
use Thread::Rand;
use Thread::Resource::RWLock;
use Thread::Running;
use Thread::RWLock;
use Thread::Semaphore;
use Thread::Serialize;
use Thread::SharedTreeSet;
use Thread::SigMask;
use Thread::Stack;
use Thread::State;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Tie::Locked;
use Tie::LogFile;
use Tie::Logperl;
use Tie::Math;
use Tie::MLDBM;
use Tie::MmapArray;
use Tie::Moose;
use Tie::MooseObject;
use Tie::Mounted;
use Tie::Multidim;
use tie::multikeyinsertorderhash;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use URI::FromHash;
use URI::geo;
use URI::git;
use URI::GoogleChart;
use URI::http::Dump;
use URI::imap;
use URI::imaps;
use URI::ImpliedBase;
use URI::jar;
use URI::magnet;
use URI::Match;
use URI::mid;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use WebService::Vultr;
use WebService::Walmart;
use WebService::weblogUpdates;
use WebService::WebSequenceDiagrams::targ;
use WebService::Wedata::v;
use WebService::Wikimapia;
use WebService::Windows::LiveID::Auth;
use WebService::Xero;
use WebService::XING;
use WebService::Yahoo::BOSS;
use WebService::YahooJapan::WebMA;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use WebService::Zendesk;
use WebService::ZombiesRun;
use WebService::Zoopla::API;
use WebService::Zusaar::v;
use Web::Simple;
use Web::Sitemap;
use Web::SIVA;
use WebSphere::MQTT::Client;
use WebSphere::Payment;
use WebTools;
use Web::Util::DBIC::Paging;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use WWW::Shorten::Yahooit;
use WWW::Shorten::Yourls;
use WWW::SimpleRobot;
use WWW::Simpy;
use WWW::Sitebase;
use WWW::Sitemapper;
use WWW::Sitemap::Simple;
use WWW::Sitemap::XML;
use WWW::Sixpack;
use WWW::SlideShare;
use WWW::SmartSheet;
use WWW::SMS;
use WWW::SmugMug::API;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use XML::NamespaceFactory;
use XML::NamespaceSupport;
use XML::NessusParser;
use XML::NewsML;
use XML::NewsML_G::v;
use XML::NmapParser;
use XML::Node;
use XML::NodeFilter;
use XML::OPDS;
use XML::OPML;
use XML::OPML::LibXML;
Acme-Devel-Hide-Tiny
view release on metacpan or search on metacpan
lib/Acme/Devel/Hide/Tiny.pm view on Meta::CPAN
=head1 SYNOPSIS
# in 'foo.t', assume we want to hide Cpanel::JSON::XS
# hide Cpanel::JSON::XS -> Cpanel/JSON/XS.pm
use lib map {
my $m = $_;
sub { return unless $_[1] eq $m; die "Can't locate $_[1] in \@INC (hidden)\n"; }
} qw{Cpanel/JSON/XS.pm};
=head1 DESCRIPTION
lib/Acme/Devel/Hide/Tiny.pm view on Meta::CPAN
# 'lib' adds its arguments to the front of @INC
use lib
# add one coderef per path to hide
map {
# create lexical for module
my $m = $_;
# construct and return a closure that dies for the module path to hide
sub {
lib/Acme/Devel/Hide/Tiny.pm view on Meta::CPAN
# die with the error message we want
die "Can't locate $_[1] in \@INC (hidden)\n";
}
}
# input to map is a list module names, converted to paths;
qw{Cpanel/JSON/XS.pm JSON/XS.pm}
; # end of 'use lib' statement
When perl sees a coderef in C<@INC>, it gives the coderef a chance to
Acme-DieOnLoad
view release on metacpan or search on metacpan
CONTRIBUTING view on Meta::CPAN
If you send me a patch or pull request, your name and email address will be
included in the documentation as a contributor (using the attribution on the
commit or patch), unless you specifically request for it not to be. If you
wish to be listed under a different name or address, you should submit a pull
request to the .mailmap file to contain the correct mapping.
This file was generated via Dist::Zilla::Plugin::GenerateFile::ShareDir 0.006 from a
template file originating in Dist-Zilla-PluginBundle-Author-ETHER-0.105.
Acme-DonMartin
view release on metacpan or search on metacpan
DonMartin.pm view on Meta::CPAN
$VERSION = 0.09;
use vars qw/ $thud $thuk $thump $thwa $thwak $thwat $thwip %thwip $thwit $thwock
$thwop %thwop @thwop/; $thwit=length$thwop[length($thwop[$thwat=$thwa=0])-length
($thwop[1])];$thwop=map{$thwat+=length}@thwop[do{$thwop+=length for@thwop[$thwit
..$thwit+length($thwop[6])];$thwop}..do{$thwop&=$thwa;$thwop+=length$_ for@thwop
[3..14.1592645];$thwop}];$thwa=($thwop>>length$thwop[5])<<($thwip=1<<1+1)+1;open
$thwit=undef,"+<$0" or die q=zownt thlip spoosh\n=;$thwa=chr$thwa;while(<$thwit>
){$thump.=$_;last if/^\s*use +@{[__PACKAGE__]}/}$thwak=$thump;$thud=<$thwit>;use
Compress::Zlib;$thud=~s/\s+$//;push @{$thwop{$thwip{$_}=$thwop++%$thwat}},qq{$_}
DonMartin.pm view on Meta::CPAN
){$thwock=$thwop{ord$_}[rand$thwip];if(length join($thwa,@thwop,$thwock)>$thwip{
q{thwak}}-$thwip{thwit}){$thwak.=join($thwa,@thwop).$/;@thwop=( );$thump=''}push
@thwop, $thwock} @thwop and do{seek $thwit, $thwop=$thwip-$thwip, $thwip=$thwop-
$thwop;print$thwit($thwak,$thump,join($thwa,@thwop),$/);seek$thwit,$thwip,$thwop
;}} else {$thwop=$thwip{qq{shpork}}-$thwip{q{shklink}};eval uncompress do{while(
<$thwit>){$thwock.=chr for map{$thwip{$_}}(/(s(?:h(?:k(?:l(?:i(?:z(?:z(?:ortch|i
tz)|(?:ort|i)ch)|k(?:sa)?|tza|nk)|o(?:(?:(?:rbbado)?r)?p|ort)|u(?:r(?:ch|tz|k)|n
k)|a(?:zitch|kle))|alo?ink|witz)?|l(?:o(?:o[kp]|r[kp]|ip)|i(?:k(?:le)?|pp)|ur[kp
]|ak)|p(?:l(?:(?:oi|e)p|iple)|i(?:kk|sh)le|o(?:oosh|rk))|a(?:[fk]|sh(?:wik)?|zza
tz|bamp)?|o(?:o(?:ka?|ga|o)|(?:mpa|ss)h)|n(?:i(?:kkle|p)|orkle)|i(?:f(?:fle)?|ka
?)|t(?:o(?:in|r)|i)k|u(?:ffle|ka)|muzorft|wika?)|p(?:l(?:a(?:z(?:[ai]tc|oos)h|p(
DonMartin.pm view on Meta::CPAN
?:om(?:ba)?|w[mr]|r)|umb(?:oom|le)|r(?:rrrr|ip)|a(?:wg)?h|ipf?)|a(?:r(?:g(?:le|h
)?|argh)|h(?:weeeeee|h)|a(?:ak|rh)|ling|ooga|c?k|gh)|o(?:o(?:[fht]|o(?:[hm]|kk)|
n[kt]|ga|mp)|g(?:gock|h)|nnnnnghk)|v(?:o(?:o(?:fen|m)|w[mn])|r(?:oo(?:o?n|m)|een
)|ar?room)|u(?:m(?:p[fh]|ble)|(?:nkli)?k|[lr]p|gh)|m(?:a(?:bbit|m?p)|impah|uffle
|mm)|e(?:c(?:ch|k)|ech)|l(?:aflatch|eddle)|(?:q[uw]ac|no)k|jugarum|inkle) /xg )}
join(q..=>map{chr$thwip{$_}}split chr$thwop,$thud).$thwock}}exit;BEGIN{@thwop=do
{do{qw{ phoom doot chunk broot durp klank ho glakkle glukkle kazik splatch glup
clip chika pak ping whap rumboom kookook flink dokka pwam pwompf chaklak
shklizzitz phoon gazoont puffa blapple tzong plapf pucka twok oooh ging spla
sputz dikka rowm oookk dooba tffp skrunch zap thaploof fwapada blorf tromp
klumble wamp mimpah kloink klump foosht cloink screeeezt kloong spamp zak flik
DonMartin.pm view on Meta::CPAN
schlit plortch shiffle ta tingalinga doop swit skreee pitooie floom gasplush
klak zwot jugarum thoo umble zik argh dabomp glurk thlup spush sproing glurkle
klong foom fwap foon kapoooshshish shashwik ying spritz sklukle blop faglork zat
klingdinggoon shlikle daba glorgle snat bing sklizzorch kreek sproink poffisss
skrich zizazik hush phelop ak glikle mmm zip spazat yarg splurp fap schklurt wak
skazeech krik map kwong ploof splak sploosh kridit shik prawk chirp rumble clomp
gloot fluk whisk fump flok wap skluk yip pwok beeyoop fagroon fwam ghomp grunch
fwip gring spladunk zock skwonk chikaklak bap shpikkle uk klupada splapple
spamamp sploydoing spak gurn stoink kachonk fiff skwa gasploosh agh froom thap
chonk gleet spwako shtoink dapada dakdik laflatch shplep kazak doobada foomp
toonk wee thhhht klang tween flif fwipada thuk thubalup zweet plop brrrapp
DonMartin.pm view on Meta::CPAN
shif galoon oggock fwisk karrak thwop shwika schloop blif doomp boomer sslit
bombah varoom voofen kaplak fiddit kwonk dik vroon foowoom gloip leddle thak
gloop flak skreekle plipple plorf shwik skritch krash kash gashklitz poink smash
dang shlurp gishklurk splorp thoomp fwizzish glip splashidy kloobada shkliksa
shnip bloooot whomp sound dig arg deebe argle spopple zikka oot ga shlak
kakroosh sklorsh spmap dit onnnnnghk bloop pow plak rowr skrawk thwuk yeech
fidip shlipp bong skrink spash shklitza blamp ziz foing smak kadoonk spladish
fagrooosh dap sklush plink thlik ooh kak gahork pwof bzownt shklunk foof
sproingdoink arargh stoong swif ripf shlurk thump schloot swish gaplonk swizap
kaboomm hee floon eech dootbweet plaf oont fladat yak shook plobble sreek
shpooosh kahak sizzotz klikrunk tak thwap krikit faroolana chunka koong ka dooot
Acme-DotDotGone
view release on metacpan or search on metacpan
lib/Acme/DotDotGone.pm view on Meta::CPAN
our %dots;
BEGIN {
%dots = (
toDots => sub {
join ' ', map { $dots{$_}() } split '', unpack "b*", shift;
},
fromDots => sub {
pack "b*", join '', map { $dots{$_}() } split ' ', shift;
},
'.' => sub { 0 },
'..' => sub { 1 },
0 => sub { '.' },
1 => sub { '..' },
Acme-DreamyImage
view release on metacpan or search on metacpan
lib/Acme/DreamyImage.pm view on Meta::CPAN
$self->{pos} = 0 if $self->{pos} >= length($self->{seed});
return int(hex($value) / 15 * $upper_bound);
}
sub random_color {
return [map { $self->random(255) } 1..4]
}
my @types = Imager->combines;
sub random_combine_type {
my $i = $self->random( 0+ @types );
lib/Acme/DreamyImage.pm view on Meta::CPAN
sub random_background {
my $image = Imager->new(xsize => $self->width, ysize => $self->height, channels => 3);
$image->box(filled => 1, color => [255, 255, 255]);
$image->filter(type => "gradgen",
xo => [map { $self->random($self->width) } 1..2],
yo => [map { $self->random($self->height) } 1..2],
colors => [ map { $self->random_color } 1..2 ]);
$image->filter(type => "noise", subtype => 0, amount => $self->random(10));
$image->filter(type => "gaussian", stddev => $self->random( ($self->width + $self->height) / 2 * 0.03 ));
return $image;
lib/Acme/DreamyImage.pm view on Meta::CPAN
new_layer(
$xsize, $ysize,
sub {
my ($layer) = @_;
$layer->filter(type => "noise", subtype => 0, amout => 20);
for my $size (map { ($xsize + $ysize) / 16 + $_ } 1..20) {
my ($x, $y) = ($self->random($xsize), $self->random($ysize));
$layer->circle(fill => { solid => [255, 255, 255, $self->random(30) + 10], combine => "add" }, x => $x, y => $y, r => $size);
}
$layer->filter(type => "gaussian", stddev => $self->random(30));
lib/Acme/DreamyImage.pm view on Meta::CPAN
# Big Blur Boxes
new_layer(
$xsize, $ysize,
sub {
my ($layer) = @_;
for my $size (map { ($xsize + $ysize) / 16 + $_ } 1..20) {
my ($x, $y) = ($self->random($xsize), $self->random($ysize));
$layer->box(fill => { solid => [255, 255, 255, $self->random(30) + 10], combine => "add" },
xmin => $x, ymin => $y,
xmax => $x + $size, ymax => $y + $size);
}
lib/Acme/DreamyImage.pm view on Meta::CPAN
new_layer(
$xsize, $ysize,
sub {
my ($layer) = @_;
for (0..$self->random(48)) {
my @points = map {[ $self->random($xsize), $self->random($ysize) ]} 1 ... $self->random(40);
if ($self->random(6) > 2) {
$layer->polygon( points => \@points, color => $self->random_color );
} else {
$layer->polyline( points => \@points, color => $self->random_color, aa => 1 );
}
Acme-Dump-And-Dumper
view release on metacpan or search on metacpan
lib/Acme/Dump/And/Dumper.pm view on Meta::CPAN
require Exporter;
our @ISA = qw/Exporter Data::Dumper/;
our @EXPORT_OK = @Data::Dumper::EXPORT_OK;
our @EXPORT = ( 'DnD', @Data::Dumper::EXPORT );
use Data::Rmap;
use Scalar::Util qw/blessed refaddr/;
use Data::Dumper ( @Data::Dumper::EXPORT, @Data::Dumper::EXPORT_OK, );
use Storable qw/dclone/;
$Storable::Deparse = 1;
lib/Acme/Dump/And/Dumper.pm view on Meta::CPAN
for my $data ( @in ) {
my $working_data = eval { dclone $data };
$working_data = $data
unless defined $working_data;
rmap_all {
my $state = shift;
if ( defined blessed $_) {
delete $state->seen->{ refaddr $_ };
$_ = 'obj[' . ref($_) . ']';
}
lib/Acme/Dump/And/Dumper.pm view on Meta::CPAN
<hoelzro> Data::Dumper::And::Dumper
* hoelzro ducks
<hoelzro> s/Dumper/Dump/ # ruined my own awful joke
P.S.: eventually I ended up using L<Data::Rmap> instead of the Freezer.
=begin html
<img src="http://zoffix.com/CPAN/Acme-Dump-and-Dumper.jpg"
style="border: 2px solid #aaa!important; display: block!important; margin: 20px 0!important;"
Acme-Dzil-Plugin-Tester
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
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";
}
}
Acme-ESP
view release on metacpan or search on metacpan
use strict;
sub oO
{
@_= map {
my $i;
eval{%$_||1}?(!%$_?():( $i= $_, join ". ", map
"$_: $$i{$_}", map substr("m;V",0,length) ^ $_, sort map
$_ ^ substr("m;V",0,length), keys %$i ) . "." ) :
eval{1+@$_}?(!@$_?(): join( "; ", @$_ ) ) : $_
} @_;
my( $thought )= !@_ ? undef : join " ... ", @_;
return bless \$thought, 'Acme::ESP::Scanner';
Acme-Everything
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
die "tests_recursive dir '$dir' does not exist";
}
require File::Find;
%test_dir = ();
File::Find::find( \&_wanted_t, $dir );
$self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
}
sub write {
my $self = shift;
die "&Makefile->write() takes no arguments\n" if @_;
inc/Module/Install/Makefile.pm view on Meta::CPAN
}
# merge both kinds of requires into prereq_pm
my $prereq = ($args->{PREREQ_PM} ||= {});
%$prereq = ( %$prereq,
map { @$_ }
map { @$_ }
grep $_,
($self->build_requires, $self->requires)
);
# merge both kinds of requires into prereq_pm
inc/Module/Install/Makefile.pm view on Meta::CPAN
. "but we need version >= $perl_version";
}
$args->{INSTALLDIRS} = $self->installdirs;
my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
my $user_preop = delete $args{dist}->{PREOP};
if (my $preop = $self->admin->preop($user_preop)) {
$args{dist} = $preop;
}
Acme-EyeDrops
view release on metacpan or search on metacpan
demo/gentable.pl view on Meta::CPAN
# gentable.pl.
# Generate table used by EyeDrops.pm
use strict;
my @C = map {"'" . chr() . "'"} 0..255;
$C[39] = q#"'"#;
my $q;
# 'a'..'o' (97..111)
for (33..47) {
demo/gentable.pl view on Meta::CPAN
$C[125] = q#'\\\\'.'}'#;
# 128..255
# for my $i (128..255) {
# $C[$i] = join('.', q#'\\\\'#,
# $C[120], map($C[$_], unpack('C*', sprintf('%x', $i))));
# }
print " # This table was generated by demo/gentable.pl.\n";
print " my \@C = (";
for my $i (0..127) { $C[$i] =~ s/\\/\\\\/g }
Acme-FSM
view release on metacpan or search on metacpan
Specially crafted entry in I<{state}>
(covered in details in L<B<process()> method|/process()> description).
Such entry describes what next I<$state> should be picked in state flow
and what to do with I<$item>.
=item turn map
This idiom is used in place of "C<turns> I<$rule> of I<[turn]>".
=back
Empty string is returned if there're I<tturn> and/or I<fturn> turns.
I<turns> hash is ignored in that case.
=item *
C<HASH> is returned if there's turn map
(and neither I<tturn> nor I<fturn> is present).
B<(note)> In that case, B<turn()> checks for I<turns> is indeed a HASH,
nothing more
(however B<croaks> if that's not the case);
It may as well be empty;
Probably bad idea).
=item *
C<undef> is returned if there's nothing to say --
neither I<tturn>, nor I<fturn>, nor turn map --
this record is kind of void.
The record should be studied to find out why.
B<carp>s in that case.
=back
Two scalars are I<$state> and specially encoded I<$rule>
(refer to L<B<query_switch()> method|/query_switch()> about encoding).
If I<$rule> can't be decoded then B<croak>s.
Returns (after verification) requested I<$rule> as ARRAY.
While straightforward I<[turn]>s (such as C<tturn>, C<fturn>, and such) could
be in fact queried through L<B<fst()> method|/fst()> turn map needs bit more
sophisticated handling;
and that's what B<turn()> does;
in fact asking for C<turns> will result in B<croak>.
I<$action> of C<START> and C<CONTINUE> special states suffer implicit
defaulting to empty string.
=back
=cut
# TODO:202202172011:whynot: As soon as supported perl is young enough change it to smartmatch, plz.
my %special_turns = map { $_ => 1 } qw| eturn uturn tturn fturn |;
# TODO:202202162030:whynot: Consider more elaborate (informative) returns.
sub turn {
my $self = shift @_;
unless( @_ ) {
$self->carp( q|no args| ); return undef }
=item neither C<tturn> or C<fturn> are present
Encode I<$rule> like this C<'turn%' . $rule> and return that.
B((note)>
Don't verify if turn map exists.
B<(note)>
Don't verify if C<"turn%$rule"> exists in turn map.
=back
B<switch()> is always invoked in list context even if I<$item> would be
ignored.
my $self = shift @_;
$self->{_}{diag_level} >= shift @_ or return $self;
# TODO:202212222141:whynot: Since something this B<sprintf> might emit warnings. And maybe it's appropriate.
printf STDERR sprintf( qq|[%s]: %s\n|,
( split m{::}, ( caller 1 )[3])[-1], shift @_ ),
map $_ // q|(undef)|, @_;
return $self }
=item B<carp()>
$bb->carp( 'something wrong...' );
=over
=item Default For Turn Map
B<(missing feature)>
It's not hard to imagine application of rather limited turn map that should
default on anything else deemed irrelevant.
Right now to achieve logic like this such defaulting ought to be merged into
B<switch()>.
That's insane.
stupid.
C<undef> signals two distinct conditions
(granted, both are manifest of broken I<{fst}>).
Empty string doesn't distinguish safe (both C<tturn> and C<fturn> are present)
and risky (C<tturn> or C<fturn> is missing) I<{state}>.
C<HASH> doesn't say if there's anything in turn map.
All that needs loads of workout.
=back
=cut
Acme-Filter-Kenny
view release on metacpan or search on metacpan
lib/Acme/Filter/Kenny.pm view on Meta::CPAN
$VERSION = "1.01";
$iq_kenny = 0;
sub KennyIt {
($_)=@_;my($p,$f);$p=3-2*/[^\W\dmpf_]/i;s.[a-z]{$p}.vec($f=join('',$p-1?chr(
sub{$_[0]*9+$_[1]*3+$_[2] }->(map {/p|f/i+/f/i}split//,$&)+97):('m','p','f')
[map{((ord$&)%32-1)/$_%3}(9, 3,1)]),5,1)='`'lt$&;$f.eig;return ($_);
};
sub import {
my ($type, @params) = @_;
my ($ref) = [];
Acme-FizzBuzz
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# Normalise multipart versions
$s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg;
}
$s =~ s/^(\d+)\.?//;
my $l = $1 || 0;
my @v = map {
$_ . '0' x (3 - length $_)
} $s =~ /(\d{1,3})\D?/g;
$l = $l . '.' . join '', @v if @v;
return $l + 0;
}
Acme-Flat
view release on metacpan or search on metacpan
# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.009.
.gitignore
.mailmap
.perltidyrc
.travis.yml
Changes
LICENSE
MANIFEST
Acme-Flip
view release on metacpan or search on metacpan
lib/Acme/Flip.pm view on Meta::CPAN
sub flip
{
$_ = shift;
my $width = (shift or 80);
while (s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e) {};
join ("\n", map {
sprintf "%${width}s", join '', map {
$_ = lc $_; exists $table{$_} ? $table{$_} : $_
} reverse split (/\B|\b/, $_)
} reverse split (/\n/, $_))."\n";
}
Acme-Ford-Prefect-FFI
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
BEGIN {
use strict; use warnings;
my %missing = map {
eval qq{ require $_ };
$@ ? ($_=>1) : ()
} qw( strict warnings );
if(%missing)
{
Acme-Ford-Prefect
view release on metacpan or search on metacpan
t/00_diag.t view on Meta::CPAN
}
pass 'okay';
my $max = 1;
$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
our $format = "%-${max}s %s";
spacer;
my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;
Acme-Ford-Prefect2-FFI
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
BEGIN {
use strict; use warnings;
my %missing = map {
eval qq{ require $_ };
$@ ? ($_=>1) : ()
} qw( strict warnings );
if(%missing)
{
Acme-Ford-Prefect2
view release on metacpan or search on metacpan
t/00_diag.t view on Meta::CPAN
}
pass 'okay';
my $max = 1;
$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
our $format = "%-${max}s %s";
spacer;
my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;
Acme-Fork-Lazy
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
sub _version ($) {
my $s = shift || 0;
$s =~ s/^(\d+)\.?//;
my $l = $1 || 0;
my @v = map { $_ . '0' x (3 - length $_) } $s =~ /(\d{1,3})\D?/g;
$l = $l . '.' . join '', @v if @v;
return $l + 0;
}
# Cloned from Params::Util::_CLASS
Acme-Free-API-Geodata-GeoIP
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
# Avoid Devel::Cover files.
\bcover_db\b
\.vscode
\.map$
Acme-Free-Advice
view release on metacpan or search on metacpan
lib/Acme/Free/Advice.pm view on Meta::CPAN
use parent 'Exporter';
use Module::Load;
our %EXPORT_TAGS = ( all => [ our @EXPORT_OK = qw[advice flavors] ] );
#
my %flavor = (
map {
my $pkg = 'Acme::Free::Advice::' . $_;
( eval 'require ' . $pkg ? ( lc($_) => $pkg ) : () ),
} qw[Slip Unsolicited]
);
( run in 0.825 second using v1.01-cache-2.11-cpan-49f99fa48dc )