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";
view release on metacpan or search on metacpan
xt/99-dist.pl view on Meta::CPAN
#!/usr/bin/perl
use lib::abs '../lib';
use Test::More;
use Test::Dist;
use Test::NoWarnings;
chdir lib::abs::path('..');
view release on metacpan or search on metacpan
* support the GET_CONFIG command
0.17 2017-04-09
* support the shutdown event
* use lib '.' for Perl 5.25.11+
0.16 2014-10-03
* support the barconfig_update and binding event
view release on metacpan or search on metacpan
xt/meta-lint.t view on Meta::CPAN
exit;
};
};
}
use lib '.';
use vars '%module';
require 'Makefile.PL';
# Loaded from Makefile.PL
%module = get_module_info();
my $module = $module{NAME};
view release on metacpan or search on metacpan
use strict;
use warnings;
use lib '.';
use Test::More tests => 3;
for my $test (qw/t::Create t::MoveFile t::MoveDir/){
subtest $test => sub {
eval "require $test" or die;
view release on metacpan or search on metacpan
t/02-readwrite.t view on Meta::CPAN
use lib 't';
use Test::Etcdkv;
use Test::More tests => 9;
use AnyEvent::KVStore;
use Data::Dumper;
view release on metacpan or search on metacpan
misc/t/001-ping-with-payload.t view on Meta::CPAN
#!/usr/bin/perl
use warnings;
use strict;
use FindBin;
use lib $FindBin::Bin;
use Tester;
Tester->run(\*DATA);
__DATA__
{ "stream" :
view release on metacpan or search on metacpan
lib/AnyEvent/MSN.pm view on Meta::CPAN
package AnyEvent::MSN;
{ $AnyEvent::MSN::VERSION = 0.002 }
use lib '../../lib';
use 5.012;
use Moose;
use Moose::Util::TypeConstraints;
use AnyEvent qw[];
use AnyEvent::Handle qw[];
view release on metacpan or search on metacpan
t/00_compile.t view on Meta::CPAN
# -*- perl -*-
use strict;
use warnings;
use lib qw(lib);
use Test::More tests => 1;
BEGIN { use_ok('AnyEvent::Mac::Pasteboard'); }
view release on metacpan or search on metacpan
examples/incadd.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use lib::abs '../lib';
use AnyEvent;
use AnyEvent::Memcached;
my $cv = AnyEvent->condvar;
view release on metacpan or search on metacpan
lib/AnyEvent/MySQL.pm view on Meta::CPAN
$EV::DIED = sub {
print "EV::DIED: $@\n";
print Devel::StackTrace->new->as_string;
};
use lib 'lib';
use AnyEvent::MySQL;
my $end = AE::cv;
my $dbh = AnyEvent::MySQL->connect("DBI:mysql:database=test;host=127.0.0.1;port=3306", "ptest", "pass", { PrintError => 1 }, sub {
view release on metacpan or search on metacpan
examples/backup_cpan.pl view on Meta::CPAN
#!/home/acme/bin/perl
use strict;
use warnings;
use lib 'lib';
use Data::Stream::Bulk::Path::Class;
use Net::Amazon::S3;
use Perl6::Say;
use Path::Class;
use Set::Object;
view release on metacpan or search on metacpan
t/01-net-curl-compatibility.t view on Meta::CPAN
#!perl
# shamelessly borrowed from Net::Curl t/compat-19multi.t
use lib qw(inc);
use strict;
use utf8;
use warnings qw(all);
use Test::More;
view release on metacpan or search on metacpan
example/ex.pl view on Meta::CPAN
use strict;
use warnings;
use utf8;
use v5.10;
use lib 'lib';
use AnyEvent;
use AnyEvent::Pg::Pool::Multiserver;
my $servers = [
view release on metacpan or search on metacpan
ex/sample.pl view on Meta::CPAN
#!/usr/bin/env perl
use AnyEvent::Impl::Perl;
use lib::abs '../lib';
package AE::RPC::Enc::Sample;
use uni::perl;
use parent 'AnyEvent::RPC::Enc::REST';
view release on metacpan or search on metacpan
xt/integration_test.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/../lib";
use Data::Dumper;
use AnyEvent::RabbitMQ::PubSub;
use AnyEvent::RabbitMQ::PubSub::Publisher;
use AnyEvent::RabbitMQ::PubSub::Consumer;
use Test::More tests => 1;
view release on metacpan or search on metacpan
t/test_helper.pl view on Meta::CPAN
use 5.008000;
use strict;
use warnings;
use lib 't/tlib';
use Test::More;
use Test::RedisRunner;
use AnyEvent;
use version 0.77;
view release on metacpan or search on metacpan
t/test_helper.pl view on Meta::CPAN
use 5.008000;
use strict;
use warnings;
use lib 't/tlib';
use Test::More;
use Test::RedisRunner;
use AnyEvent;
use version 0.77;
view release on metacpan or search on metacpan
use AnyEvent;
use AnyEvent::Run;
use File::Spec::Functions;
use FindBin qw($Bin);
use lib catfile($Bin, 'lib');
run(
name => 'string cmd',
cmd => 'echo test',
);
view release on metacpan or search on metacpan
ex/client.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use lib::abs '../lib';
use AnyEvent;
use AnyEvent::SMTP::Client 'sendmail';
my $cv = AnyEvent->condvar;
$cv->begin(sub{ $cv->send });
view release on metacpan or search on metacpan
t/01-simple.t view on Meta::CPAN
#
# Copyright 2013 Mark Hindess
use strict;
use Test::More;
use lib 't/lib';
use File::Temp qw/tempfile/;
my ($fh, $filename) = tempfile();
END { unlink $filename if ($filename); }