CPAN::Groonga

ent changes to CPAN
#pod     RECENT-6h.json:
#pod         commands:
#pod             - curl -O https://www.cpan.org/RECENT-6h.json
#pod
#pod     # Parse that JSON file into a CSV using an external pro

ENT-6h.csv:
#pod         requires:
#pod             - RECENT-6h.json
#pod         commands:
#pod             - yfrom json RECENT-6h.json | yq '.recent.[]' | yto csv > RECENT-6h.csv
#pod
#pod     # Bui

 a list of recent changes to CPAN
    RECENT-6h.json:
        commands:
            - curl -O https://www.cpan.org/RECENT-6h.json

    # Parse that JSON file into a CSV using an external program
    R

use v5.20;
use warnings;
use autodie qw( :all );
use Moo;
use Log::Any qw( $LOG );
use JSON::PP qw( decode_json );
use HTTP::Tiny;
use Digest::SHA qw( sha1_base64 );
use experimental qw( signatures p

 );
    die "Could not get token: $res->{content}" unless $res->{success};
    my $token = decode_json( $res->{content} )->{token};
    my $manifest_uri = sprintf 'https://registry-1.docker.io/v2/%s/m

fest.v2+json",
    );
    $res = $http->get( $manifest_uri, { headers => \%headers } );
    die "Could not get manifest: $res->{content}" unless $res->{success};
    my $manifest = decode_json( $res->

 );
use Moo;
use Time::Piece;
use Log::Any qw( $LOG );
use File::Which qw( which );
use JSON::PP qw( decode_json );
use Digest::SHA qw( sha1_base64 );
use experimental qw( signatures postderef );

ext

ece->strptime( $created, $iso8601 ) );

    return 0;
}

sub _image_info( $self ) {
    state $json = JSON::PP->new->canonical->utf8;
    my $output = $self->{_inspect_output};
    if ( !$output ) {
 

    my ( $image ) = $json->decode( $output )->@*;
    return $image || {};
}

sub _config_hash( $self ) {
    my @keys = grep !/^_|^name$|^cache$/, keys %$self;
    my $json = JSON::PP->new->canonical

 );
use Moo;
use Time::Piece;
use Log::Any qw( $LOG );
use File::Which qw( which );
use JSON::PP qw( decode_json );
use Digest::SHA qw( sha1_base64 );
use experimental qw( signatures postderef );

ext

f ) {
    system qw( docker start ), $self->name;
}

sub _container_info( $self ) {
    state $json = JSON::PP->new->canonical->utf8;
    my $output = $self->{_inspect_output};
    if ( !$output ) {
 

 ( $container ) = $json->decode( $output )->@*;
    return $container || {};
}

sub _config_hash( $self ) {
    my @keys = grep !/^_|^name$|^cache$/, keys %$self;
    my $json = JSON::PP->new->canonic