';
+ print '';
print " | $_" for @sample;
say ' | ', join(' ', map { $keys->{key}{$_} =~ s/\s.*//r } grep {$_} keys %{$_}) - for $keys->{mode} || (); - $keys->print_key('', $_, $keys->{def}{''}{$_} // 'ni') for @sample; + for my $mode ($keys->{mode} ? sort keys %{ $keys->{mode} } : '') { + my %inventory; + $inventory{$_}++ for grep { /^g[2-9]/ } map { s/ (?!ext).*//r } + values %{ $keys->{def}{$mode} }; + print ''; + print "" for $keys->{key}{$mode} =~ s/\s.*//r || (); + for my $g (sort keys %inventory) { + printf ' %s', + $g, $_/$most*100, $_, + join(' ', map { + $keys->{flag}{$_}[0] || 'extra' # legend label of each class + } reverse split / /, $g) + for $inventory{$g}; + } + say ''; + } + print "\t | "; + print join ' ', map { $caticon{$_} // () } split m{/}, $keys->{category}; + say ''; + $keys->print_key('', $_, ($keys->{def}{''}{$_} // 'ni') =~ s/ mode\S*//r) + for @sample; say ' |
---|