AnyEvent-Worker

 view release on metacpan or  search on metacpan

ex/worker-pool.pl  view on Meta::CPAN

	return "Result from $self->{some}: @_";
}

sub fail {
	my $self = shift;
	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' ] );

my $cv = AE::cv;

my $j1;$j1 = sub {
	my $id = shift;

ex/worker.pl  view on Meta::CPAN

	return "Result from $self->{some}: @_";
}

sub fail {
	my $self = shift;
	die "Fail from $self->{some}: @_";
}

package main;

use lib::abs '../lib';
use AnyEvent 5;
use AnyEvent::Worker;
use Guard;

my $worker1 = AnyEvent::Worker->new( [ ActualWorker => some => 'zzz' ] );
my $worker2 = AnyEvent::Worker->new( sub { return "Cb 1 @_"; } );
my $worker3 = AnyEvent::Worker->new( sub { die    "Cb 2 @_"; } );
my $worker4 = AnyEvent::Worker->new( {
	class   => 'ActualWorker',
	new     => 'constructor',

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

#!/usr/bin/env perl -w

use lib::abs "../lib";
use Test::More tests => 3;
use Test::NoWarnings;

BEGIN {
	use_ok( 'AnyEvent::Worker' );
	use_ok( 'AnyEvent::Worker::Pool' );
}

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

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

sub fail {my $self = shift;die "Fail from $self->{some}: @_";}
sub failref {my $self = shift;die bless ["Fail from $self->{some}: @_"],"CustomException";}

package t::ActualWorker2;

sub create {my $pkg = shift;my $self = bless { @_ },$pkg;}
sub test {my $self = shift;return "Result from $self->{some}: @_";}

package main;

use lib::abs "../lib";
use Test::NoWarnings;
use Test::More tests => 13+1;
use AnyEvent::Impl::Perl;
use AnyEvent 5;
use AnyEvent::Worker;
use AnyEvent::Util(); 

my $worker1 = AnyEvent::Worker->new( [ t::ActualWorker => some => 'object' ] );
my $worker2 = AnyEvent::Worker->new( sub { return "Cb 1 @_"; } );
my $worker3 = AnyEvent::Worker->new( sub { die    "Cb 2 @_"; } );

t/02-procdie.t  view on Meta::CPAN

#!/usr/bin/env perl -w

package main;

use lib::abs "../lib";
use Test::NoWarnings;
use Test::More tests => 8+1;
use AnyEvent::Impl::Perl;
use AnyEvent 5;
use AnyEvent::Worker;
use AnyEvent::Util(); 

my $worker1 = AnyEvent::Worker->new( sub { exit 0; }, on_error => sub {
	my ($x,$error,$fatal,$file,$line) = @_;
	like $error, qr/^unexpected eof/, 'on_err: got error';

t/pod.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use lib::abs '../lib';

use Test::More;
BEGIN {
	chdir lib::abs::path '..' or plan skip_all => "$!";
	eval q{use Test::Pod 1.22;1} or plan skip_all => "Not Test::Pod";
	
}

all_pod_files_ok();
exit 0;

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(
	'+' => 1,
	skip => [qw(prereq podcover uses_test_nowarnings has_example)],
	kwalitee => {
		req => [qw( has_separate_license_file has_example