}
}
+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;