|
@@ -2,7 +2,7 @@ package Selenium::Firefox;
|
|
|
|
|
|
|
|
# ABSTRACT: Use FirefoxDriver without a Selenium server
|
|
# ABSTRACT: Use FirefoxDriver without a Selenium server
|
|
|
use Moo;
|
|
use Moo;
|
|
|
-use Selenium::CanStartBinary::FindBinary qw/coerce_simple_binary/;
|
|
|
|
|
|
|
+use Selenium::CanStartBinary::FindBinary qw/coerce_simple_binary coerce_firefox_binary/;
|
|
|
extends 'Selenium::Remote::Driver';
|
|
extends 'Selenium::Remote::Driver';
|
|
|
|
|
|
|
|
=head1 SYNOPSIS
|
|
=head1 SYNOPSIS
|
|
@@ -103,16 +103,19 @@ has '_binary_args' => (
|
|
|
builder => sub {
|
|
builder => sub {
|
|
|
my ($self) = @_;
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
- my $args = ' --log trace --port ' . $self->port;
|
|
|
|
|
if ( $self->marionette_enabled ) {
|
|
if ( $self->marionette_enabled ) {
|
|
|
|
|
+ my $args = ' --log trace --port ' . $self->port;
|
|
|
$args .= ' --marionette-port ' . $self->marionette_binary_port;
|
|
$args .= ' --marionette-port ' . $self->marionette_binary_port;
|
|
|
|
|
|
|
|
if ( $self->has_firefox_binary ) {
|
|
if ( $self->has_firefox_binary ) {
|
|
|
$args .= ' --binary ' . $self->firefox_binary;
|
|
$args .= ' --binary ' . $self->firefox_binary;
|
|
|
}
|
|
}
|
|
|
- }
|
|
|
|
|
|
|
|
|
|
- return $args;
|
|
|
|
|
|
|
+ return $args;
|
|
|
|
|
+ }
|
|
|
|
|
+ else {
|
|
|
|
|
+ return ' -no-remote';
|
|
|
|
|
+ }
|
|
|
}
|
|
}
|
|
|
);
|
|
);
|
|
|
|
|
|
|
@@ -181,6 +184,7 @@ directly start up.
|
|
|
|
|
|
|
|
has 'firefox_binary' => (
|
|
has 'firefox_binary' => (
|
|
|
is => 'lazy',
|
|
is => 'lazy',
|
|
|
|
|
+ coerce => \&coerce_firefox_binary,
|
|
|
predicate => 1,
|
|
predicate => 1,
|
|
|
default => sub { '' }
|
|
default => sub { '' }
|
|
|
);
|
|
);
|