CPAN::Groonga

y $perl_dist_url = "http://search.cpan.org/api/dist/perl";
my $cpan_json = get($perl_dist_url);
my $filename = 'perl_version_all.json';
my $cwd = cwd();

{
    my $tdir = tempdir(CLEANUP => 1);
    my

$tdir or croak "Unable to change to $tdir for testing";
    my $rv = print_file( $filename, $cpan_json );
    ok($rv, "print_file() returned true value");
    ok(-f $file_expected, "$file_expected was

e to change to $tdir for testing";
    local $@;
    eval { my $rv = print_file( $filename, $cpan_json ); };
    like($@, qr/data\/$filename/s,
        "Got expected exception: absence of 'data/' subd

VERSION = '0.03';
use Carp;
use Cwd;
use File::Basename qw(basename dirname);
use File::Spec;
use JSON ();
use LWP::Simple qw(get);
use Path::Tiny;
#use Data::Dump qw(dd pp);

=head1 NAME

CPAN::Cpano

ns_json>

String holding the basename of a file to be created (or regenerated) on server
holding metadata in JSON format about all releases of F<perl>.  Optional;
defaults to C<perl_version_all.json>.

q 'HASH';

    my @required_args = ( qw| path | );
    my @optional_args = ( qw| verbose versions_json search_api_url | );
    my %valid_args = map {$_ => 1} (@required_args, @optional_args);
    my @