1 package Object::Remote::Connector::UNIX;
6 with 'Object::Remote::Role::Connector';
8 has socket_path => (is => 'ro', required => 1);
12 my $path = $self->socket_path;
13 my $sock = IO::Socket::UNIX->new($path)
14 or die "Couldn't open socket ${path}: $!";
15 ($sock, $sock, undef);
20 push @Object::Remote::Connection::Guess, sub {
22 if (defined and !ref and /^(?:\.\/|\/)/) {
23 my $socket = shift(@_);
24 return __PACKAGE__->new(@_, socket_path => $socket);