t;
use warnings;
use Log::ger;
use DBI;
use File::Flock::Retry;
use File::Remove qw(remove);
use JSON::MaybeXS;
use Perinci::Sub::Util qw(err);
use Scalar::Util qw(blessed);
use Package::MoreUtil qw(
::Manager;
my $proto_v = 2;
our $ep = ""; # error prefix
our $lp = "[tm]"; # log prefix
my $json = JSON::MaybeXS->new->allow_nonref;
# this is used for testing purposes only (e.g. to simulate cras
does not declare idempotent feature"];
[200];
}
# check actions. actions should be [[f,args,JSON(args),cid?,\&code?,$meta?],
# ...]. this function will check whether function name is valid, whet