(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'], raw => '', }); my $info = do 'codec.inc.pl'; $info and %{$info} > 1 or Abort("cannot open operator include", 500, $@ // $!); my %BOOLSCORE = (y => [5, '✔'], n => [1, '✘'], 0 => [0, 'n/a']); :>
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; for (@codecs) { my ($score, $data, $title) = map { ref ? @$_ : $_ } $featinfo->{score}->{$_}; if (not defined $data) { if (my $override = $BOOLSCORE{$score}) { ($score, $data) = @{$override}; } else { $data = '•' x ($score - 1); } } printf ' | ', $data; } say ' | '; } :>