"background:$css; color:$inverse; padding:0 1ex",
$name,
);
- $out .= sprintf '<td style="%s">%s', "background:$_; color:$css", $minhex
+ $out .= sprintf '<td style="%s"><code>%s</code>', "background:$_; color:$css", $minhex
for @$sample;
return "$out\n";
}
}
print "\n";
+ print '<table>';
for my $row (0, 12) {
- print '<table><tr>';
+ print '<tr>';
print colcell(232+$_, ($_*10 + 8) x 3) for $row .. $row+11;
- print "</table>\n";
}
+ print "</table>\n";
print "\n";
:></div>