my %versions;
if (my ($somerow) = values %{ $caniuse->{data} }) {
while (my ($browser, $row) = each %{ $somerow->{stats} }) {
$versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ];
}
}
my %versions;
if (my ($somerow) = values %{ $caniuse->{data} }) {
while (my ($browser, $row) = each %{ $somerow->{stats} }) {
$versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ];
}
}
my $canihas = do 'browser-usage.inc.pl' || do {
printf "<p>Browser usage data not found: <em>%s</em>.</p>\n", $_
my $canihas = do 'browser-usage.inc.pl' || do {
printf "<p>Browser usage data not found: <em>%s</em>.</p>\n", $_