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   48011 use warnings;
  180         871  
  180         7410  
6 180     180   751 use strict;
  180         623  
  180         6392  
7              
8 180     180   752 use base qw( POE::Pipe );
  180         245  
  180         72271  
9              
10 180     180   1345 use vars qw($VERSION);
  180         301  
  180         9729  
11             $VERSION = '1.365'; # NOTE - Should be #.### (three decimal places)
12              
13 180     180   863 use IO::Pipely qw(pipely);
  180         276  
  180         14522  
14              
15             sub new {
16 1432     1432 0 3878 my ($class, $conduit_type) = @_;
17 1432         5532 return pipely(
18             debug => 0,
19             type => $conduit_type,
20             );
21             }
22              
23             1;
24              
25             __END__