Commit | Line | Data |
a5e1e1c6 |
1 | package System::Introspector::Gatherer::Bridge; |
2 | use Object::Remote; |
3 | use Object::Remote::Future; |
4 | use Moo; |
5 | |
6 | has remote_spec => (is => 'ro', required => 1); |
7 | has remote_class => (is => 'ro', required => 1); |
949dba9c |
8 | has remote_args => (is => 'ro', required => 1); |
a5e1e1c6 |
9 | has remote => (is => 'lazy'); |
10 | |
11 | sub _build_remote { |
12 | my ($self) = @_; |
949dba9c |
13 | return $self->remote_class |
14 | ->new::on($self->remote_spec, $self->remote_args); |
a5e1e1c6 |
15 | } |
16 | |
17 | sub gather { (shift)->remote->gather(@_) } |
18 | |
19 | 1; |