Yet Another CPAN Grep

Selenium-UserAgent ( G/GE/GEMPESAW/Selenium-UserAgent-0.11.tar.gz, GEMPESAW, 2017; MetaCPAN )

Selenium-UserAgent/lib/Selenium/UserAgent.pm ( view source; MetaCPAN )

.11';
# ABSTRACT: Emulate mobile devices by setting user agents when using webdriver
use Moo;
use JSON;
use Cwd qw/abs_path/;
use Carp qw/croak/;
use List::Util 1.33 qw/any/;
use Selenium::Firefox::Pr

 s/UserAgent\.pm$/devices.json/;

        my $devices;
        {
            local $/ = undef;
            open (my $fh, "<", $devices_file);
            $devices = from_json(<$fh>);
            close

Agent/blob/master/lib/Selenium/devices.json>;
they're vetted against the L<values that Mozilla uses for
Firefox|https://code.cdn.mozilla.net/devices/devices.json>.

Usage looks like:

    my $sua = Se