->translate should handle unlimited args, even if we don't
currently use it that way...
my $rec = $_[0] // return $self->zflush; # getline
my @out;
my $lbuf = delete($self->{lbuf}) // shift;
my $rec = $_[0] // return $self->zflush; # getline
my @out;
my $lbuf = delete($self->{lbuf}) // shift;
+ $lbuf .= shift while @_;
my $is_tag = $self->{-is_tag};
my ($H, $ct, $an, $ae, $at, $s, $bdy);
while ($lbuf =~ s/\A([^\0]+)\0\n//s) {
my $is_tag = $self->{-is_tag};
my ($H, $ct, $an, $ae, $at, $s, $bdy);
while ($lbuf =~ s/\A([^\0]+)\0\n//s) {