}
#
-# Display the content of the config cache
+# Display or clear the content of the config cache
#
sub _cmd_cache {
my $event = shift;
+ my $subcmd = shift;
+
+ $subcmd = 'list' unless defined($subcmd);
+ $subcmd = lc($subcmd);
- _io("Content of config cache:");
- foreach (sort(keys(%config_cache))) {
- _io("%s => %s", $_, Dumper($config_cache{$_}));
+ if ($subcmd eq 'list') {
+ _io("Content of config cache:");
+ foreach (sort(keys(%config_cache))) {
+ if (exists($config_cache{$_}->{value})) {
+ _io("%s => %s", $_, $config_cache{$_}->{value});
+ } else {
+ _io("%s present", $_);
+ }
+ }
+ } elsif ($subcmd eq 'clear') {
+ _debug("Clearing config cache");
+ %config_cache = ();
}
}