sub codelength { my $count = 0; Runops::Trace::trace_function( sub { ++ $count }, $_[0], ); return $count; }