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
}
else {
plan tests => 4;
}
use lib '.';
our %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); }
view release on metacpan or search on metacpan
bin/sway.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use lib './lib';
use AnyEvent::Sway qw(:all);
my $sway = sway();
$sway->connect->recv or die "Error connecting";
view release on metacpan or search on metacpan
maint/Makefile.PL.include view on Meta::CPAN
BEGIN { -e 'Distar' or system("git clone git://git.shadowcat.co.uk/p5sagit/Distar.git") }
use lib 'Distar/lib';
use Distar;
author 'haarg - Graham Knop (cpan:HAARG) <haarg@haarg.org>';
view release on metacpan or search on metacpan
t/01_mutex.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 => 9;
use Encode qw(decode encode);
use Time::HiRes qw(time);
view release on metacpan or search on metacpan
t/01-empty.t view on Meta::CPAN
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/lib";
use Test::AnyEvent::WebService::Tracks tests => 4;
my $tracks = get_tracks;
view release on metacpan or search on metacpan
t/anyevent_websocket_client.t view on Meta::CPAN
use lib 't/lib';
use Test2::Plugin::EV;
use Test2::Plugin::AnyEvent::Timeout;
use Test2::V0 -no_srand => 1;
use Test2::Tools::WebSocket::Server qw( start_server start_echo );
use AnyEvent::WebSocket::Client;
view release on metacpan or search on metacpan
t/connetion_active_close.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::Util qw(set_timeout start_server);
use testlib::ConnConfig;
use AnyEvent;
use AnyEvent::WebSocket::Server;
use AnyEvent::Handle;
view release on metacpan or search on metacpan
ex/worker-pool.pl view on Meta::CPAN
die "Fail from $self->{some}: @_";
}
package main;
use lib::abs '../lib';
use common::sense;
use AnyEvent 5;
use AnyEvent::Worker::Pool;
my $pool = AnyEvent::Worker::Pool->new( 5, [ 'ActualWorker' ] );
view release on metacpan or search on metacpan
samples/anyevent-xmlrpc-serv.pl view on Meta::CPAN
#!/usr/bin/perl
#~ use lib "lib";
use AnyEvent::XMLRPC;
my $serv = AnyEvent::XMLRPC->new(
#~ port => 9090,
#~ uri => "/RPC2",