Pastable Rakudo profile routines query (https://docs.perl6.org/language/performance)

prof6.sql

.mode columns
.headers on
.width 80
select
      case when r.name = "" then "<anon>" else r.name end || " / " || r.file as "name/file",
      r.line as "line",
      sum(entries) as entries,
      sum(case when rec_depth = 0 then inclusive_time else 0 end)/1000.0 as "inclusive(s)",
      sum(exclusive_time)/1000.0 as "exclusive(s)"
    from
      calls c,
      routines r
    where
      c.id = r.id
    group by
      c.id
    order by
      inclusive_time desc
      limit 30;