1 # Copyright (C) 2016-2018 all contributors <meta@public-inbox.org>
2 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
3 # only for PublicInbox::Daemon
4 package PublicInbox::ParentPipe;
7 use base qw(PublicInbox::DS);
11 my ($class, $pipe, $cb) = @_;
12 my $self = fields::new($class);
13 $self->SUPER::new($pipe, PublicInbox::DS::EPOLLIN());
18 sub event_step { $_[0]->{cb}->($_[0]) }