sub init_processor {
    my ($kernel, $heap) = @_[ KERNEL, HEAP ];
    $poe_kernel->alias_set( 'prc' );
    $heap->{'JobList'} = [];

    $kernel->yield('iter');
}

sub clean_processor {
    my ( $kernel, $heap ) = @_[ KERNEL, HEAP ];
    delete $heap->{'JobList'};
}

sub iter_processor {
    my ($kernel, $heap) = @_[ KERNEL, HEAP ];
    my $Job = shift    @{$heap->{'JobList'}};

    print &{$Job->{'Sub'}}(@{$Job->{'Args'}}); # print $Job->{'Sub'}; ergibt CODE(0x1234567)
    
    $kernel->yield('iter') if (scalar @{$heap->{'JobList'}});
}

sub add_job {
    my ($kernel, $heap, @arg) = @_[ KERNEL, HEAP, ARG0 .. ARG9 ];
    push @{$heap->{'JobList'}}, { Name  => $arg[0],
                                  Sub   => $arg[1],
                                  Args  => $arg[2] };
    $kernel->yield('iter');
}