::Mechanize::Chrome::DOMops qw/
domops_read_dom_element_selectors_from_JSON_string
domops_read_dom_element_selectors_from_JSON_file
/;
use WWW::Mechanize::Chrome::Webshot;
use Data::Roundtrip qw/pe
nts=s' => sub {
my $jsonstr = $_[1];
$constructor_params->{$_[0]} = WWW::Mechanize::Chrome::DOMops::domops_read_dom_element_selectors_from_JSON_string($jsonstr);
die "$jsonstr\n\n$0 : error, fai
led to parse above input JSON via --".$_[0] unless defined $constructor_params->{$_[0]};
},
'remove-dom-elements-file=s' => sub {
my $jsonfile = $_[1];
$constructor_params->{'remove-dom-elements
echanize::Chrome;
use Encode qw/encode_utf8 decode_utf8/;
use Mojo::Log;
use FindBin;
use Config::JSON::Enhanced;
use Data::Roundtrip qw/perl2dump no-unicode-escape-permanently/;
use WWW::Mechanize::C
$domops_VERBOSITY
$domops_LOGGER
/;
# a basic default configuration file in enhanced JSON (see L<Config::JSON::Enhanced>)
my $DEFAULT_CONFIGSTRING = <<'EOCS';
</* $VERSION = '0.05'; */>
</* comment
le-substitutions' => {
'SCRIPTDIR' => Cwd::abs_path($FindBin::Bin),
},
};
my $ch = Config::JSON::Enhanced::config2perl($xp);
if( ! defined $ch ){ $log->error("Configuration parameters:\n".perl