# 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, $io) = @_; bless [ $io ], $cls; } sub DESTROY { my ($self) = @_; my $io = shift @$self; print $io @$self; } 1;