Ellipsis to indicate next row, (ditto) quotes for previous.
if ($len -= $rest) {
# continued on new row
my @next = ($len * $colsize, "$class joinu");
+ my $separate = $cols - $len > $rest; # columns not on next row
if ($len > $rest) {
# minority remains
push @next, $name, $title;
$title ||= $name;
- $name = '';
+ $name = $separate && '…';
}
else {
# minority on next row
- push @next, '"', $title || $name;
+ push @next, $separate && '"', $title || $name;
}
$table->{$offset + $colsize*$rest} //= \@next;
$class .= ' joind';