HANENKAMP / POE-Declarative-0.09 / t / passing-args.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

              
use strict;
use warnings;
use POE;
use POE::Declarative;
use Test::More tests => 10;
our $acc = 1;
on _start => run {
    yield 'say_ok_times_10';
};
on say_ok_times_10 => run {
    for ( 1 .. 10 ) {
        yield 'say_ok', $_;
    }
};
on say_ok => run {
    is(get ARG0, $acc++);
};
POE::Declarative->setup;
POE::Kernel->run;