Yet Another CPAN Grep

Win32-Backup-Robocopy ( L/LO/LORENZO/Win32-Backup-Robocopy-15.tar.gz, LORENZO, 2019; MetaCPAN )

Win32-Backup-Robocopy/lib/Win32/Backup/Robocopy.pm ( view source; MetaCPAN )


use warnings;
use Time::Piece;
use Carp;
use File::Spec;
use File::Path qw(make_path);
use JSON::PP; # only this support sort_by(custom_func)
use Capture::Tiny qw(capture);
use Algorithm::Cro

 JSON
			$$jobconf{ next_time_descr } = scalar CORE::localtime($cron->next_time(time));	
	}	
	# JSON for the job 
	my $json = JSON::PP->new->utf8->pretty->canonical;
	$json->canonical(1);
	$json

->sort_by( \&_ordered_json );
	push @{ $self->{jobs} }, $jobconf;
	# verbosity
	if ( $self->{verbose} > 2 ){
		print "added the following job:\n";
		print $json->encode( $jobconf );
	}
	# clean