Tracing execution
- Run instrumented foo.
- See also:
- MD5 = checksum_code_path( FUNCTION )
- PATH = trace_code( FUNCTION )
- trace( TRACE, FUNCTION )
- TRACE is called for every opnode in the optrees being executed
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;
}