Html({
title => 'browser compatibility cheat sheet',
- version => 'v1.0',
+ version => 'v1.1',
description => [
"Compatibility table of new web features (HTML5, CSS3, SVG, Javascript)",
"comparing support and usage share for all popular browser versions.",
],
keywords => [qw'
- web browser support compatibility usage available feature
+ web browser support compatibility usage matrix available feature
html html5 css css3 svg javascript js dom mobile
ie internet explorer firefox chrome safari webkit opera
'],
<p id="intro">Alternate rendition of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page
my ($canihas, $usage);
-my $minusage = $get{threshold} // .5;
+my $minusage = $get{threshold} // .7;
given ($get{usage} // 'wm') {
when (!$_) {
# none
my $header = join('',
'<tr>',
- '<th colspan="3">feature',
+ '<th colspan="3" rowspan="2">feature',
(map {
my $name = $caniuse->{agents}->{$_}->{browser};
sprintf('<th colspan="%d" class="%s" title="%s">%s',
$name,
),
do {
- length $name < 3 + @{ $versions{$_} }*2 ? $name
+ length $name <= (3 * @{ $versions{$_} }) ? $name
: $caniuse->{agents}->{$_}->{abbr};
},
)
} @browsers),
- '<th>%',
+ '<th rowspan="2">%',
);
print '<thead>', $header;
# preceding row without any colspan to work around gecko bug
print "\n<tr>";
-print '<td>' x 3;
for my $browser (@browsers) {
for (@{ $versions{$browser} }) {
my $lastver = $_->[-1];
);
}
}
-print '<td>' x 1;
say '</thead>';
say '<tfoot>', $header;
{
}
print "\n", '<tr class="cat">';
- print '<td>' x 3;
printf '<th colspan="%d">%s', $familycount{$_}, $_ for @families;
- print '<td>';
}
say '</tfoot>';