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 180     180   59520 use warnings;
  180         961  
  180         8898  
6 180     180   1152 use strict;
  180         758  
  180         6619  
7              
8 180     180   780 use base qw( POE::Pipe );
  180         246  
  180         76096  
9              
10 180     180   1773 use vars qw($VERSION);
  180         385  
  180         12465  
11             $VERSION = '1.367'; # NOTE - Should be #.### (three decimal places)
12              
13 180     180   964 use IO::Pipely qw(pipely);
  180         348  
  180         17274  
14              
15             sub new {
16 1435     1435 0 4002 my ($class, $conduit_type) = @_;
17 1435         6983 return pipely(
18             debug => 0,
19             type => $conduit_type,
20             );
21             }
22              
23             1;
24              
25             __END__