view release on metacpan or search on metacpan
bench/all.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Benchmark qw(cmpthese);
use lib 'blib/lib', 'blib/arch';
use List::Util ();
use util qw(all);
print "=" x 60, "\n";
print "all - All Match Benchmark\n";
view release on metacpan or search on metacpan
script/electric-sheep-close-app.pl view on Meta::CPAN
use strict;
use warnings;
our $VERSION = '0.09';
use lib ('blib/lib');
use Getopt::Long qw(:config no_ignore_case);
use Android::ElectricSheep::Automator;
view release on metacpan or search on metacpan
script/anego view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use lib 'lib';
use Anego::CLI;
Anego::CLI->run(@ARGV);
view release on metacpan or search on metacpan
author/benchmark.pl view on Meta::CPAN
use strict;
use warnings;
use utf8;
use feature qw/say/;
use lib 'lib';
use SampleDbic::Schema;
use SampleAniki::DB;
use SampleAniki::DB::Schema;
use SampleTeng::DB;
use Benchmark qw/cmpthese timethese/;
view release on metacpan or search on metacpan
html/index.cgi view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use lib qw(../lib /home/ivan/perl);
use CGI::Compress::Gzip;
use CGI::Carp 'fatalsToBrowser';
use Template;
use AnnoCPAN::Config '../_config.pl';
use AnnoCPAN::Control;
view release on metacpan or search on metacpan
t/20-util-run-testset1.t view on Meta::CPAN
use Test::More;
use Modern::Perl;
use Data::Printer alias => 'pdump';
use lib 't/';
use Local::Ansible::Test1;
#########################################
use_ok('Ansible::Util::Run');
view release on metacpan or search on metacpan
t/ext/arg_test view on Meta::CPAN
#!/usr/bin/env perl
use strict; use warnings;
use lib 'lib';
use AnsibleModule;
my $module=AnsibleModule->new(argument_spec=>{hello => {required => 1, aliases=>['bye']}, yay => { default => 'yes' }});
my $params=$module->params;
$params->{msg}='arg_test';
view release on metacpan or search on metacpan
examples/fg_bg_colors.pl view on Meta::CPAN
#!perl
use v5.32;
use experimental qw(signatures);
use lib qw(lib);
use Antsy;
my $fg_rgb = Antsy::iterm_fg_color();
view release on metacpan or search on metacpan
lib/Any/Moose/Convert.pm view on Meta::CPAN
moose2mouse qw(lib); # makes moose/lib/...
mouse2mouse qw(lib); # makes mouse/lib/...
# or as a command
$ perl -MAny::Moose::Convert -e 'moose2mouse lib'
$ perl -MAny::Moose::Convert -e 'mouse2moose lib'
=head1 DESCRIPTION
view release on metacpan or search on metacpan
t/01_base.t view on Meta::CPAN
use warnings;
use strict;
use utf8;
use open qw(:std :utf8);
use lib qw(lib ../lib);
use Test::More tests => 6;
use Encode qw(decode encode);
view release on metacpan or search on metacpan
eg/web-state.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use lib 'eg';
use WebWorker;
my $w = WebWorker->new
( concurrency => 1, ## crank this up to 10000 for some real action
max_stop_tries => 1,
view release on metacpan or search on metacpan
eg/simple_client.pl view on Meta::CPAN
#!perl
use lib '../lib';
use AnyEvent::BitTorrent;
use Net::BitTorrent::Protocol qw[:all];
$|++;
#
view release on metacpan or search on metacpan
# include all licenses.
use lib qw( lib );
use AnyEvent::Blackboard;
view release on metacpan or search on metacpan
t/010-ae-cb.t view on Meta::CPAN
use warnings;
use strict;
use utf8;
use open qw(:std :utf8);
use lib qw(lib ../lib);
use Test::More tests => 36;
use Encode qw(decode encode);
view release on metacpan or search on metacpan
examples/client.pl view on Meta::CPAN
#!/usr/bin/perl -w
use lib '/Users/dws/checkouts/github/AnyEvent-Chromi/lib';
use 5.014;
use AnyEvent;
use AnyEvent::Chromi;
view release on metacpan or search on metacpan
ex/example.pl view on Meta::CPAN
use lib::abs '../lib';
package My::Client;
use base 'AnyEvent::Connection';
view release on metacpan or search on metacpan
t/01-basic.t view on Meta::CPAN
#!/usr/bin/env perl
use Test::More;
use lib 'lib';
use AnyEvent::Cron;
my $cron = AnyEvent::Cron->new;
ok( $cron );
my $cv = AnyEvent->condvar;
view release on metacpan or search on metacpan
eg/simple_daap_server.pl view on Meta::CPAN
use strict;
use warnings;
use lib 'lib';
use AnyEvent;
use AnyEvent::DAAP::Server;
use AnyEvent::DAAP::Server::Track::File::MP3;
use AnyEvent::DAAP::Server::Playlist;
use File::Find::Rule;
view release on metacpan or search on metacpan
ex/sample.pl view on Meta::CPAN
use common::sense 3;
use lib::abs '../lib';
use EV;
use AnyEvent::DBD::Pg;
my $adb = AnyEvent::DBD::Pg->new('dbi:Pg:dbname=test', user => 'pass', {
view release on metacpan or search on metacpan
examples/dns.pl view on Meta::CPAN
use v5.14;
use strict;
use warnings;
use lib 'lib', '../lib';
my $domain = $ARGV[0] || 'example.com';
use if ($ENV{PERL_ANYEVENT_DNS} || "") eq 'EtcHosts' || !$ENV{PERL_ANYEVENT_DNS}, 'AnyEvent::DNS::EtcHosts';
use AnyEvent::DNS;
view release on metacpan or search on metacpan
tools/issue10.pl view on Meta::CPAN
use strict;
use warnings;
use lib '../lib';
use AnyEvent::FTP::Client;
AnyEvent::FTP::Client->new->connect("ftp://localhost:9521/");
view release on metacpan or search on metacpan
samples/simple.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use lib qw(lib ../lib);
use AnyEvent::Filesys::Notify;
use AnyEvent::Impl::Perl; # Could be use Event or use EV, see AnyEvent
my $notifier = AnyEvent::Filesys::Notify->new(
view release on metacpan or search on metacpan
t/20-scanFilesystem.t view on Meta::CPAN
use warnings;
use Data::Dump;
use AnyEvent::Filesys::Watcher;
use lib 't/lib';
use TestSupport qw(create_test_files delete_test_files move_test_files
modify_attrs_on_test_files);
# Setup for tests
create_test_files qw(1 one/1 two/1);
view release on metacpan or search on metacpan
use warnings;
use strict;
use utf8;
use open qw(:std :utf8);
use lib qw(lib ../lib);
use Test::More tests => 39;
use Encode qw(decode encode);
BEGIN {
view release on metacpan or search on metacpan
t/00-SlotWorker.t view on Meta::CPAN
package main;
use lib qw( lib t/lib );
use Test::More tests=>4;
use Gear;
use AnyEvent;
use AnyEvent::Gearman;
use TestWorker;
view release on metacpan or search on metacpan
use strict;
use warnings;
use lib '../lib';
use AnyEvent::Groonga;
use Test::More;
use FindBin;
use File::Spec;
view release on metacpan or search on metacpan
t/request.t view on Meta::CPAN
use strict;
use warnings;
use Test::More 0.88;
use lib 't/lib';
use AEHTTP_Tests;
my $mod = 'AnyEvent::HTTP::Request';
eval "require $mod" or die $@;
view release on metacpan or search on metacpan
t/lib/server.pl view on Meta::CPAN
#!perl
use lib 't/lib';
use RPC::ExtDirect::Test::Foo;
use RPC::ExtDirect::Test::Bar;
use AnyEvent::HTTPD::ExtDirect;
view release on metacpan or search on metacpan
t/01_simple_routes.t view on Meta::CPAN
#!perl
use lib 't/lib';
use common::sense;
use Test::More;
use AnyEvent::HTTPD::Router;
use MockedRequest;
view release on metacpan or search on metacpan
use strict;
use warnings;
use Test::More;
use AnyEvent::Impl::Perl;
use AnyEvent;
use lib '../lib';
use AnyEvent::Handle::Throttle;
$|++;
my $condvar = AnyEvent->condvar;
my ($handle, $rbuf, $prev, $chunks);
my $req = "GET / HTTP/1.0\015\012\015\012";