X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/327c4c234570dabd716f92da15cf0ef716b9cb5d..6b44545759289f85e96c8c6b41501484374afa61:/browser.plp
diff --git a/browser.plp b/browser.plp
index c10c20f..13e6b5e 100644
--- a/browser.plp
+++ b/browser.plp
@@ -39,7 +39,6 @@ given ($get{usage} // 'wm') {
:>.
-
<:
my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
$_->{verrelease} = {
@@ -131,7 +130,8 @@ for my $browser (@browsers) {
) for @{ $versions{$browser} };
}
print '
' x 1;
-print "\n";
+say '';
+say ' | ', $header, '';
sub featurescore {
# relative amount of support for given feature
@@ -242,6 +242,7 @@ sub sayusagecol {
print '
', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100;
}
+say ' | ';
for my $id (sort {
featurescore($caniuse->{data}->{$b}->{stats})
<=> featurescore($caniuse->{data}->{$a}->{stats})
@@ -254,8 +255,8 @@ for my $id (sort {
sayusagecol($id);
say '';
}
-print '', $header;
-print '';
+say '';
+say '';
sub formathtml {
my $ref = defined wantarray ? [@_] : \@_;
@@ -282,8 +283,7 @@ sub showversions {
return join('â', @span);
}
-:>
-
+:>