no warnings 'uninitialized'; # save some useless checks for more legible code
use Carp;
-our $VERSION = 'v2.00';
+our $VERSION = 'v2.01';
my @casedesc = (undef, qw/shift ctrl meta/, 'shift meta');
my @rowdesc = qw(numeric top home bottom);
} # row
}
+sub print_legend {
+ my $self = shift;
+ my ($class, $flags) = @_;
+
+ print qq{\t\t<dl class="legend $class">\n};
+ printf("\t\t".'<dt class="%s">%s'."\n\t\t\t".'<dd>%s'."\n",
+ $_, @{ $self->{flag}->{$_} || ["($_)", '...'] }
+ ) for @$flags;
+ print "\t\t</dl>";
+}
+
1;
=head1 NAME