for (my $row = 0; $row <= $#{ $keyrows{$self->{map}} }; $row++) {
my $keyrow = $keyrows{$self->{map}}->[$row];
- my @caserows = 0 .. $#$keyrow;
print qq{<li class="row row$row"><ul>\n};
for my $modefull (@moderows) {
my $mode = $modefull;
my @showcase = $mode =~ s/(\d+)(?:-(\d+))?$//
- ? (map {3 - $_} split //, $row == 0 && $2 || $1) : @caserows;
+ ? (map {$_ - 1} split //, $row == 0 && $2 || $1) : (2, 1, 0);
my $modekeys = $self->{keys}{$mode};
for my $case (@showcase) {