File Coverage

blib/lib/POE/Pipe/TwoWay.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             # Deprecation notice: Read POE::Pipe's documentation.
2              
3             package POE::Pipe::TwoWay;
4              
5 79     79   1696 use warnings;
  79         148  
  79         3933  
6 79     79   340 use strict;
  79         151  
  79         3008  
7              
8 79     79   570 use base qw( POE::Pipe );
  79         126  
  79         9087  
9              
10 79     79   396 use vars qw($VERSION);
  79         135  
  79         5230  
11             $VERSION = '1.367'; # NOTE - Should be #.### (three decimal places)
12              
13 79     79   485 use IO::Pipely qw(socketpairly);
  79         154  
  79         25212  
14              
15             sub new {
16 15     15 0 2542 my ($class, $conduit_type) = @_;
17              
18 15         80 return socketpairly(
19             debug => 0,
20             type => $conduit_type,
21             );
22             }
23              
24             1;
25              
26             __END__