- for my $browser (@browsers) {
- my ($prev, @span);
- for my $ver (@{ $versions{$browser} }, undef) {
- unless (!defined $prev
- or ref $data->{$browser} eq 'HASH'
- && $data->{$browser}->{$prev} ~~ $data->{$browser}->{$ver}) {
- my $usage = sum(map { $canihas->{$browser}->{$_} } @span);
- printf '<td class="%s" colspan="%d" title="%.1f%%">%s',
- join(' ',
- X => $CSTATS{
- ref $data->{$browser} ne 'HASH' ? 'u' :
- $data->{$browser}->{$prev} // 'u'
- },
- !$usage ? ('p0') : ('p',
- sprintf('p%01d', $usage / 10),
- sprintf('p%02d', $usage),
- ),
- sprintf('pp%02d', $usage / $scorediv),
+}
+
+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) {
+ my $compare = (
+ !defined $ver ? undef : # last column if nameless
+ ref $data ne 'HASH' ? '' : # unclassified if no support hash
+ $data->{$ver} // $prev # known or inherit from predecessor
+ // (grep { defined } @{$data}{ @{ $versions{$browser} } })[0]
+ ~~ 'n' && 'n' # first known version is unsupported
+ || 'u' # unsure
+ );
+ unless (!defined $prev or $prev ~~ $compare) {
+ my $usage = sum(map { $canihas->{$browser}->{$_} } @span);
+ printf '<td class="%s" colspan="%d" title="%s">%s',
+ join(' ',
+ X => $CSTATS{$prev},
+ !$usage ? ('p0') : ('p',
+ sprintf('p%01d', $usage * ($usagepct - .0001) / 10),
+ sprintf('p%02d', $usage * ($usagepct - .0001)),