Example answer

• Give me a breakdown of TODO tests

$y = LoadFile "tests.yml";
do { do {
  $t{$1}++ if $_->{todo} && $_->{diag} =~ /TODO (.*?)\)/
} for @{ $_->{events} } } for @{ $y->{meat}{test_files} };
print(Dump { todo => \%t });