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);
+my $minusage = $get{threshold} // .7;
+given ($get{usage} // 'wm') {
+ when (!$_) {
+ # none
+ }
+ when (!m{ \A [a-z]\w+ (?:/\d[\d-]*\d)? \z }x) {
+ Alert([
+ 'Invalid browser usage data request',
+ 'Identifier must be alphanumeric name or 0
.',
+ ]);
+ }
+ $canihas = do "data/browser/usage-$_.inc.pl" or do {
+ Alert('Browser usage data not found', $@ || $!);
+ 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";
+}
+
+my @browsers;
+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;
+ if ($minusage and sum(values %$row) < $minusage) {
+ delete $versions{$browser};
+ 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) {
+ 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}
+ } keys %versions;
+}
+else {
+ # order browser columns by name grouped by engine
+ @{$_} = map { [$_] } @{$_} for values %versions;
+ @browsers = sort {
+ $caniuse->{agents}->{$b}->{prefix} cmp
+ $caniuse->{agents}->{$a}->{prefix}
+ ||
+ $a cmp $b
+ } keys %versions;
+}
+:>.
+
| feature', + ' | 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 { - length $name < 3 + @{ $versions{$_} }*2 ? $name + length $name <= (3 * @{ $versions{$_} }) ? $name : $caniuse->{agents}->{$_}->{abbr}; }, ) } @browsers), - ' | %', + ' | %',
);
print '', $header;
# preceding row without any colspan to work around gecko bug
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 " | | ||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| %s', $familycount{$_}, $_ for @families; +} +say ' | %s', join(' + ', @$_), $cell;
}
@@ -181,15 +327,23 @@ sub saytitlecol {
sprintf("try { %s; return false } catch(err) { return true }",
"document.getElementById('$id').classList.toggle('target')",
),
- $_,
+ Entity($_),
);
} $row->{title};
print ' ';
- s/\.?$/./, print " ';
}
@@ -207,41 +361,70 @@ sub saystatuscol {
sub saybrowsercols {
my ($id, $browser) = @_;
- my $data = $caniuse->{data}->{$id}->{stats}->{$browser};
+ my $feature = $caniuse->{data}->{$id};
+ my $data = $feature->{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} // (); + print "$_ " + for formatnotes($row->{description}, $row->{notes} || ()); + if (my %notes = %{ $row->{notes_by_num} }) { + say 'Browser-specific notes:';
+ say " 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 }); + + # strip #\d note references from support class + my @notes; + push @notes, $feature->{notes_by_num}->{$1} + while $prev =~ s/\h \# (\d+) \b//x; + + # prepare version hover details + my $title = sprintf('%.1f%% %s', $usage * $usagepct, join(', ', + map { ref $_ eq 'CODE' ? $_->($browser, $span[0]->[0]) : $_ } + map { $DSTATS{$_} // () } + map { split / /, $_ } + $prev + )); + $title .= "\n".EscapeHTML($_) for @notes; + + 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), + $title, + 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,33 +437,35 @@ for my $id (sort { sayusagecol($id); say ''; } -print '', $header; -print '||||||||
| supported | partial - | external (js/plugin) + | optional | missing | unknown | prefixed
@@ -309,10 +494,12 @@ sub showversions {
<:= defined $get{style} && 'set to ' :><:= $style :>
|