Permalink
Browse files

Wheels inherit from POE::Wheel. I think someone asked me about this,

but they didn't open a ticket to remind me.
  • Loading branch information...
1 parent 81be659 commit d8ebe77f7e84f930a5be4eb20c9ab6423c3f9f2e @rcaputo committed Sep 21, 2009
View
@@ -15,6 +15,7 @@ use Curses qw(
);
use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
use POE qw( Wheel );
+use base qw(POE::Wheel);
sub SELF_STATE_READ () { 0 }
sub SELF_STATE_WRITE () { 1 }
@@ -9,6 +9,7 @@ use Carp qw( croak carp );
use Symbol qw( gensym );
use POSIX qw(SEEK_SET SEEK_CUR SEEK_END S_ISCHR S_ISBLK);
use POE qw(Wheel Driver::SysRW Filter::Line);
+use base qw(POE::Wheel);
use IO::Handle ();
sub CRIMSON_SCOPE_HACK ($) { 0 }
@@ -11,6 +11,7 @@ use Symbol qw( gensym );
use POSIX qw(:fcntl_h);
use Errno qw(EWOULDBLOCK);
use POE qw( Wheel );
+use base qw(POE::Wheel);
sub SELF_HANDLE () { 0 }
sub SELF_EVENT_ACCEPT () { 1 }
@@ -10,6 +10,7 @@ $VERSION = '1.268'; # NOTE - Should be #.### (three decimal places)
use Carp qw( croak carp );
use Symbol qw(gensym);
use POE qw( Wheel );
+use base qw(POE::Wheel);
use POSIX ();
if ($^O eq "MSWin32") {
@@ -7,6 +7,7 @@ $VERSION = '1.268'; # NOTE - Should be #.### (three decimal places)
use Carp qw( croak carp );
use POE qw(Wheel Driver::SysRW Filter::Line);
+use base qw(POE::Wheel);
# Offsets into $self.
sub HANDLE_INPUT () { 0 }
View
@@ -13,6 +13,7 @@ use POSIX qw(
);
use POE qw( Wheel Pipe::TwoWay Pipe::OneWay Driver::SysRW Filter::Line );
+use base qw(POE::Wheel);
BEGIN {
die "$^O does not support fork()\n" if $^O eq 'MacOS';
@@ -19,6 +19,7 @@ use Socket qw(
use IO::Handle ();
use FileHandle ();
use POE qw( Wheel );
+use base qw(POE::Wheel);
sub CRIMSON_SCOPE_HACK ($) { 0 }
sub DEBUG () { 0 }

0 comments on commit d8ebe77

Please sign in to comment.