version => 'v1.0',
description =>
"caniuse.",
- keywords => [qw'html css browser feature'],
+ keywords => [qw'
+ web browser support compatibility usage 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'],
});
-:>
-<h1>Browser compatibility</h1>
-
-<p id="intro">Alternate view of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page<:
-my ($canihas, $usage);
-given ($get{usage} // 'wm') {
- when (!$_) {
- # none
- }
- when (!/^\w+$/) {
- printf "<p>Invalid browser usage data request: <em>%s</em>",
- 'identifier must be alphanumeric name or <q>0</q>';
- }
- $canihas = do "browser-usage-$_.inc.pl" or do {
- printf "<p>Browser usage data not found: <em>%s</em>", $! || $@;
- break;
- };
- $usage = $_;
- my $ref = $canihas->{-source} || 'unknown';
- $ref = sprintf '<a href="%s">%s</a>', $_, $ref for $canihas->{-url} || ();
- $ref .= " $_" for $canihas->{-date} || ();
- print "\nwith $ref browser usage statistics";
-}
-:>.
-</p>
+say "<h1>Browser compatibility</h1>\n";
-<:
my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
$_->{verrelease} = {
# mark last two (future) versions as unreleased, ensure current isn't
my @browsers = grep { $versions{$_} }
qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini);
+print <<'';
+<p id="intro">Alternate rendition of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page
+
+my ($canihas, $usage);
+given ($get{usage} // 'wm') {
+ when (!$_) {
+ # none
+ }
+ when (!/^\w+$/) {
+ printf "<p>Invalid browser usage data request: <em>%s</em>",
+ 'identifier must be alphanumeric name or <q>0</q>';
+ }
+ $canihas = do "browser-usage-$_.inc.pl" or do {
+ printf "<p>Browser usage data not found: <em>%s</em>", $! || $@;
+ break;
+ };
+ $usage = $_;
+ my $ref = $canihas->{-source} || 'unknown';
+ $ref = sprintf '<a href="%s">%s</a>', $_, $ref for $canihas->{-url} || ();
+ $ref .= " $_" for $canihas->{-date} || ();
+ print "\nwith $ref browser usage statistics";
+}
+:>.
+</p>
+
+<:
$canihas ||= {
map {
$_ => +{