if ($usage) { # first() does not work inside given >:(
# adapt version usage to actual support data
my %engineuse; # prefix => usage sum
- while (my ($browser, $row) = each %$canihas) {
+ for my $browser (keys %versions) {
+ my $row = $canihas->{$browser} // {};
my $verlist = $versions{$browser} or next;
my %supported = map { $_ => 1 } @$verlist;
}
# build row list for each version
- if ($minusage = $get{threshold} // .2) {
+ if ($minusage = $get{threshold} // .5) {
my @vershown; # $verlist replacement
my ($rowusage, @verrow) = (0); # replacement row tracking
for (@$verlist) {