#!/usr/bin/env perl
-use 5.010;
-use strict;
+use 5.014;
use warnings;
use Data::Dump 'pp';
our $VERSION = '1.01';
my %BROWSERID = qw(
- IE ie
+ IE edge
+ Edge edge
Firefox firefox
Safari safari
Safari-iPad ios_saf
+ Safari-iPod-Touch ios_saf
+ Safari-iPhone ios_saf
Chrome chrome
+ Chrome-iPad chrome
+ Chrome-for-iPhone chrome
Chromium chrome
Opera opera
+ Opera-Mini op_mini
BlackBerry bb
IEMobile ie_mob
- Android android
+ Android and_chr
Chrome-for-Android and_chr
UC-Browser and_uc
+ QQ-Browser and_qq
iPhone ios_saf
iPod-Touch ios_saf
+ Samsung-Internet samsung
);
my %count = (