File Coverage

blib/lib/Child/IPC/Pipely.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package Child::IPC::Pipely;
2              
3 1     1   1207 use strict;
  1         2  
  1         47  
4 1     1   8 use warnings;
  1         2  
  1         75  
5              
6             our $VERSION = '0.01';
7             $VERSION = eval $VERSION;
8              
9 1     1   18 use base 'Child::IPC::Pipe';
  1         2  
  1         978  
10              
11 1     1   6553 use IO::Pipely qw/pipely/;
  1         39882  
  1         133  
12              
13             sub shared_data {
14 1     1 0 47 my ( $ain, $aout ) = pipely;
15 1         75 my ( $bin, $bout ) = pipely;
16             return [
17 1         54 [ $ain, $aout ],
18             [ $bin, $bout ],
19             ];
20             }
21              
22             1;
23              
24             =head1 NAME
25              
26             Child::IPC::Pipely - use Child with IO::Pipely for more portable IPC
27              
28             =head1 SYNOPSIS
29              
30             use Child;
31             my $child = Child->new( sub { ... }, pipely => 1 );
32              
33             =head1 DESCRIPTION
34              
35             L is a great way to manage forking, but its default IPC uses C which sadly isn't as portable as it could be in places.
36             L provides a better solution (and indeed describes the problem better than I can).
37             Read more there.
38              
39             =head1 SEE ALSO
40              
41             =over
42              
43             =item L
44              
45             =item L
46              
47             =back
48              
49             =head1 SOURCE REPOSITORY
50              
51             L
52              
53             =head1 AUTHOR
54              
55             Joel Berger, Ejoel.a.berger@gmail.comE
56              
57             =head1 COPYRIGHT AND LICENSE
58              
59             Copyright (C) 2013 by Joel Berger
60              
61             This library is free software; you can redistribute it and/or modify
62             it under the same terms as Perl itself.