#!/usr/bin/env perl

use CHI;
# use Data::Dumper;
use JSON::MaybeXS;

my $cache = CHI->new(driver => 'SharedMem', shm_key => 98766789);

foreach my $n ($cache->get_namespaces()) {
	print "$n:\n";

	$cache = CHI->new(driver => 'SharedMem', shm_key => 98766789, namespace => $n);

	foreach my $key($cache->get_keys($n)) {
		print "\t$key: ", $cache->is_valid($key), "\n";
		# my $value = $cache->get($key);
		# print $value;
		my $object = $cache->get_object($key);
		print "\t\tExpires: ", $object->expires_at(), "\n";
		print "\t\tCreated: ", $object->created_at(), "\n";
		my $value = { value => $object->value() };
		print "\t\tValue: ", JSON::MaybeXS->new()->ascii()->encode($value), "\n";
	}
}
