Yet Another CPAN Grep

OrePAN2-S3 ( B/BI/BIGFOOT/OrePAN2-S3-1.0.4.tar.gz, BIGFOOT, 2025; MetaCPAN )

OrePAN2-S3/lib/OrePAN2/S3.pm ( view source; MetaCPAN )

use English qw(-no_match_vars);
use File::Basename qw(basename);
use File::Temp qw(tempfile);
use JSON;
use OrePAN2::Index;
use Scalar::Util qw(openhandle);
use Template;
use YAML;

use Readonly;

Rea

> '02packages.details.txt.gz';
Readonly::Scalar our $DEFAULT_CONFIG => $ENV{HOME} . '/.orepan2-s3.json';
Readonly::Scalar our $TRUE           => 1;
Readonly::Scalar our $FALSE          => 0;

use pare

rp_file {
########################################################################
  my ( $file, $json ) = @_;

  local $RS = undef;

  my $content;

  if ( openhandle $file ) {
    $content = <$file>