AnyEvent-Connection

 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';

package main;

my $cl = My::Client->new(
	host      => '127.0.0.1',
	port      => 7,

t/00-load.t  view on Meta::CPAN

#!/usr/bin/env perl

use common::sense;
use lib::abs '../lib';
use Test::More tests => 2;
use Test::NoWarnings;

BEGIN {
	use_ok( 'AnyEvent::Connection' );
}

diag( "Testing AnyEvent::Connection $AnyEvent::Connection::VERSION, Perl $], $^X" );

t/01-test.t  view on Meta::CPAN

#!/usr/bin/env perl

use common::sense;
use lib::abs '../lib';

package Echo::Client;

use base 'AnyEvent::Connection';

package main;

use Test::TCP;
use AnyEvent::Impl::Perl;
use AnyEvent;

t/pod.t  view on Meta::CPAN

#!/usr/bin/env perl -w

use common::sense;
use Test::More;
use lib::abs "../lib";
BEGIN {
	my $lib = lib::abs::path( ".." );
	chdir $lib or plan skip_all => "Can't chdir to dist $lib";
}

# Ensure a recent version of Test::Pod
eval "use Test::Pod 1.22; 1"
	or plan skip_all => "Test::Pod 1.22 required for testing POD";
eval "use File::Find; 1"
	or plan skip_all => "File::Find required for testing POD";

xt/01-test.t  view on Meta::CPAN

#!/usr/bin/env perl

BEGIN {
	print "1..0 # SKIP: Currrently broken\n";
	exit 0;
}
use common::sense;
use lib::abs '../lib';
use Devel::Rewrite;
BEGIN {$ENV{DEBUG_CB} = 1}
package Echo::Client;

use base 'AnyEvent::Connection';

package main;

use Test::TCP;
use AnyEvent::Impl::Perl;

xt/99-dist.t  view on Meta::CPAN

#!/usr/bin/perl

use lib::abs '../lib';
use Test::More;
use Test::Dist;
use Test::NoWarnings;
chdir lib::abs::path('..');

Test::Dist::dist_ok(
	run => 1,
	'+' => 1,
	skip => [qw(prereq podcover)],
	kwalitee => {