Source of map.plp

<(common.inc.plp)><:
my $mapfile = sprintf 'map-%s.nld.tsv', $Request || 'numbers';
open my $table, '<', $mapfile;
my ($title, $description) = split /\t/, readline $table;

Html({
	title => $title,
	version => '1.0',
	data => [$mapfile],
	description => $description,
	raw => '<style>td,th{text-align:left}</style>',
});

say "<h1>\u$title</h1>";
say "<p>$description</p>";

say '<table><thead>';
while (my $row = readline $table) {
	my @cols = split /\t/, $row;
	@cols > 1 or last;
	say '<tbody>' if $. == 3;
	print '<tr>';
	for (@cols) {
		print /^\d / ? '<th>' : '<td>';
		s/^.\K /&nbsp;/g; # icon glyph
		print;
	}
}
say '</table>';