Yet Another CPAN Grep

App-BorgRestore ( B/BL/BLUEWIND/App-BorgRestore-3.4.5.tar.gz, BLUEWIND, 2023; MetaCPAN )

App-BorgRestore/script/borg-restore.pl ( view source; MetaCPAN )

tail for some operations
                             (currently only --list)
  --json                     Output JSON instead of human readable text
                             (currently only --lis

 the
specific options for more information. Currently only works with B<--list>

=item B<--json>

Output JSON instead of human readable text with some operations. Refer to the
specific options for mor

f the same version is part of multiple archives, only one archive is
shown.

If B<--json> is used, the output is JSON. Can also be combined with B<--detail>.

=item B<--destination=>I<path>, B<-d >I<p

App-BorgRestore ( B/BL/BLUEWIND/App-BorgRestore-3.4.5.tar.gz, BLUEWIND, 2023; MetaCPAN )

App-BorgRestore/lib/App/BorgRestore/Borg.pm ( view source; MetaCPAN )

e autodie;
use Date::Parse;
use Function::Parameters;
use IPC::Run qw(run start new_chunker);
use JSON;
use Log::Any qw($log);
use Version::Compare;

=encoding utf-8

=head1 NAME

App::BorgRestore::Bo

t via json");
		run [qw(borg list --glob-archives), "$backup_prefix*", qw(--json), $self->{borg_repo}], '>', \my $output or die $log->error("borg list returned $?")."\n";
		my $json = decode_json($out

 (@{$json->{archives}}) {
			push @archives, $archive->{archive};
		}
	} elsif (Version::Compare::version_compare($self->{borg_version}, "1.1") >= 0) {
		$log->debug("Getting archive list via json");