X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/068f457f9a60a17ca141d3b90bd7dee9aa7267bc..7eef0272a71f7610177d3a617f947758e415d565:/browser.plp
diff --git a/browser.plp b/browser.plp
index 16aad08..005ab16 100644
--- a/browser.plp
+++ b/browser.plp
@@ -1,5 +1,6 @@
<(common.inc.plp)><:
use 5.010;
+use utf8;
use List::Util qw(sum max);
Html({
@@ -59,16 +60,22 @@ print '
' x 3;
printf '', scalar @{ $versions{$_} } for @browsers;
print "\n";
-print '';
-print 'feature';
-printf(' | %s',
- scalar @{ $versions{$_} },
- do {
- my $name = $caniuse->{agents}->{$_}->{browser};
- length $name < 16 ? $name : $caniuse->{agents}->{$_}->{abbr};
- },
-) for @browsers;
-print ' | %';
+my $header = join('',
+ ' |
',
+ 'feature',
+ (map {
+ sprintf(' | %s',
+ scalar @{ $versions{$_} },
+ sum(values %{ $canihas->{$_} }),
+ do {
+ my $name = $caniuse->{agents}->{$_}->{browser};
+ length $name < 16 ? $name : $caniuse->{agents}->{$_}->{abbr};
+ },
+ )
+ } @browsers),
+ ' | %',
+);
+print '', $header;
# preceding row without any colspan to work around gecko bug
print "\n";
print '' x 3;
@@ -156,6 +163,7 @@ for my $id (sort {
});
print ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100;
}
+print ' | |
', $header;
print '';
sub paddedver {