+ if ($_ eq 'html') {
+ require HTML::Entities;
+ if (my $_ = $HTML::Entities::char2entity{$cell}) {
+ $anno = sprintf(' <small class="digraph">%s</small>', EscapeHTML($_));
+ last;
+ }
+ }
+ elsif ($_ eq 'xml') {
+ require HTML::Entities;
+ $anno = sprintf(' <small class="digraph">%s</small>',
+ sprintf "&#%d;", ord($cell)
+ );
+ last;
+ }
+ elsif ($_ eq 'di') {