Yet Another CPAN Grep

Dist-Zilla-Plugin-Doppelgaenger ( D/DA/DAGOLDEN/Dist-Zilla-Plugin-Doppelgaenger-0.008.tar.gz, DAGOLDEN, 2015; MetaCPAN )

Dist-Zilla-Plugin-Doppelgaenger/lib/Dist/Zilla/Plugin/Doppelgaenger.pm ( view source; MetaCPAN )

File::pushd qw/tempd/;
use Path::Class;
use Pod::Strip;
use Archive::Extract;
use HTTP::Tiny;
use JSON;

use namespace::autoclean;

#-------------------------------------------------------------------

) = @_;
    my $mod = $self->source_module;
    my $uri = $self->_cpanidx . join( "/", qw/cpanidx json mod/, $mod );
    my $response = HTTP::Tiny->new->get( "$uri", { headers => { accept => '*' }, }

 $mod via $uri: $response->{content}\n"
      unless $response->{success};

    my $meta = decode_json( $response->{content} )->[0];

    return $meta->{dist_file};
}

has _short_distfile => (
    is