browser: usage source option

diff --git a/browser.plp b/browser.plp
index e4e0b2851783581101aed96a39b0d56ec25047ee..c340160833f3875e6536b014012af927124dc974 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -16,18 +16,27 @@ Html({
 :>
 <h1>Browser compatibility</h1>
 
 :>
 <h1>Browser compatibility</h1>
 

-<p>Alternate view of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page
-<:
-my $canihas = do 'browser-usage.inc.pl'
-       or printf "<p>Browser usage data not found: <em>%s</em>.</p>\n", $! || $@;
-
-print "with $_ browser usage statistics." for map {
-       my $ref = $_->{-source} || 'unknown';
-       $ref = sprintf '<a href="%s">%s</a>', $_, $ref for $_->{-url} || ();
-       $ref .= " $_" for $_->{-date} || ();
-       $ref
-} $canihas || ();
-:>
+<p>Alternate view of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page<:
+my ($canihas, $usage);
+given ($get{usage} // 'wm') {
+       when (!$_) {
+               # none
+       }
+       when (!/^\w+$/) {
+               printf "<p>Invalid browser usage data request: <em>%s</em>",
+                       'identifier must be alphanumeric name or <q>0</q>';
+       }
+       $canihas = do "browser-usage-$_.inc.pl" or do {
+               printf "<p>Browser usage data not found: <em>%s</em>", $! || $@;
+               break;
+       };
+       $usage = $_;
+       my $ref = $canihas->{-source} || 'unknown';
+       $ref = sprintf '<a href="%s">%s</a>', $_, $ref for $canihas->{-url} || ();
+       $ref .= " $_" for $canihas->{-date} || ();
+       print "\nwith $ref browser usage statistics";
+}
+:>.

 </p>
 
 <div id="browser">
 </p>
 
 <div id="browser">


@@ -257,6 +266,8 @@ sub showversions {
                <ul class="legend legend-set">
                <li>default <strong>style</strong> is
                        <:= defined $get{style} && 'set to ' :><em><:= $style :></em>
                <ul class="legend legend-set">
                <li>default <strong>style</strong> is
                        <:= 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>)' :>

                </ul>
        </div>
 </div>
                </ul>
        </div>
 </div>