}
}
+sub legend {
+ my @classes = (
+ ["X l5" => 'unicode 1.1'],
+ ["X l4" => '20th century'],
+ ["X l3" => 'in 6.0 (2010)'],
+ ["X l2" => 'recent assignments'],
+ ["X l1" => 'proposed'],
+ ["ex" => 'irregular'],
+ );
+
+ return (
+ '<div class="legend"><table class="glyphs"><tr>',
+ (map { sprintf '<td class="%s">%s', @{$_} } @classes),
+ '</table></div>',
+ );
+}
+
1;
:></table>
</div>
-<hr>
-
-<div class="legend">
- <table class="glyphs"><tr>
- <td class="X l5">unicode 1.1
- <td class="X l4">20th century
- <td class="X l3">in 6.0 (2010)
- <td class="X l2">recent assignments
- <td class="X l1">proposed
- <td class="ex">irregular
- </table>
-</div>
+<:
+say for '<hr/>', $glyphs->legend;
} @table]);
}
-:></div>
+say "</div>\n";
-<hr>
-
-<div class="legend">
- <table class="glyphs"><tr>
- <td class="X l5">unicode 1.1
- <td class="X l4">20th century
- <td class="X l3">in 6.0 (2010)
- <td class="X l2">recent assignments
- <td class="X l1">proposed
- <td class="ex">irregular
- </table>
-</div>
+say for '<hr/>', $glyphs->legend;