ForkCall callback

gistfile1.pl

#!/usr/bin/env perl

use Mojo::IOLoop::ForkCall;
use Data::Dumper;

my @fc;
for my $id (1..2) {
    my $fc = Mojo::IOLoop::ForkCall->new;
    push @fc, $fc; #keep fc in scope
    my $pid = $fc->run(
        sub {
            my $arg = shift;
            warn "$id ($$): start sleep\n";
            sleep 2;
            warn "$id ($$): end sleep\n";
            return ({complex=>'data',id=>$id},$arg);
        },
        ["Scalar $id"],
    );
    $fc->on( finish =>
        sub {
            my ($fc, $err, @return) = @_;
            warn "$id ($$): return: ".Dumper \@return;
            warn "$id ($$): error: $err\n" if $err;
        }
    );
};

Mojo::IOLoop->start;

gistfile2.txt

1 (7817): start sleep
1 (7818): return: $VAR1 = [];
1 (7818): error: Magic number checking on storable string failed at /usr/lib/perl/5.14/Storable.pm line 416, at /home/oetiker/checkouts/znapzend/bin/../thirdparty/lib/perl5/Mojo/IOLoop/ForkCall.pm line 80

2 (7818): start sleep
1 (7817): end sleep
2 (7818): end sleep
1 (7816): return: $VAR1 = [
          {
            'complex' => 'data',
            'id' => '1'
          },
          'Scalar 1'
        ];
2 (7816): return: $VAR1 = [
          {
            'complex' => 'data',
            'id' => '2'
          },
          'Scalar 2'
        ];