line |
stmt |
code |
1
|
|
# Copyright 2009-2013 Bernhard M. Wiedemann |
2
|
|
# Copyright 2019-2020 SUSE LLC |
3
|
|
# SPDX-License-Identifier: GPL-2.0-or-later |
4
|
|
|
5
|
|
|
6
|
|
use Mojo::Base 'consoles::console', -signatures; |
7
|
32
|
use Try::Tiny; |
|
32
|
|
|
32
|
|
8
|
32
|
use Scalar::Util 'blessed'; |
|
32
|
|
|
32
|
|
9
|
32
|
|
|
32
|
|
|
32
|
|
10
|
|
try { |
11
|
12
|
local $SIG{__DIE__} = undef; |
|
12
|
|
|
12
|
|
12
|
|
$self->connect_remote($self->{args}); |
13
|
12
|
return $self->SUPER::activate; |
14
|
12
|
} |
15
|
9
|
catch { |
16
|
|
die $_ unless blessed $_ && $_->can('rethrow'); |
17
|
|
return {error => $_->error}; |
18
|
3
|
}; |
19
|
2
|
} |
20
|
12
|
|
21
|
|
# to be overwritten |
22
|
|
|
23
|
|
1; |