# Copyright (C) 2016 all contributors
# License: AGPL-3.0+
#
# internal class used by PublicInbox::Git + Danga::Socket
# This writes to the input pipe of "git cat-file --batch/--batch-check"
package PublicInbox::GitAsyncWr;
use strict;
use warnings;
use base qw(Danga::Socket);
sub new {
my ($class, $io) = @_;
my $self = fields::new($class);
IO::Handle::blocking($io, 0);
$self->SUPER::new($io);
}
# we only care about write + event_write
sub event_hup { $_[0]->close }
sub event_err { $_[0]->close }
1;