[perl] eof
CatalystをUPDATEかけたのを契機に中身でもみるかとおもったら
「eof」をつかってるところがあってちょっとメモ。
while ( !eof $body ) { read $body, my ($buffer), $CHUNKSIZE; last unless $self->write( $c, $buffer ); }
http://flex.ee.uec.ac.jp/texi/perl/perl_80.html
http://search.cpan.org/perldoc?Catalyst::Engine