}
}
-my $canihas = do 'browser-usage.inc.pl' or do {
+my $canihas = do 'browser-usage.inc.pl' || do {
printf "<p>Browser usage data not found: <em>%s</em>.</p>\n", $_
for $! || $@;
+ +{
+ map {
+ $_ => +{
+ map {
+ ($_->[4] => 0 ), # future
+ ($_->[3] => .5), # next
+ ($_->[0] => 5 ), # past
+ ($_->[1] => 10 ), # previous
+ ($_->[2] => 30 ), # current
+ } $caniuse->{agents}->{$_}->{versions}
+ }
+ } @browsers
+ }; # fallback hash based on release semantics
};
my $scorediv = (max(map { sum(values %$_) } values %$canihas) // 1) / 100;