0.03 }
;
has '+url' =>
(
default => sub { 'http://cpancover.com/latest/cpancover.json.gz' },
);
sub release_iterator
{
my $self = shift;
return CPAN::Cover::Results::Rel
ator;
$CPAN::Cover::Results::ReleaseIterator::VERSION = '0.03';
use Moo;
use autodie;
use JSON qw/ decode_json /;
use Carp;
use CPAN::Cover::Results::Release;
has 'results' => ( is => 'ro' )
;
my $fh = $self->results->open_file();
local $/;
my $json_text = <$fh>;
close($fh);
return decode_json($json_text);
}
sub _build__keys
{
my $self = shift;
m