Yes, I use strict and warnings, also
my %l;
package_states => [$class=>[(packages...)]],
heap=>{lexicon=>\%l,KIDMAX=>10,KIDS=>0,@_}
and heap, but lexicon variable is a reference to %l,
because i need it in two packages in one time.
sub work {
return if $heap->{KIDS}>=$heap->{KIDMAX};
I see that you're using a widely-scoped $heap variable
here. I
strongly recommend NOT doing that.
On the other hand, perhaps you are not doing it
intentionally. In
that case, you should be using
use warnings;
use strict;
at the start of your files. Any warnings and errors you
see from
warnings and strict are most certainly problem areas in
your program.
Satisfying them in intelligent ways will go a long way
towards solving
your problems.
Also, set POE_ASSERT_DEFAULT=1 in your shell. This will
enable POE to
check the sanity of things you're doing. By default the
checks are
off to avoid a corresponding performance penalty.
--
Rocco Caputo - http://poe.perl.org/
---
Professional hosting for everyone - http://www.host.ru
|
Try Searching:
servers, voip, java, networking, microsoft ...
|
|
|
| 
