note xdg <p>For random number generation:</p> <ul> <li>Option (a) parse [mod://Statistics::ChiSquare]</li> <li>Option (b) use [mod://Statistics::Distributions] (if you know how to do a chi-squared test)</li> <li>Option (c) stick with established PRNG routines (e.g. [mod://Math::Random::MT] and [mod://Math::Random::MT::Auto]) because unless you really know what you're doing, your results are going to be biased and if you know what you're doing, then you probably already know how to check your results</li> </ul> <p>For garbage collection, if you really want to do this, why not install your own <code>UNIVERSAL::DESTROY</code> subroutine during testing: <code> use strict; use warnings; package Foo; sub new { return bless {} } package main; use Test::More tests => 3; my %destroyed; $destroyed{Foo} = 0; { no strict 'refs'; *{"UNIVERSAL::DESTROY"} = sub { $destroyed{ref(shift)}++ }; } my $obj1 = Foo->new; my $obj2 = Foo->new; is( $destroyed{Foo}, 0, "Nothing destroyed yet" ); $obj1 = undef; is( $destroyed{Foo}, 1, "Destroyed 1" ); $obj2 = undef; is( $destroyed{Foo}, 2, "Destroyed 2" ); __END__ 1..3 ok 1 - Nothing destroyed yet ok 2 - Destroyed 1 ok 3 - Destroyed 2 </code> <div class="pmsig"><div class="pmsig-268515"> <p>-xdg</p> <p><small><i>Code written by xdg and posted on PerlMonks is <a href="http://creativecommons.org/licenses/publicdomain">public domain</a>. It is provided <b>as is</b> with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.</i></small></p> </div></div> 480680 480791