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
if ($usage) { # first() does not work inside given >:(
# adapt version usage to actual support data
my %engineuse; # prefix => usage sum
- while (my ($browser, $row) = each %$canihas) {
+ for my $browser (keys %versions) {
+ my $row = $canihas->{$browser} // {};
my $verlist = $versions{$browser} or next;
my %supported = map { $_ => 1 } @$verlist;
}
# 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) {
<:= 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>