image audio video
'],
stylesheet => [qw'light circus dark red'],
- data => [qw'codec.inc.pl'],
+ data => ["codec-$page.inc.pl"],
raw => '<style>td,th {width:8%} tbody th {white-space:nowrap}</style>',
});
-my $info = do "codec-$page.inc.pl";
+my $info = Data("codec-$page");
$info and %{$info} > 1
or Abort("Requested codec type <q>$page</q> not available", '404 request not found', $@ // $!);
say "<h1>\u$title</h1>";
+say "<p>$_</p>" for $info->{intro} // ();
my %BOOLSCORE = (y => [5, '✔'], n => [1, '✘'], 0 => [0, 'n/a']);
:>