1# Deprecation notice: Read POE::Pipe's documentation. 2 3package POE::Pipe::TwoWay; 4 5use warnings; 6use strict; 7 8use base qw( POE::Pipe ); 9 10use vars qw($VERSION); 11$VERSION = '1.368'; # NOTE - Should be #.### (three decimal places) 12 13use IO::Pipely qw(socketpairly); 14 15sub new { 16 my ($class, $conduit_type) = @_; 17 18 return socketpairly( 19 debug => 0, 20 type => $conduit_type, 21 ); 22} 23 241; 25 26__END__ 27 28=head1 NAME 29 30POE::Pipe::TwoWay - Deprecated and replaced with delegates to IO::Pipely. 31 32=head1 SYNOPSIS 33 34See L<POE::Pipe> and L<IO::Pipely>. 35 36=head1 DESCRIPTION 37 38This module is deprecated. L<IO::Pipely> was released to CPAN as its 39replacement. Please see L<POE::Pipe> for details, including the 40deprecation schedule. 41 42=head1 SEE ALSO 43 44L<POE::Pipe> and L<IO::Pipely>. 45 46=head1 AUTHOR & COPYRIGHT 47 48POE::Pipe::TwoWay is copyright 2001-2013 by Rocco Caputo. All rights 49reserved. POE::Pipe::TwoWay is free software; you may redistribute it 50and/or modify it under the same terms as Perl itself. 51 52=cut 53 54# rocco // vim: ts=2 sw=2 expandtab 55# TODO - Edit. 56