|
@@ -10,10 +10,10 @@ use Try::Tiny;
|
|
|
use Moo::Role;
|
|
use Moo::Role;
|
|
|
|
|
|
|
|
has 'binary_mode' => (
|
|
has 'binary_mode' => (
|
|
|
- is => 'ro',
|
|
|
|
|
|
|
+ is => 'lazy',
|
|
|
init_arg => undef,
|
|
init_arg => undef,
|
|
|
- lazy => 1,
|
|
|
|
|
- builder => 1
|
|
|
|
|
|
|
+ builder => 1,
|
|
|
|
|
+ predicate => 1
|
|
|
);
|
|
);
|
|
|
|
|
|
|
|
has 'try_binary' => (
|
|
has 'try_binary' => (
|
|
@@ -79,6 +79,17 @@ sub start_binary_on_port {
|
|
|
}
|
|
}
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
+sub shutdown_binary {
|
|
|
|
|
+ my ($self) = @_;
|
|
|
|
|
+
|
|
|
|
|
+ if ($self->has_binary_mode && $self->binary_mode) {
|
|
|
|
|
+ my $port = $self->port;
|
|
|
|
|
+ my $ua = $self->ua;
|
|
|
|
|
+
|
|
|
|
|
+ $ua->get('127.0.0.1:' . $port . '/wd/hub/shutdown');
|
|
|
|
|
+ }
|
|
|
|
|
+}
|
|
|
|
|
+
|
|
|
sub _find_executable {
|
|
sub _find_executable {
|
|
|
my ($binary) = @_;
|
|
my ($binary) = @_;
|
|
|
|
|
|