Runops::Trace Code coverage Awesomeness #2

Tracing execution

use Runops::Trace 'checksum_code_path';
for ( 1 .. 1000 ) {
  my @args = random_junk();
  $md5 = checksum_code_path( sub { $results = foo( @args ) } );
  next if $seen{ $md5 } ++;

  push @great, \ @args;
}
Copyright 2007 Joshua ben Jore