Alternate view of Fyrd's when can I use... page<: -my ($canihas, $usage); -given ($get{usage} // 'wm') { - when (!$_) { - # none - } - when (!/^\w+$/) { - printf "
Invalid browser usage data request: %s",
- 'identifier must be alphanumeric name or 0
';
- }
- $canihas = do "browser-usage-$_.inc.pl" or do {
- printf "
Browser usage data not found: %s", $! || $@; - break; - }; - $usage = $_; - my $ref = $canihas->{-source} || 'unknown'; - $ref = sprintf '%s', $_, $ref for $canihas->{-url} || (); - $ref .= " $_" for $canihas->{-date} || (); - print "\nwith $ref browser usage statistics"; -} -:>. -
- -Alternate rendition of Fyrd's when can I use... page +my ($canihas, $usage, $minusage); +given ($get{usage} // 'wm') { + when (!$_) { + # none + } + when (!/^[a-z][\w-]+$/) { + printf "
Invalid browser usage data request: %s",
+ 'identifier must be alphanumeric name or 0
';
+ }
+ $canihas = do "browser-usage-$_.inc.pl" or do {
+ printf "
Browser usage data not found: %s", $! || $@; + break; + }; + $usage = $_; + my $ref = $canihas->{-title} || 'unknown'; + $ref = sprintf '%s', $_, $ref + for $canihas->{-site} || $canihas->{-source} || (); + $ref .= " $_" for $canihas->{-date} || (); + print "\nwith $ref browser usage statistics"; +} +if ($usage) { # first() does not work inside given >:( + # adapt version usage to actual support data + my %engineuse; # prefix => usage sum + for my $browser (keys %versions) { + my $row = $canihas->{$browser} // {}; + my $verlist = $versions{$browser} or next; + my %supported = map { $_ => 1 } @$verlist; + + # cascade unknown versions + $row->{$_} //= undef for @$verlist; # ensure stable keys during iteration + while (my ($version, $usage) = each %$row) { + next if defined $supported{$version}; + my $next = first { paddedver($_) ge paddedver($version) } @$verlist + or warn("No fallback found for $browser v$version; $usage% ignored"), next; + $row->{$next} += $usage; + $row->{$version} = 0; # balance browser total + } + + # build row list for each version + if ($minusage = $get{threshold} // .5) { + my @vershown; # $verlist replacement + my ($rowusage, @verrow) = (0); # replacement row tracking + for (@$verlist) { + push @verrow, $_; # queue each version + if (($rowusage += $row->{$_}) >= $minusage) { + push @vershown, [@verrow]; # add row + ($rowusage, @verrow) = (0); # reset row tracking + } + } + push @vershown, \@verrow if @verrow; # always add latest + @$verlist = @vershown; + } + else { + @$verlist = map { [$_] } @$verlist; + } + + # reusable aggregates (grouped by prefix (engine) and browser) + $engineuse{ $caniuse->{agents}->{$browser}->{prefix} } += + $row->{-total} = sum(values %$row); + } + + # order browser columns by usage grouped by engine + @browsers = sort { + $engineuse{ $caniuse->{agents}->{$b}->{prefix} } <=> + $engineuse{ $caniuse->{agents}->{$a}->{prefix} } + || + $canihas->{$b}->{-total} <=> $canihas->{$a}->{-total} + } @browsers; +} +else { + # order browser columns by name grouped by engine + @browsers = sort { + $caniuse->{agents}->{$b}->{prefix} cmp + $caniuse->{agents}->{$a}->{prefix} + || + $a cmp $b + } @browsers; +} +:>. +
+ +<: $canihas ||= { map { $_ => +{ @@ -91,22 +169,31 @@ $canihas ||= { } } @browsers }; # fallback hash based on release semantics -my $scorediv = (max(map { ref $_ eq 'HASH' && sum(values %$_) } values %$canihas) // 1) / 100; +my $usagemax = (max(map { ref $_ eq 'HASH' && sum(values %$_) } values %$canihas) // 1) / 100; + +my $usagepct = 1; # score multiplier for 0..100 result +# normalise usage percentage to only include shown browsers +$usagepct = 100.01 / featurescore({ # yes for every possible version + map { $_ => { map {$_ => 'y'} map { @{$_} } @{$versions{$_}} } } keys %versions +}); print '| feature', (map { my $name = $caniuse->{agents}->{$_}->{browser}; - sprintf(' | %s', + sprintf(' | %s',
scalar @{ $versions{$_} },
+ join(' ', map {"b-a-$_"} grep {$_}
+ $_, @{ $caniuse->{agents}->{$_} }{'prefix', 'type'},
+ ),
join(' ',
- sprintf('%.1f%%', sum(values %{ $canihas->{$_} })),
+ sprintf('%.1f%%', $canihas->{$_}->{-total} * $usagepct),
$name,
),
do {
@@ -122,27 +209,35 @@ print '', $header;
print "\n| ' x 3;
for my $browser (@browsers) {
- printf(' | %s',
- $canihas->{$browser}->{$_},
- (map {
- defined $_ && !$_ && ' class="ex"'
- } $caniuse->{agents}->{$browser}->{verrelease}->{$_}),
- showversions($_),
- ) for @{ $versions{$browser} };
+ for (@{ $versions{$browser} }) {
+ my $lastver = $_->[-1];
+ my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$lastver};
+ my $future = defined $release;
+ printf(' | %s',
+ join(' ',
+ sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{@$_}) * $usagepct),
+ $future ? 'development' : (),
+ 'version ' . join(', ', @{$_}),
+ ),
+ $future && ' class="ex"',
+ showversions($lastver),
+ );
+ }
}
print ' | ' x 1;
-print " | | ', $cell; + $cell =~ s/ api$//; # trim unessential fluff in 'js api' + printf ' | %s', join(' + ', @$_), $cell; } print ' | ', map {
@@ -181,15 +277,19 @@ sub saytitlecol {
sprintf("try { %s; return false } catch(err) { return true }",
"document.getElementById('$id').classList.toggle('target')",
),
- $_,
+ Entity($_),
);
} $row->{title};
print ' ';
s/\.?$/./, print " ';
}
@@ -208,40 +308,57 @@ sub saystatuscol {
sub saybrowsercols {
my ($id, $browser) = @_;
my $data = $caniuse->{data}->{$id}->{stats}->{$browser};
+ if (ref $data eq 'ARRAY') {
+ # special case for unsupported
+ my $release = $caniuse->{agents}->{$browser}->{verrelease};
+ $data = {
+ map { $_ => defined $release->{$_} ? 'u' : 'n' } keys %$release
+ };
+ }
my ($prev, @span);
for my $ver (@{ $versions{$browser} }, undef) {
- unless (!defined $prev
- or ref $data eq 'HASH' && $data->{$prev} ~~ $data->{$ver}) {
- my $usage = sum(map { $canihas->{$browser}->{$_} } @span);
- printf '$_ " for map { ref $_ ? @$_ : $_ || () } - $row->{description}, $row->{notes}; - printf 'Resources: %s.', join(', ', - map { qq($_->{title}) } @$_ - ) for grep { @$_ } $row->{links} // (); + Entity($row->{description}), + map { s/\s*\n/\n/g; $_ } $row->{notes}; + printf 'Resources: %s.', join(', ', map { + sprintf '%s', EscapeHTML($_->{url}), $_->{title} + } @$_) for grep { @$_ } $row->{links} // (); + printf ' Parent feature: %s.', join(', ', map { + sprintf '%s', EscapeHTML("#$_"), $caniuse->{data}->{$_}->{title} + } $_) for $row->{parent} || (); print ' | %s', + my $compare = ( + !defined $ver ? undef : # last column if nameless + ref $data ne 'HASH' ? '' : # unclassified if no support hash + $data->{ $ver->[-1] } // $prev # known or inherit from predecessor + // (grep { defined } @{$data}{ map { $_->[0] } @{ $versions{$browser} } })[0] + ~~ 'n' && 'n' # first known version is unsupported + || 'u' # unsure + ); + unless (!defined $prev or $prev ~~ $compare) { + my $usage = sum(@{ $canihas->{$browser} }{ map { @{$_} } @span }); + printf ' | %s', join(' ', - X => $CSTATS{ ref $data eq 'HASH' && $data->{$prev} || 'u' }, + X => $CSTATS{$prev}, !$usage ? ('p0') : ('p', - sprintf('p%01d', $usage / 10), - sprintf('p%02d', $usage), + sprintf('p%01d', $usage * ($usagepct - .0001) / 10), + sprintf('p%02d', $usage * ($usagepct - .0001)), ), - sprintf('pp%02d', $usage / $scorediv), + sprintf('pp%02d', $usage / $usagemax), ), scalar @span, - $usage, - showversions(@span), + sprintf('%.1f%% %s', $usage * $usagepct, join(', ', + map { ref $_ eq 'CODE' ? $_->($browser) : $_ } + map { $DSTATS{$_} // () } + map { split / /, $_ } + $prev + )), + showversions($span[0]->[0], @span > 1 ? ($span[-1]->[-1]) : ()), undef $prev; @span = (); } - push @span, $ver; - $prev = $ver; + push @span, $ver && [ grep { $data->{ $_ } eq $data->{ $ver->[-1] } } @{$ver} ]; + $prev = $compare; } } sub sayusagecol { my ($id) = @_; - state $maxscore = featurescore({ # yes for every possible version - map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions - }); - print ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100; + print ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) * $usagepct; } +say ' | '; for my $id (sort { featurescore($caniuse->{data}->{$b}->{stats}) <=> featurescore($caniuse->{data}->{$a}->{stats}) @@ -254,26 +371,28 @@ for my $id (sort { sayusagecol($id); say ''; } -print '', $header; -print '
|---|---|---|---|---|---|---|---|---|
<: if ($usage) { :> @@ -309,10 +428,12 @@ sub showversions { <:= defined $get{style} && 'set to ' :><:= $style :>