From a9c93a19c0b7f17d653a61522ecffa4319d0590a Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 12 Nov 2010 04:28:42 +0100
Subject: [PATCH] browser: version release data usable as usage styling

---
 browser.plp | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/browser.plp b/browser.plp
index 3f7b6f8..4a18cb4 100644
--- a/browser.plp
+++ b/browser.plp
@@ -50,9 +50,22 @@ if (my ($somerow) = values %{ $caniuse->{data} }) {
 	}
 }
 
-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;
 
-- 
2.30.0