Coro で Read-Write Lock パターン - l1o0の日記増補改訂版 Java言語で学ぶデザインパターン入門 マルチスレッド編 を参考に Coro で Read-Write Lock パターンを実装。 Read-Write Lockは、 スレッドが読んている間は、別のスレッドも読める スレッドが書いている間は、別のスレッドは読めない スレッドが読んている間は、別のスレッドは書けない スレッドが書いている間は、別のスレッドは書けない #!/usr/bin/perl use strict; use warnings; package Reader; use Coro; sub new { my ( $class, %args ) = @_; my %defaults = ( name => 'Reader' ); %args = ( %defaults, %args ); bless \%args, $class; } sub run { my $s
