[haver-commits] r687 - in trunk: . misc/poe-session-plugin/lib/POE/Session

[haver]

Author: dylan
Date: 2005-05-21 02:11:20 -0400 (Sat, 21 May 2005)
New Revision: 687

Modified:
   trunk/
   trunk/misc/poe-session-plugin/lib/POE/Session/Plugin.pm
Log:
 [EMAIL PROTECTED]:  dylan | 2005-05-21 02:11:17 -0400
 using wheel ids now.



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:963
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
   + 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:967
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238

Modified: trunk/misc/poe-session-plugin/lib/POE/Session/Plugin.pm
===================================================================
--- trunk/misc/poe-session-plugin/lib/POE/Session/Plugin.pm     2005-05-21 
05:02:59 UTC (rev 686)
+++ trunk/misc/poe-session-plugin/lib/POE/Session/Plugin.pm     2005-05-21 
06:11:20 UTC (rev 687)
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 use Carp;
-
+use POE::Wheel;
 our $VERSION = '0.06';
 our $Kernel  = $POE::Kernel::poe_kernel;
 
@@ -15,10 +15,11 @@
                # subclasses clobbering them. :)
                _provided_states => [],
                _defined_states  => { },
+               _id              => POE::Wheel::allocate_wheel_id(),
        };
        bless $self, $class;
-       $self->provide("${class}::load", 'on_load');
-       $self->provide("${class}::unload", 'on_unload');
+       $self->provide("load_$self->{_id}", 'on_load');
+       $self->provide("unload_$self->{_id}", 'on_unload');
        $self->setup(@_);
        return $self;
 }
@@ -63,9 +64,11 @@
        my $act  = shift;
        my $session = $Kernel->get_active_session();
        my $class   = ref $self;
-       $Kernel->call($session, join('::', $class, $act));
+       $Kernel->call($session, join('_', $act, $self->ID));
 }
 
+sub ID { shift->{_id} }
+
 # Load all provided states.
 sub load {
        my $self = shift;