- $code =~ m/\A(-?)(\d)(\d)/ or return $code;
- return $1 . chr(0x1F031 + ($2 * 7) + $3) if $U; # offset from domino tile horizontal-00-00
- return $1 . join(' ', '·' x $2, '·' x $3);
+ my ($prefix, @dots) = $code =~ m/\A(-?)(\d)(\d)/ or return $code;
+ if ($U) {
+ # unicode glyph alternative as DOMINO TILE HORIZONTAL-0a-0b
+ return $prefix . chr(0x1F031 + ($dots[0] * 7) + $dots[1]);
+ }
+ return $prefix . join(' ', map { '·' x $_ } @dots);
'Lowercase' => [qw{ a b c d e f g h i j k l m n o p q r s t u v w x y z }],
'Sütterlin' => [qw{ a b c d e f g h i j k l m n o p q r ſ s t u v w x y z }],
'Old Roman Cursive' => [
'Lowercase' => [qw{ a b c d e f g h i j k l m n o p q r s t u v w x y z }],
'Sütterlin' => [qw{ a b c d e f g h i j k l m n o p q r ſ s t u v w x y z }],
'Old Roman Cursive' => [
"m2,4 c1,2 8,9 8,9 M2,15 6,9",
"m2,4 c0,0 3,-2 4,1 1,2 0,9 3,9 1,-0 2,-1 2,-1 m-6,-2 c-5,4 -0,6 1,3",
"m4,7 4,-2 m-4,4 c0,0 -2,7 3,6",
"m2,4 c1,2 8,9 8,9 M2,15 6,9",
"m2,4 c0,0 3,-2 4,1 1,2 0,9 3,9 1,-0 2,-1 2,-1 m-6,-2 c-5,4 -0,6 1,3",
"m4,7 4,-2 m-4,4 c0,0 -2,7 3,6",
- sprintf !$_ ? '<span>%2$s</span>' : '<span style="background:#%s" title="%s">%s</span>',
- split(/:/), chr(8195);
+ sprintf('<span%s>%s</span>',
+ !!$_ && sprintf(' style="background:#%s" title="%s"', split /:/),
+ chr(8195), # em space
+ );