Permalink
Browse files

Rename POE::Kernel::* to POE::Loop::*. People following along with

CVS will need to "cvs update -dP" or check the whole thing out again.
  • Loading branch information...
1 parent d15b763 commit b3b70ffd37b9171b8fae8c5b3f97a768dab10d39 @rcaputo committed Sep 25, 2002
Showing with 22 additions and 22 deletions.
  1. +5 −5 MANIFEST
  2. +10 −10 lib/POE/Kernel.pm
  3. +1 −1 lib/POE/Loop/Event.pm
  4. +1 −1 lib/POE/Loop/Gtk.pm
  5. +1 −1 lib/POE/Loop/IO_Poll.pm
  6. +1 −1 lib/POE/Loop/Select.pm
  7. +1 −1 lib/POE/Loop/Tk.pm
  8. +2 −2 tests/08_errors.t
View
@@ -20,11 +20,11 @@ POE/Filter/Reference.pm
POE/Filter/Stackable.pm
POE/Filter/Stream.pm
POE/Kernel.pm
-POE/Kernel/Event.pm
-POE/Kernel/Gtk.pm
-POE/Kernel/Poll.pm
-POE/Kernel/Select.pm
-POE/Kernel/Tk.pm
+POE/Loop/Event.pm
+POE/Loop/Gtk.pm
+POE/Loop/Poll.pm
+POE/Loop/Select.pm
+POE/Loop/Tk.pm
POE/Macro/UseBytes.pm
POE/NFA.pm
POE/Pipe.pm
View
@@ -353,33 +353,33 @@ sub LOOP_TK () { 'Tk.pm' }
BEGIN {
if (exists $INC{'Gtk.pm'}) {
- require POE::Kernel::Gtk;
- POE::Kernel::Gtk->import();
+ require POE::Loop::Gtk;
+ POE::Loop::Gtk->import();
}
if (exists $INC{'Tk.pm'}) {
- require POE::Kernel::Tk;
- POE::Kernel::Tk->import();
+ require POE::Loop::Tk;
+ POE::Loop::Tk->import();
}
if (exists $INC{'Event.pm'}) {
- require POE::Kernel::Event;
- POE::Kernel::Event->import();
+ require POE::Loop::Event;
+ POE::Loop::Event->import();
}
if (exists $INC{'IO/Poll.pm'}) {
if ($^O eq 'MSWin32') {
warn "IO::Poll has issues on $^O. Using select() instead for now.\n";
}
else {
- require POE::Kernel::Poll;
- POE::Kernel::Poll->import();
+ require POE::Loop::Poll;
+ POE::Loop::Poll->import();
}
}
unless (defined &POE_LOOP) {
- require POE::Kernel::Select;
- POE::Kernel::Select->import();
+ require POE::Loop::Select;
+ POE::Loop::Select->import();
}
}
View
@@ -3,7 +3,7 @@
# Event.pm event loop bridge for POE::Kernel.
# Empty package to appease perl.
-package POE::Kernel::Event;
+package POE::Loop::Event;
use strict;
View
@@ -3,7 +3,7 @@
# Gtk-Perl event loop bridge for POE::Kernel.
# Empty package to appease perl.
-package POE::Kernel::Gtk;
+package POE::Loop::Gtk;
use strict;
View
@@ -5,7 +5,7 @@
# contributed by Matt Sergeant (baud).
# Empty package to appease perl.
-package POE::Kernel::Poll;
+package POE::Loop::Poll;
use vars qw($VERSION);
$VERSION = (qw($Revision$ ))[1];
View
@@ -3,7 +3,7 @@
# Select loop bridge for POE::Kernel.
# Empty package to appease perl.
-package POE::Kernel::Select;
+package POE::Loop::Select;
use strict;
View
@@ -3,7 +3,7 @@
# Tk-Perl event loop bridge for POE::Kernel.
# Empty package to appease perl.
-package POE::Kernel::Tk;
+package POE::Loop::Tk;
use vars qw($VERSION);
$VERSION = (qw($Revision$ ))[1];
View
@@ -74,8 +74,8 @@ BEGIN {
my @files_to_unuse =
qw( POE/Kernel.pm
- POE/Kernel/Event.pm POE/Kernel/Gtk.pm
- POE/Kernel/Select.pm POE/Kernel/Tk.pm
+ POE/Loop/Event.pm POE/Loop/Gtk.pm
+ POE/Loop/Select.pm POE/Loop/Tk.pm
Event.pm Gtk.pm Tk.pm
);

0 comments on commit b3b70ff

Please sign in to comment.