Commit | Line | Data |
0e547800 |
1 | package Object::Remote::Connector::UNIX; |
2 | |
3 | use IO::Socket::UNIX; |
4 | use Moo; |
5 | |
6 | with 'Object::Remote::Role::Connector'; |
7 | |
8 | sub _open2_for { |
9 | my ($self,$path) = @_; |
10 | my $sock = IO::Socket::UNIX->new($path) |
11 | or die "Couldn't open socket ${path}: $!"; |
12 | ($sock, $sock, undef); |
13 | } |
14 | |
15 | no warnings 'once'; |
16 | |
17 | push @Object::Remote::Connection::Guess, sub { |
18 | for ($_[0]) { |
19 | if (defined and !ref and /^(?:\.\/|\/)/) { |
20 | return __PACKAGE__->new->connect($_[0]); |
21 | } |
22 | } |
23 | return; |
24 | }; |
25 | |
26 | 1; |