view release on metacpan or  search on metacpan

lib/Sex.pm  view on Meta::CPAN

    foreach my $gamete (@modules) {
        eval "use $gamete(); 1" or next;
        while( my($chromo, $rna) = each %{$gamete.'::'} ) {
            push @{$zygote{$chromo}}, $rna;
        }
    }

    while( my($chromo, $rna) = each %zygote ) {
        $call_sym_table->{$chromo} = $rna->[rand @$rna];
        print $Grunts[rand @Grunts], "\n";
        #select(undef, undef, undef, 0.45);
    }

    # push @{$caller.'::ISA'}, @modules;

    print "\n";

    return 'Harry Balls who?';
}

sub volunteer {