- for my $modefull (@moderows) {
- my $mode = $modefull;
- my @showcase = $mode =~ s/(\d+)(?:-(\d+))?$//
- ? (map {3 - $_} split //, $row == 0 && $2 || $1) : @caserows;
+ for my $basemode (@modes) {
+ my @moderows = split /\s+/,
+ defined $moderows{$basemode} ? $moderows{$basemode} : $moderows{-DEFAULT};
+
+ for my $submode (@moderows ? @moderows : '') {
+ my $mode = $basemode . $submode;
+ my @caserows = $mode =~ s/(\d+)(?:-(\d+))?$//
+ ? (map {$_ - 1} split //, $row == 0 && $2 || $1) # user override
+ : @$defrows; # default