Yet Another CPAN Grep

Data-Mirror ( G/GB/GBROWN/Data-Mirror-0.07.tar.gz, GBROWN, 2024; MetaCPAN )

Data-Mirror/lib/Data/Mirror.pm ( view source; MetaCPAN )

File::Basename qw(basename);
use File::Slurp;
use File::Spec;
use File::stat;
use HTTP::Date;
use JSON::XS;
use List::Util qw(any max);
use LWP::UserAgent;
use POSIX qw(getlogin);
use Text::CSV_XS qw(

N %EXPORT_TAGS $TTL_SECONDS $UA $JSON $CSV);

$VERSION = '0.07';

$EXPORT_TAGS{'all'} = [qw(
    mirror_str
    mirror_csv
    mirror_fh
    mirror_file
    mirror_json
    mirror_xml
    mirror_yaml

s, Perl %s',
    __PACKAGE__, $VERSION || 'dev',
    $LWP::UserAgent::VERSION,
    $^V,
));


$JSON = JSON::XS->new->utf8;


$CSV = Text::CSV_XS->new ({
    'binary' => 1,
});


sub mirror_file {