File Coverage

blib/lib/Child/Socket.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Child::Socket;
2 9     9   8262 use strict;
  9         24  
  9         375  
3 9     9   69 use warnings;
  9         15  
  9         312  
4              
5 9     9   4950 use Child::IPC::Socket;
  9         21  
  9         525  
6              
7             our $VERSION = '0.003';
8              
9 9     9   57 use base 'Child';
  9         12  
  9         1176  
10             our @EXPORT_OK = qw/
11             child
12             proc_connect
13             /;
14              
15             *child = Child->can( 'child' );
16              
17             sub proc_connect {
18 1     1 0 19 my ( $file ) = @_;
19 1         10 Child::IPC::Socket->child_class->new_from_file( $file );
20             }
21              
22             1;
23              
24             __END__