coveralls-debug

#!/usr/bin/perl

use strict;
use warnings;
use JSON;
use File::Slurp;
my $json = JSON->new;
my $file = read_file('coveralls.json', { binmode => ':utf8' });
my $rv = $json->decode($file);
my $sources = $rv->{'source_files'};
print STDERR join ", ", keys %{$rv}, "\n";
foreach my $source (sort {
 $a->{'name'} cmp $b->{'name'}
} @{$sources})
{
 my $sum = 0;
 my $undefs = 0;
 my $coverages = $source->{'coverage'};
 foreach my $coverage (@{$coverages})
 {
 if (defined $coverage)
 { $sum += $coverage }
 else { $undefs ++; }
 }
 if ($sum > 0)
 {
 print STDERR $source->{'name'};
 print STDERR " [sum: $sum]";
 print STDERR " [undefs: $undefs]";
 print STDERR "\n";
 }
}