}
for my $mode (keys %{ $row{mode} }) {
- $row{inventory}{$mode}{$_}++ for grep { /^g[2-9]/ } map { s/ (?!ext).*//r } map {$_->[0]}
+ $row{inventory}{$mode}{$_}++
+ for grep { /^g[2-9]/ } map { s/ (?!ext).*//r } map {$_->[0]}
values %{ $keys->{def}{$mode} };
}
}
print '</a>', "\n\t";
for my $mode ($table->{mode} ? sort keys %{ $table->{mode} } : '') {
print '<span class=graph>';
- printf "<label>%s</label>", m/^(\S*)/ for $mode && $table->{mode}{$mode} || ();
+ printf "<label>%s</label>", m/^(\S*)/
+ for $mode && $table->{mode}{$mode} || ();
for my $g (sort keys %{ $table->{inventory}{$mode} }) {
printf '<span class="%s" style="width:%.0f%%" title="%3$d %4$s"> %s</span>',
$g, $_/$most*100, $_,
say '</span>';
}
print "\t<td class=ni>";
- print join ' ', map { $caticon{$_} // () } split m{/}, $table->{category} // '';
+ print join ' ', map { $caticon{$_} // () }
+ split m{/}, $table->{category} // '';
say '';
if (my $keys = eval {
my $keydata = Data("$dirbase/$inc.eng");