File Coverage

blib/lib/RPC/Serialized/Client/UNIX.pm
Criterion Covered Total %
statement 18 22 81.8
branch 0 2 0.0
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 25 32 78.1


line stmt bran cond sub pod time code
1             package RPC::Serialized::Client::UNIX;
2             {
3             $RPC::Serialized::Client::UNIX::VERSION = '1.123630';
4             }
5              
6 1     1   710 use strict;
  1         2  
  1         34  
7 1     1   5 use warnings FATAL => 'all';
  1         1  
  1         58  
8              
9 1     1   4 use base 'RPC::Serialized::Client';
  1         2  
  1         510  
10              
11 1     1   878 use IO::Socket::UNIX;
  1         21435  
  1         7  
12 1     1   673 use RPC::Serialized::Config;
  1         3  
  1         12  
13 1     1   450 use RPC::Serialized::Exceptions;
  1         1  
  1         9  
14              
15             sub new {
16 0     0 1   my $class = shift;
17 0           my $params = RPC::Serialized::Config->parse(@_);
18              
19 0 0         my $socket = IO::Socket::UNIX->new($params->io_socket_unix)
20             or throw_system "Failed to create socket: $!";
21              
22 0           return $class->SUPER::new(
23             $params, {rpc_serialized => {ifh => $socket, ofh => $socket}},
24             );
25             }
26              
27             1;
28              
29             # ABSTRACT: UNIX domain socket RPC client
30              
31              
32             __END__