CPAN::Groonga

ser;

use strict;
use warnings;

use Carp;
use DateTime::Format::Text;
use Exporter 'import';
use JSON::MaybeXS;
use Params::Get 0.13;
use Return::Set 0.03;
use Params::Validate::Strict;

our @EXPORT_

uplicate by serializing hashes for comparison
			my %seen;
			my @sisters = grep { 
				my $key = JSON::MaybeXS->new->canonical(1)->encode($_);
				!$seen{$key}++
			} @{$family{sisters}};

			$family

use warnings;
use autodie qw(:all);

use File::Glob ':glob';
use File::Slurp;
use File::stat;
use JSON::MaybeXS;
use POSIX qw(strftime);
use Readonly;

Readonly my %config => (
	github_user => 'nigelh

r_db => 'cover_db/cover.json',
	output => 'cover_html/index.html'
);

# Read and decode coverage data
my $json_text = read_file($config{cover_db});
my $data = decode_json($json_text);

my $coverage_pc

ob("coverage_history/*.json");

# Cache historical data instead of reading for each file
my %historical_cache;
for my $hist_file (@history_files) {
	my $json = eval { decode_json(read_file($hist_file)