# Copyright (C) all contributors
# License: AGPL-3.0+
# Finalization messages, used to queue up a bunch of messages which
# only get written out on ->DESTROY
package PublicInbox::LeiFinmsg;
use strict;
use v5.10.1;
sub new {
my ($cls, $lei) = @_;
bless [ @$lei{qw(2 sock)}, $$ ], $cls;
}
sub DESTROY {
my ($self) = @_;
my ($stderr, $sock, $pid) = splice(@$self, 0, 3);
print $stderr @$self if $pid == $$;
# script/lei disconnects when $sock SvREFCNT drops to zero
}
1;