From 29d100e7300dd39e7ac8eeb9cd7dbb9a1f6d84c2 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 29 Apr 2023 11:13:31 +0300
Subject: add include-kernel flag

---
 guprecords.raku | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guprecords.raku b/guprecords.raku
index fb38c60..260e257 100644
--- a/guprecords.raku
+++ b/guprecords.raku
@@ -231,7 +231,8 @@ multi MAIN(
 
 multi MAIN(
   Str :$stats-dir is required,
-  Bool :$all, #= Generate all possible stats but Kernel
+  Bool :$all, #= Generate all possible stats but Kernel (too verbose)
+  Bool :$include-kernel, #= Also include Kernel
   UInt :$limit = 20,
   OutputFormat :$output-format = Plaintext,
 ) {
@@ -239,7 +240,7 @@ multi MAIN(
   my %aggregates = Aggregator.new($stats-dir).aggregate;
 
   for Category.^enum_value_list X Metric.^enum_value_list -> ($category, $metric) {
-    next if $category ~~ Kernel;
+    next if !$include-kernel and $category ~~ Kernel;
     next if $category !~~ Host and $metric !~~ MetricSubset;
     if $category ~~ Host {
       print HostReporter.new(:%aggregates, :$metric, :$limit, :$output-format, :$header-indent).report
-- 
cgit v1.2.3