my $mode = lc $Request;
my $include = "keyboard/$mode.eng";
+if (-e (my $page = "keyboard/$Request/index.inc.plp")) {
+ Include $page;
+ exit;
+}
+
my $info = eval { Data($include) } || {};
warn "error in $include: ", @{$@} if ref $@;
$mode = $info->{title} // $mode;
'404 request not found',
);
-say "<h1>$mode cheat sheet</h1>";
+say "<h1>$mode keyboard</h1>";
say "<p>$_</p>" for $info->{intro} // ();
say "<h2>", $info->{mode}->{''}, " (default)</h2>"
if $info->{mode} and %{ $info->{mode} } > 1;