Yet Another CPAN Grep

Perl-Schedule-Easing ( B/BB/BBLACKM/Perl-Schedule-Easing-0.1.0.tar.gz, BBLACKM, 2025; MetaCPAN )

Perl-Schedule-Easing/script/schedule-easing.pl ( view source; MetaCPAN )

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;
use JSON::XS qw/decode_json/;
use Pod::Usage;
use Schedule::Easing;

# todo:  expiration (need to verify this works)
# todo:  check (need a

 loadjson {
	my ($fn)=@_;
	my $t=load($fn);
	my @res=@{ decode_json($t) };
	foreach my $E (@res) { $$E{match}//=''; $$E{match}=qr/$$E{match}/ }
	return @res;
}

my %opt=(
	schedule  =>undef,
	json

0,
	help      =>0,
	time      =>undef,
);

GetOptions(
	'schedule=s'=>\$opt{schedule},
	'json=s'    =>\$opt{json},
	'timestamps'=>\$opt{expiration},
	'expiration'=>\$opt{expiration},
	'check'     =>\$