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 });

---
todo:
  bug: 484
  feature: 709
  for release: 130
  parsefail: 4
  hardfail: 2
  unspecced: 20