use 5.010;
use utf8;
use List::Util qw(sum max first);
+no if $] >= 5.018, warnings => 'experimental::smartmatch';
Html({
title => 'browser compatibility cheat sheet',
if ($canihas) {
while (my ($browser, $versions) = each %$row) {
ref $versions eq 'HASH' or next;
- while (my ($version, $_) = each %$versions) {
- $rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$_};
+ while (my ($version, $status) = each %$versions) {
+ $rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$status};
}
}
return $rank;