r;
use 5.014;
use strict;
use warnings;
use Data::Chronicle;
use Date::Utility;
use JSON::MaybeUTF8 qw(decode_json_utf8);
use Moose;
=head1 NAME
Data::Chronicle::Reader - Provides reading from an e
->[1] } @$pairs;
my $cached_data = $self->cache_reader->mget(@keys);
return map { decode_json_utf8($_) if $_ } @$cached_data;
}
=head2 get_for
Example:
my $data = get_for("category1",
(sort keys %{$db_data})[0];
my $db_value = $db_data->{$id_value}->{value};
return decode_json_utf8($db_value);
}
=head2 get_for_period
Example:
my $data = get_for_period("category1", "
r;
use 5.014;
use strict;
use warnings;
use Data::Chronicle;
use Date::Utility;
use JSON::MaybeUTF8 qw(encode_json_utf8);
use Moose;
=head1 NAME
Data::Chronicle::Subscriber - Provides callback subs
r;
use 5.014;
use strict;
use warnings;
use Data::Chronicle;
use Date::Utility;
use JSON::MaybeUTF8 qw(encode_json_utf8);
use Moose;
=head1 NAME
Data::Chronicle::Writer - Provides writing to an eff
me, $value) = @$entry;
my $key = $category . '::' . $name;
my $encoded = encode_json_utf8($value);
$writer->publish($key, $encoded) if $self->publish_on_set && !$suppress_pub