X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/a12fd2846834c96aaf034aca4c749f9e217af1a9..beabcbe2db77145e8aa7d1d90dd2f6cfa198a7a8:/browser.plp diff --git a/browser.plp b/browser.plp index e65395e..04599d0 100644 --- a/browser.plp +++ b/browser.plp @@ -5,23 +5,23 @@ use List::Util qw(sum max first); 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 '], stylesheet => [qw'circus dark mono red light'], - data => ['browser-support.inc.pl'], + data => ['data/browser/support.inc.pl'], }); say "
Alternate rendition of Fyrd's when can I use... page my ($canihas, $usage); -my $minusage = $get{threshold} // .5; +my $minusage = $get{threshold} // .7; given ($get{usage} // 'wm') { when (!$_) { # none } - when (!/^[a-z][\w-]+$/) { + when (!m{ \A [a-z]\w+ (?:/\d[\d-]*\d)? \z }x) { printf "
Invalid browser usage data request: %s",
'identifier must be alphanumeric name or 0
';
}
- $canihas = do "browser-usage-$_.inc.pl" or do {
+ $canihas = do "data/browser/usage-$_.inc.pl" or do {
printf "
Browser usage data not found: %s", $! || $@; break; }; @@ -159,6 +159,7 @@ if ($usage) { # first() does not work inside given >:( } else { # order browser columns by name grouped by engine + @{$_} = map { [$_] } @{$_} for values %versions; @browsers = sort { $caniuse->{agents}->{$b}->{prefix} cmp $caniuse->{agents}->{$a}->{prefix} @@ -199,7 +200,7 @@ say '