lib/Object/Remote/Connector/UNIX.pm

   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;