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 (!/^\w+$/) { - printf "
Invalid browser usage data request: %s",
- 'identifier must be alphanumeric name or 0
';
+ 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 "browser-usage-$_.inc.pl" or do {
- printf "
Browser usage data not found: %s", $! || $@; + $canihas = do "data/browser/usage-$_.inc.pl" or do { + Alert('Browser usage data not found', $@ || $!); break; }; $usage = $_; - my $ref = $canihas->{-source} || 'unknown'; - $ref = sprintf '%s', $_, $ref for $canihas->{-url} || (); + 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 >:( - while (my ($browser, $row) = each %$canihas) { + +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}; @@ -104,7 +135,47 @@ if ($usage) { $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; } :>.
@@ -128,8 +199,8 @@ my $usagemax = (max(map { ref $_ eq 'HASH' && sum(values %$_) } values %$canihas my $usagepct = 1; # score multiplier for 0..100 result # normalise usage percentage to only include shown browsers -$usagepct = 100 / featurescore({ # yes for every possible version - map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions +$usagepct = 100.01 / featurescore({ # yes for every possible version + map { $_ => { map {$_ => 'y'} map { @{$_} } @{$versions{$_}} } } keys %versions }); print '| feature', + ' | feature', (map { my $name = $caniuse->{agents}->{$_}->{browser}; sprintf(' | %s', @@ -148,50 +219,62 @@ my $header = join('', $_, @{ $caniuse->{agents}->{$_} }{'prefix', 'type'}, ), join(' ', - sprintf('%.1f%%', sum(values %{ $canihas->{$_} }) * $usagepct), + 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) {
- for my $_ (@{ $versions{$browser} }) {
- my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$_};
+ for (@{ $versions{$browser} }) {
+ my $lastver = $_->[-1];
+ my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$lastver};
my $future = defined $release;
printf(' | %s',
join(' ',
- sprintf('%.1f%%', $canihas->{$browser}->{$_} * $usagepct),
+ sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{@$_}) * $usagepct),
$future ? 'development' : (),
- "version $_",
+ 'version ' . join(', ', @{$_}),
),
$future && ' class="ex"',
- showversions($_),
+ showversions($lastver),
);
}
}
-print ' | ' x 1;
say ' | | ||||
|---|---|---|---|---|---|---|---|---|---|---|---|
| %s', $familycount{$_}, $_ for @families; +} +say ' | %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 * ($usagepct - .0001) / 10), sprintf('p%02d', $usage * ($usagepct - .0001)), @@ -274,18 +408,14 @@ sub saybrowsercols { sprintf('pp%02d', $usage / $usagemax), ), scalar @span, - sprintf('%.1f%% %s', $usage * $usagepct, join(', ', - map { ref $_ eq 'CODE' ? $_->($browser) : $_ } - map { $DSTATS{$_} // () } - map { split / /, $_ } - ref $data eq 'HASH' && $data->{$prev} || 'u' - )), - 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; } } @@ -310,29 +440,20 @@ for my $id (sort { say ''; say ' | |||||||||
| supported | partial - | external (js/plugin) + | optional | missing | unknown | prefixed
@@ -373,6 +494,8 @@ sub showversions {
<:= defined $get{style} && 'set to ' :><:= $style :>
|