(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 => '', }); say "
$description
"; say '' : ' | '; s/^.\K / /g; # icon glyph print; } } say ' |
---|