use Data::Dump 'pp';
use Text::CSV;
+our $VERSION = '1.00';
+
my %BROWSERID = qw(
IE ie
Firefox firefox
my $version = $browser =~ s/ (\d\S*)$// ? $1 : 0;
given ($browser) {
- when (['Browser Version', 'Mobile Browser', 'Mobile vs. Desktop']) {
- $pct =~ s/^Market Share % // and $count{-date} = $pct;
+ when (['Browser', 'Browser Version', 'Mobile Browser', 'Mobile vs. Desktop', 'Comparison']) {
+ $pct =~ s/^Market Share (?:%|Perc\.) // or break;
+ $pct =~ s/\A\((.*)\)\z/$1/;
+ $count{-date} = $pct;
}
$browser =~ tr/ /-/;
$browser = $_ for $BROWSERID{$browser} // ();