#!/usr/bin/perl --
## threads-jobadder-jobworker-fibonacci.pl
##
##
##
##
##
## perltidy -olq  -csc -csci=3 -cscl="sub : BEGIN END " -otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if " -otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if while " -otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
#!/usr/bin/perl --
use strict;
use warnings;
use threads stack_size => 4096;
use Thread::Queue;

Main( @ARGV );
exit( 0 );

sub Main {
    use autodie qw/ chdir /;
    chdir "/path/to/my/files/" ;
    my $maxJobs = 8;
    my $q       = Thread::Queue->new;
    for( 1 .. $maxJobs ) {
##        threads->create( \&JobWorker, $queue, \&TheJob );
        threads->create( \&JobWorker, $q, \&GetFibby );
    }

    threads->create( \&JobAdder, $q, $maxJobs, [ 0 .. 99 ] );

    $_->join for threads->list;    ## wait for threads to finish

} ## end sub Main

sub JobWorker {
    my( $q, $callBack ) = @_;
    while( defined( my $argRef = $q->dequeue ) ) {
##        GetFibby( @$argRef );
        $callBack->( @$argRef );
    }
    return;
} ## end sub JobWorker

sub GetFibby {
    my( $chunkId ) = @_;
    use autodie qw/ open close /;
    open my( $outfh ), '>', "fibojob-$chunkId.txt";
    print $outfh "\t", fibonacci( $_ ) for 1 .. 10;
    print $outfh "\n";
    close $outfh;

} ## end sub GetFibby

sub JobAdder {
    my( $q, $maxJobs, $inputs ) = @_;

    while( @$inputs ) {
        AddJob( $q, shift @$inputs );
    }

    SignalNoMoreJobs( $q, $maxJobs );
} ## end sub JobAdder

sub SignalNoMoreJobs {
    my( $q, $maxJobs ) = @_;
    $q->enqueue( undef ) for 1 .. $maxJobs;
    return;
} ## end sub SignalNoMoreJobs

sub AddJob {
    my $q = shift;
    $q->enqueue( [@_] );
    return;
} ## end sub AddJob

sub fibonacci {
    my $n = shift;
    return undef if $n < 0;
    my $f;
    if( $n == 0 ) {
        $f = 0;
    } elsif( $n == 1 ) {
        $f = 1;
    } else {
        $f = fibonacci( $n - 1 ) + fibonacci( $n - 2 );
    }
    return $f;
} ## end sub fibonacci