print '<tbody>' if $featinfo->{children};
printf '<tr><th>%s', $featinfo->{name} // $feat;
for (@codecs) {
- my ($score, $data) = map { ref ? @$_ : $_ } $featinfo->{score}->{$_};
+ my ($score, $data, $title) = map { ref ? @$_ : $_ } $featinfo->{score}->{$_};
if (not defined $data) {
if (my $override = $BOOLSCORE{$score}) {
($score, $data) = @{$override};
$data = '•' x ($score - 1);
}
}
- printf '<td class="l%d">%s', $score, $data;
+ printf '<td class="l%d"', $score;
+ printf ' title="%s"', $_ for $title // ();
+ print '>', $data;
}
say '</td>';
}