<(common.inc.plp)><: use 5.010; use utf8; use List::Util qw(sum max first); Html({ title => 'browser compatibility cheat sheet', version => 'v1.0', description => "caniuse.", keywords => [qw' web browser support compatibility usage available feature html html5 css css3 svg javascript js dom mobile ie internet explorer firefox chrome safari webkit opera '], stylesheet => [qw'circus dark mono red light'], data => ['browser-support.inc.pl'], }); say "

Browser compatibility

\n"; my $caniuse = do 'browser-support.inc.pl' or die $! || $@; $_->{verrelease} = { # mark last two (future) versions as unreleased, ensure current isn't map { $_->[-1] => 0, $_->[-2] => 0, $_->[-3] => undef } $_->{versions} } for values %{ $caniuse->{agents} }; my %CSTATS = ( 'n' => 'l1', 'y' => 'l5', 'y x' => 'l5 ex', 'a' => 'l3', 'a x' => 'l3 ex', 'p j' => 'l2', 'j' => 'l2', 'p' => 'l2', 'p p' => 'l2', 'u' => 'l0', ); my %DSTATS = ( u => 'unknown', n => 'unsupported', p => 'plugin required', j => 'javascript required', a => 'partial', y => 'supported', x => sub { join(' ', 'requires prefix', (map "-$_-", $caniuse->{agents}->{$_[0]}->{prefix} // ()), ); }, ); my %CSTATUS = ( unoff => 'l1', # unofficial wd => 'l3', # draft cr => 'l4', # candidate pr => 'l4', # proposed rec => 'l5', # recommendation other => 'l2', # non-w3 ietf => 'l5', # standard ); my %versions; if (my ($somerow) = values %{ $caniuse->{data} }) { while (my ($browser, $row) = each %{ $somerow->{stats} }) { $versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ]; } } my @browsers = grep { $versions{$_} } qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini); print <<'';

Alternate rendition 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"; } if ($usage) { # first() does not work inside given >:( while (my ($browser, $row) = each %$canihas) { my $verlist = $versions{$browser} or next; my %supported = map { $_ => 1 } @$verlist; $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 } } } :>.

