browser: user-configurable usage threshold
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 15 Feb 2011 22:40:12 +0000 (23:40 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 10 Apr 2012 01:03:24 +0000 (03:03 +0200)
browser.plp

index 1158334..c258677 100644 (file)
@@ -73,7 +73,7 @@ my @browsers = keys %versions;
 print <<'';
 <p id="intro">Alternate rendition of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page
 
-my ($canihas, $usage);
+my ($canihas, $usage, $minusage);
 given ($get{usage} // 'wm') {
        when (!$_) {
                # none
@@ -111,7 +111,7 @@ if ($usage) { # first() does not work inside given >:(
                }
 
                # build row list for each version
-               if (my $minusage = .2) {
+               if ($minusage = $get{threshold} // .2) {
                        my @vershown;  # $verlist replacement
                        my ($rowusage, @verrow) = (0);  # replacement row tracking
                        for (@$verlist) {
@@ -427,6 +427,8 @@ sub showversions {
                        <:= defined $get{style} && 'set to ' :><em><:= $style :></em>
                <li><strong>usage</strong> source is
                        <:= !defined $get{usage} && 'default ' :><:= defined $usage ? "<em>$usage</em>" : 'not included (<em>0</em>)' :>
+               <li>usage <strong>threshold</strong> is
+                       <:= defined $get{threshold} && 'changed to ' :><em><:= $minusage :>%</em>
                </ul>
        </div>
 </div>