view release on metacpan or  search on metacpan

bin/testd  view on Meta::CPAN

use App::Prove::Elasticsearch::Utils;
use MCE::Loop;
use MCE::Signal qw(-setpgrp);
use MCE::Shared;
use List::Util qw{sum};

our $interval        = 5;
our $global_interval = 30;

main() unless caller();

sub main {

    my $conf = App::Prove::Elasticsearch::Utils::process_configuration();

    if (!$conf->{'testd.no_daemon'}) {
        my $pid = daemonify() or die "Could not daemonize";
        print "Spawned as PID $pid\n";
    }

scripts/testrail-migrate.pl  view on Meta::CPAN

use File::HomeDir qw{my_home};
use List::Util qw{any reduce};
use POSIX qw{strftime};

use App::Prove::Elasticsearch::Utils;
use App::Prove::Elasticsearch::Indexer;

our $case_cache = {};
our $sec_cache  = {};

if (!caller()) {
    my %ARGS = main(@ARGV);
    exit 0 unless delete $ARGS{ingest};
    foreach my $k (keys(%ARGS)) { delete $ARGS{$k} unless $ARGS{$k}; }

    my $extra_args = delete $ARGS{patterns};

    my $projects = delete $ARGS{projects};
    my $olast = delete $ARGS{'only-last'};
    my @args = map { ("--$_" => $ARGS{$_}) } keys(%ARGS);
    push(@args,'--only-last') if $olast;