<: $canihas ||= { map { $_ => +{ map { my $zero = $#$_ - 2; # baseline index ($_->[$zero - 2] => .5), # past ($_->[$zero - 1] => 10 ), # previous ($_->[$zero + 2] => 0 ), # future ($_->[$zero + 1] => .5), # next ($_->[$zero ] => 30 ), # current } $caniuse->{agents}->{$_}->{versions} } } @browsers }; # fallback hash based on release semantics 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 / featurescore({ # yes for every possible version map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions }); print ''; print ''; # should match first thead row printf '', scalar @{ $versions{$_} } for @browsers; say ''; my $header = join('', '', '', $header; # preceding row without any colspan to work around gecko bug print "\n"; print ''; say '', $header, ''; sub featurescore { # relative amount of support for given feature state $statspts = { y=>1, 'y x'=>1, a=>.5, 'a x'=>.5, j=>.2, 'p j'=>.2, 'p p'=>.2, p=>.1 }; my $rank = 0; if (my $row = shift) { if ($canihas) { while (my ($browser, $versions) = each %$row) { ref $versions eq 'HASH' or next; while (my ($version, $_) = each %$versions) { $rank += ($canihas->{$browser}->{$version} || .001) * $statspts->{$_}; } } return $rank; } while (my ($browser, $vercols) = each %versions) { my $div = 0; # multiplier exponent (decreased to lower value) my @vers = map { $row->{$browser}->{$_} } @$vercols; if (my $current = $caniuse->{agents}->{$browser}->{versions}->[-3]) { my @future; # find upcoming releases (after current) for (reverse @$vercols) { last if $_ eq $current; push @future, pop @vers; $_ eq 'u' and $_ = $vers[-1] for $future[-1]; # inherit latest value if unknown } splice @vers, -1, 0, @future; # move ahead to decrease precedence } $rank += $statspts->{$_} * 2**($div--) for reverse @vers; } } return $rank; } sub saytitlecol { my ($id) = @_; my $row = $caniuse->{data}->{$id}; for ($row->{categories}) { my $cell = $_ ? lc $_->[0] : '-'; $cell =~ s/ api$//; # trim unessential fluff in 'js api' printf ''; for my $id (sort { featurescore($caniuse->{data}->{$b}->{stats}) <=> featurescore($caniuse->{data}->{$a}->{stats}) } keys %{ $caniuse->{data} }) { $caniuse->{data}->{$id}->{stats} or next; # skip metadata [summary] printf '', $id; saytitlecol($id); saystatuscol($id); saybrowsercols($id, $_) for @browsers; sayusagecol($id); say ''; } say ''; say '
feature', (map { my $name = $caniuse->{agents}->{$_}->{browser}; sprintf('%s', scalar @{ $versions{$_} }, join(' ', map {"b-a-$_"} grep {$_} $_, @{ $caniuse->{agents}->{$_} }{'prefix', 'type'}, ), join(' ', sprintf('%.1f%%', sum(values %{ $canihas->{$_} }) * $usagepct), $name, ), do { length $name < 3 + @{ $versions{$_} }*2 ? $name : $caniuse->{agents}->{$_}->{abbr}; }, ) } @browsers), '%', ); print '
' x 3; for my $browser (@browsers) { for my $_ (@{ $versions{$browser} }) { my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$_}; my $future = defined $release; printf('%s', join(' ', sprintf('%.1f%%', $canihas->{$browser}->{$_} * $usagepct), $future ? 'development' : (), "version $_", ), $future && ' class="ex"', showversions($_), ); } } print '' x 1; say '
%s', join(' + ', @$_), $cell; } print '', map { sprintf('%s', "#$id", sprintf("try { %s; return false } catch(err) { return true }", "document.getElementById('$id').classList.toggle('target')", ), Entity($_), ); } $row->{title}; print '
'; s/\.?$/./, print "

$_

" for map { ref $_ ? @$_ : $_ || () } Entity($row->{description}), formathtml($row->{notes}); # sic printf 'Resources: %s.', join(', ', map { sprintf '%s', EscapeHTML($_->{url}), $_->{title} } @$_) for grep { @$_ } $row->{links} // (); print '
'; } sub saystatuscol { my ($id) = @_; my $row = $caniuse->{data}->{$id}; for ($row->{status}) { my $cell = $_ // '-'; $cell = sprintf '%s', $_, $cell for $row->{spec} // (); printf '		%s', $caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $cell; } } sub saybrowsercols { my ($id, $browser) = @_; my $data = $caniuse->{data}->{$id}->{stats}->{$browser}; 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 '%s', join(' ', X => $CSTATS{ ref $data eq 'HASH' && $data->{$prev} || 'u' }, !$usage ? ('p0') : ('p', sprintf('p%01d', $usage * ($usagepct - .0001) / 10), sprintf('p%02d', $usage * ($usagepct - .0001)), ), 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), undef $prev; @span = (); } push @span, $ver; $prev = $ver; } } sub sayusagecol { my ($id) = @_; print '', int featurescore($caniuse->{data}->{$id}->{stats}) * $usagepct; } say '
'; sub formathtml { my $ref = defined wantarray ? [@_] : \@_; for (@$ref) { s/& (?!\w)/&/gx; s/< \s/</gx; s/\n\K\n/
/g; } return @$ref; } sub paddedver { # normalised version number comparable as string (cmp) shift =~ /(?:.*-|^)(\d*)(.*)/; # matched (major)(.minor) of last value in range (a-B) return sprintf('%02d', $1 || 0) . $2; } sub showversions { my @span = ($_[0], @_>1 ? $_[-1] : ()); s/-.*// for $span[0]; for (@span) { s/^\./0./; s/x$/.*/; s/.*-//; } return join('‒', @span); } :>
supported partial external (js/plugin) missing unknown prefixed

<: if ($usage) { :> Usage percentage: 0 - .01 - 1-9 - 10 - 20 - majority <: } else { :>
previous version current upcoming (within months) future (within a year)
<: } :>