- or download this
~/.cpan/build/AnyEvent-ForkManager-0.04-ZOUXbL$ ./Build test
t/000_load.t ...... 1/1 # Testing AnyEvent::ForkManager/0.04
t/000_load.t ...... ok
t/001_basic.t ..... 1/63
- or download this
$pm->start(
cb => sub {
...
},
args => [$exit_code]
);
- or download this
my $mpid = $pm->manager_pid;
isnt $$, $mpid, 'called by child';
- or download this
sub new {
my ($class, $store) = @_;
...
bless { store => $store }, $class;
}
- or download this
use Data::Dumper; $Data::Dumper::Deparse = 1; warn Dumper($store);
- or download this
use Time::HiRes qw{ usleep }; usleep 200;