… | … | ||
---|---|---|---|
8 | use Coro; | 8 | use Coro; |
9 | use Benchmark; | 9 | use Benchmark; |
10 | 10 | ||
11 | $a = bless {}, main::; | 11 | $a = bless {}, main::; |
12 | 12 | ||
13 | |||
14 | sub a { | ||
15 | } | ||
16 | |||
17 | sub b { | 13 | sub b { |
18 | my ($self) = shift; | 14 | my ($self) = shift; |
19 | my $num = shift; | 15 | $self->{b} = shift if @_; |
20 | return $num+1; | 16 | $self->{b}; |
21 | } | 17 | } |
22 | 18 | ||
23 | $b = async { | 19 | $b = async { |
24 | # do a little unrolling... | 20 | # do a little unrolling... |
25 | while() { | 21 | while() { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |