http://7fh6tueqddpjyxjmgtdiueylzoqt6pt7hec3pukyptlmohoowvhde4yd.onion/public-inbox.git/tree/lib/PublicInbox/DS.pm
); [ $fh , 0 ] # [1] = offset, [2] = length, not set by us } =head2 C<< $obj->write( $data ) >> Write the specified data to the underlying handle. I<data> may be scalar, scalar ref, code ref (to run when there). Returns 1 if writes all went through, or 0 if there are writes in queue. If it returns 1, caller should stop waiting for 'writable' events) =cut sub write { my ( $self , $data ) = @_ ; # nobody should be writing to closed sockets, but caller code can # do two...