Re: Saving self

[Jay Strauss]

Thanks Bruno,

Posting an example for the next person:

sub new {
    my $class = shift;
    
    my $self = {
        attribute => 'value',
    }

    POE::Session->create( object_states => [
        $self =>
                   {  _start    => "_start",
                      _stop     => "_stop",
                     otherMethod => "method_name"
                    }]);

    return bless $self, $class;
}

sub run {
    my $self = shift;
    $poe_kernel->run()

}

----- Original Message ----- 
From: "Bruno Boettcher" <[EMAIL PROTECTED]>
To: "Jay Strauss" <[EMAIL PROTECTED]>
Sent: Tuesday, March 02, 2004 3:05 AM
Subject: Re: Saving self


> On Mon, Mar 01, 2004 at 08:43:36PM -0600, Jay Strauss wrote:
> Hello
> 
> may be big but look at the sources of http://www.nongnu.org/zebot/ i use
> oo-design.... a search on Session should yield it :D
> 
> -- 
> ciao bboett
> ==============================================================
> [EMAIL PROTECTED]
> http://inforezo.u-strasbg.fr/~bboett
> ===============================================================
> 
>