<(common.inc.plp)><: my @feat = split m{/+}, $Request || 'default'; Html({ title => 'Codecs', version => '1.0', description => [ ], keywords => [qw' '], stylesheet => [qw'light circus dark red'], data => [qw'codec.inc.pl'], }); my $info = do 'codec.inc.pl'; $info and %{$info} > 1 or Abort("cannot open operator include", 500, $@ // $!); my %BOOLSCORE = (y => 5, n => 1); :>

Image codecs

"; print ''; while (defined (my $feat = shift @feat)) { my $featinfo = $info->{feature}->{$feat} or next; unshift @feat, @{$_} for $featinfo->{children} // (); $featinfo->{score} or $featinfo->{data} or next; print '' if $featinfo->{children}; printf ''; } :>
feature <: my @codecs = sort { $info->{codec}->{$a}->{available} <=> $info->{codec}->{$b}->{available} } keys $info->{codec}->%*; print '', $_->{name} for @{$info->{codec}}{@codecs}; print "\n
', $_->{available} for @{$info->{codec}}{@codecs}; say '
%s', $featinfo->{name} // $feat; printf('%s', (map { $_ && $BOOLSCORE{$_} || $_ || 0 } $featinfo->{score}->{$_}), $featinfo->{data}->{$_} // (map { $BOOLSCORE{$_} ? ($_ eq 'y' ? '✔' : '✘') : '•' x ($_ - 1) } $featinfo->{score}->{$_}), ) for @codecs; say '