Асинхронный ввод/вывод в Coro::Handle

Пытаюсь разобраться с Coro::Handle.

Нужно параллельно/асинхронно читать два файла.

Вот минимальный проблемный код:

#!/usr/bin/perl

use strict;
use warnings;

use Coro;
use Coro::Handle;

my $coro_1 = async {

    open my $fh, '<', "/etc/passwd" or die "$!";

    $fh = unblock $fh;

    for ( 1 .. 2 ) {
        print "coro_1 start\n";

        my $result = $fh->readline();

        print "coro_1 finish: " . length($result) . "\n";
    }
};

my $coro_2 = async {

    open my $fh, '<', "/etc/passwd" or die "$!";

    $fh = unblock $fh;

    for ( 1 .. 2 ) {
        print "                     coro_2 start\n";

        my $result = $fh->readline();

        print "                     coro_2 finish: " . length($result) . "\n";
    }
};

$coro_1->join;
$coro_2->join;

print "END\n";
​x
 
1
#!/usr/bin/perl
2
​
3
use strict;
4
use warnings;
5
​
6
use Coro;
7
use Coro::Handle;
8
​
9
my $coro_1 = async {
10
​
11
    open my $fh, '<', "/etc/passwd" or die "$!";
12
​
13
    $fh = unblock $fh;
14
​
15
    for ( 1 .. 2 ) {
16
        print "coro_1 start\n";
17
​
18
        my $result = $fh->readline();
19
​
20
        print "coro_1 finish: " . length($result) . "\n";
21
    }
22
};
23
​
24
my $coro_2 = async {
25
​
26
    open my $fh, '<', "/etc/passwd" or die "$!";
27
​
28
    $fh = unblock $fh;
29
​
30
    for ( 1 .. 2 ) {
31
        print "                     coro_2 start\n";
32
​
33
        my $result = $fh->readline();
34
​
35
        print "                     coro_2 finish: " . length($result) . "\n";
36
    }
37
};
38
​
39
$coro_1->join;
40
$coro_2->join;
41
​
42
print "END\n";

Здесь создаются два треда, в каждом построчно читается файл. Я понимаю так - при каждом вызове readline управление должно передаваться в другой тред. Соответственно, работать треды должны поочередно.

Но у меня сначала отрабатывает один тред, потом другой. Т.е. такое ощущение, что readline блокируется и не передает управление в другой тред.

Вот вывод:

coro_1 start
coro_1 finish: 32
coro_1 start
coro_1 finish: 48
                     coro_2 start
                     coro_2 finish: 32
                     coro_2 start
                     coro_2 finish: 48
END
9
 
1
coro_1 start
2
coro_1 finish: 32
3
coro_1 start
4
coro_1 finish: 48
5
                     coro_2 start
6
                     coro_2 finish: 32
7
                     coro_2 start
8
                     coro_2 finish: 48
9
END

Хорошо видно, что сначала отработал первый тред (левая колонка), потом второй тред (правая колонка).

А вот как должно бы быть (если я ничего не напутал):

coro_1 start
                     coro_2 start
coro_1 finish: 32
coro_1 start
                     coro_2 finish: 32
                     coro_2 start
coro_1 finish: 48
                     coro_2 finish: 48
END
9
 
1
coro_1 start
2
                     coro_2 start
3
coro_1 finish: 32
4
coro_1 start
5
                     coro_2 finish: 32
6
                     coro_2 start
7
coro_1 finish: 48
8
                     coro_2 finish: 48
9
END

Почему у меня работает не параллельно/асинхронно? Что я упустил?