# Copyright (C) 2016-2018 all contributors # License: AGPL-3.0+ # only for PublicInbox::Daemon package PublicInbox::ParentPipe; use strict; use warnings; use base qw(Danga::Socket); use fields qw(cb); sub new ($$$) { my ($class, $pipe, $cb) = @_; my $self = fields::new($class); $self->SUPER::new($pipe); $self->{cb} = $cb; $self->watch_read(1); $self; } sub event_read { $_[0]->{cb}->($_[0]) } 1;