while (my ($browser, $versions) = each %$row) {
ref $versions eq 'HASH' or next;
while (my ($version, $_) = each %$versions) {
- $rank += $canihas->{$browser}->{$version} * $statspts->{$_};
+ $rank += ($canihas->{$browser}->{$version} || .001) * $statspts->{$_};
}
}
return $rank;
for ($row->{categories}) {
my $cell = $_ ? lc $_->[0] : '-';
- print '<th>', $cell;
+ printf '<th title="%s">%s', join(' + ', @$_), $cell;
}
print '<td>', map {