- printf '<th title="%s">%s', $row->{description}, $row->{title};
- printf '<td title="%s" class="%s">%s', $caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $_ for $row->{status};
+ for ($row->{categories}) {
+ my $cell = $_ ? lc $_->[0] : '-';
+ print '<th>', $cell;
+ }
+ printf '<td title="%s">%s', $row->{description}, $row->{title};
+ for ($row->{status}) {
+ my $cell = $_ // '-';
+ $cell = sprintf '<a href="%s">%s</a>', $_, $cell for $row->{spec} // ();
+ printf '<td title="%s" class="%s">%s',
+ $caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $cell;
+ }