Echo Server

http://d.hatena.ne.jp/tokuhirom/20070509/1178672405

AddOtherFdsじゃなくても、

  Danga::Socket->AddOtherFds(

    fileno($ssock) => sub {

       ....

    }

  );

Danga::Socket::Callbackをここでも使い回すという手もあります。

  Danga::Socket::Callback->new(

    handle => $ssock,

    on_read_ready => sub {

       ...

    }

  );

まぁどっちでもいいんですが、なんか細かい差とかありそうで怖いなぁw （そこまでちゃんとDanga::Socketを使いこなしてません）