File Coverage

blib/lib/POE/Pipe/OneWay.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::OneWay;
4              
5 181     181   46764 use warnings;
  181         1579  
  181         6173  
6 181     181   663 use strict;
  181         1256  
  181         5145  
7              
8 181     181   1359 use base qw( POE::Pipe );
  181         226  
  181         65783  
9              
10 181     181   1255 use vars qw($VERSION);
  181         307  
  181         9382  
11             $VERSION = '1.366'; # NOTE - Should be #.### (three decimal places)
12              
13 181     181   781 use IO::Pipely qw(pipely);
  181         256  
  181         13906  
14              
15             sub new {
16 1478     1478 0 3745 my ($class, $conduit_type) = @_;
17 1478         5927 return pipely(
18             debug => 0,
19             type => $conduit_type,
20             );
21             }
22              
23             1;
24              
25             __END__