no warnings 'uninitialized'; # save some useless checks for more legible code
use Carp;
-our $VERSION = '2.08';
+our $VERSION = '2.09';
my @casedesc = (undef, qw/shift ctrl meta/, 'shift meta');
my @rowdesc = qw(numeric top home bottom);
say "\t\t</dl>";
}
-sub print_legends {
- my $self = shift;
- my ($input) = @_;
-
- say "<hr/>\n";
- say '<div class="help">';
-
- say "\t", '<div class="left">';
- my @groups = sort grep {/^g\d/} keys %{ $self->{flag} };
- $self->print_legend('legend-types', \@groups);
- say "\t</div>\n";
-
- say "\t", '<div class="right">';
- my @attr = sort grep {!/^g\d/} keys %{ $self->{flag} };
- $self->print_legend('legend-options', \@attr);
- say '';
-
- say "\t\t", '<ul class="legend legend-set">';
-
- say "\t\t<li>keyboard <strong>map</strong> is ",
- ($input->{map} ? 'set to ' : ''), "<em>$self->{map}</em>";
- say "\t\t<li><strong>keys</strong> are ",
- "<em>", ($self->{showkeys} ? 'always shown' : 'hidden if unassigned'), "</em>",
- (!defined $self->{showkeys} && ' by default');
- say "\t\t<li>default <strong>style</strong> is ",
- (defined $input->{style} && 'set to '), "<em>$self->{style}</em>";
-
- say "\t\t</ul>";
- say "\t</div>\n";
- say "</div>\n";
-}
-
1;
=head1 NAME
my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows}, $info->{rows});
-$keys->print_legends(\%get);
+{
+ say "<hr/>\n";
+ say '<div class="help">';
+
+ say "\t", '<div class="left">';
+ my @groups = sort grep {/^g\d/} keys %{ $keys->{flag} };
+ $keys->print_legend('legend-types', \@groups);
+ say "\t</div>\n";
+
+ say "\t", '<div class="right">';
+ my @attr = sort grep {!/^g\d/} keys %{ $keys->{flag} };
+ $keys->print_legend('legend-options', \@attr);
+ say '';
+
+ say "\t\t", '<ul class="legend legend-set">';
+
+ say "\t\t<li>keyboard <strong>map</strong> is ",
+ ($get{map} ? 'set to ' : ''), "<em>$keys->{map}</em>";
+ say "\t\t<li><strong>keys</strong> are ",
+ "<em>", ($showkeys ? 'always shown' : 'hidden if unassigned'), "</em>",
+ (!defined $showkeys && ' by default');
+ say "\t\t<li>default <strong>style</strong> is ",
+ (defined $get{style} && 'set to '), "<em>$style</em>";
+
+ say "\t\t</ul>";
+ say "\t</div>\n";
+ say "</div>\n";
+}