<div id="browser">
<:
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',
'p j' => 'l2',
'j' => 'l2',
'p' => 'l2',
+ 'p p' => 'l2',
'u' => 'l0',
);
my %CSTATUS = (
print "\n<tr>";
print '<td>' x 3;
for my $browser (@browsers) {
- printf('<td title="%.1f%%">%s',
- $canihas->{$browser}->{$_}, showversions($_),
+ printf('<td title="%.1f%%"%s>%s',
+ $canihas->{$browser}->{$_},
+ (map {
+ defined $_ && !$_ && ' class="ex"'
+ } $caniuse->{agents}->{$browser}->{verrelease}->{$_}),
+ showversions($_),
) for @{ $versions{$browser} };
}
print '<td>' x 1;