view release on metacpan or  search on metacpan

t/000_moose_recipes/basics-recipe10.t  view on Meta::CPAN

			. ' + father '
			. $CHILDS->{$id}->{father_eye_color}
			. ' = child '
			. $CHILDS->{$id}->{expected_color}
			.  ' (reloaded)',
	);
}


# Hmm, not sure how to test for random selection of genes since
# I could theoretically run an infinite number of iterations and
# never find proof that a child has inherited a particular gene.

# AUTHOR: Aran Clary Deltac <bluefeet@cpan.org>

# Maybe there is another way to implent this, but for no we have
# to use a global $GENE_POOL = Frost::Asylum :-(
#
# Ernesto

done_testing;