projects
/
MojoX-Gearman.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
first worker
[MojoX-Gearman.git]
/
t
/
gearman-worker.t
1
#!/usr/bin/env perl
2
use warnings;
3
use strict;
4
5
use Test::More tests => 7;
6
use Data::Dump qw(dump);
7
use lib 'lib';
8
9
use_ok 'MojoX::Gearman';
10
11
my $g = new_ok 'MojoX::Gearman';
12
13
my $name = "mojo_g";
14
15
ok( my $echo = $g->req( 'CAN_DO', $name, sub {
16
my $payload = shift;
17
warn "DO $name ", dump($payload), $/;
18
return $payload + 1;
19
}), 'CAN_DO' );
20
diag $echo;
21
22
$g->start;
23
24
diag "press <enter> to finish";
25
<STDIN>;
26