$rest = $len if $len < $rest; #TODO: optimise
if ($len -= $rest) {
# continued on new row
- $table->{$offset + $colsize*$rest} //= [$len*$colsize, "$class joinu", $name, $title];
- $name = '';
+ my @next = ($len * $colsize, "$class joinu");
+ if ($len > $rest) {
+ # minority remains
+ push @next, $name, $title;
+ $title ||= $name;
+ $name = '';
+ }
+ else {
+ # minority on next row
+ push @next, '"', $title || $name;
+ }
+ $table->{$offset + $colsize*$rest} //= \@next;
$class .= ' joind';
}
$len = $rest;