How to make merged variable for 2 packeges ?


For example I have 2 packages(POE::Component::My::One, POE::Component::My::Two), then i sent from One:


______________________________

package POE::Component::My::One
______________________________

POE::Component::My::Two->spawn
(
 V => $heap->{V},
 POSTBACK => $_[SESSION]->postback($v);
);


______________________________

POE::Component::My::Two
______________________________

sub spawn {

        my $class=shift;
        POE::Session->create
        ( package_states =>
                [$class => [qw(_start do)]]
                ,heap => [EMAIL PROTECTED]);
}

sub do {

        my $v=$_[HEAP]{V};
        $v++;
        $_[HEAP]{POSTBACK}($v)
}

so, then I`ll create it multitasking it will be multiple $v++ in one time. How to do merged variable for such things?

thanks ;)
---
Professional hosting for everyone - http://www.host.ru

Reply via email to