Filter to show time spent in subcomponents in Mason profile log

sum-mason-trace.pl

#!/usr/bin/perl -nl

next unless ($p) = /(\d+)-\d+$/; 
s/\\n.*//; 
s/.*\ - //; 
s/{{{/{/ and $t{$p}{++$d{$p}} = 0; 
s/}}}/}/ and --$d{$p} and /(\d+\.\d+)/ and $t{$p}{$d{$p}} += $1 and $a = $t{$p}{$d{$p}+1} and $r = round($1-$a) and s{$}{ / $r};
print;

sub round { int($_[0]*10000+.5)/10000 }