App-Oozie

 view release on metacpan or  search on metacpan

docs/bin/deploy.sh  view on Meta::CPAN

#!/bin/bash

# This won't run as-is, but it is here to give you an idea.

export TEST_BIN=$(perl -wE 'use FindBin qw($Bin); say $Bin;')
export TEST_LIB=$TEST_BIN"/lib"

echo "TEST_LIB:"$TEST_LIB;
echo "TEST_BIN:"$TEST_BIN;

perl -I$TEST_LIB \
-MCarp::Always \
-MData::Dumper \
-MApp::Oozie::Deploy -wE 'warn Dumper \@ARGV; App::Oozie::Deploy->new_with_options->run( \@ARGV )' -- \
--git_repo_path         $TEST_BIN"/eg"                              \

docs/bin/run.sh  view on Meta::CPAN

#!/bin/bash

# This won't run as-is, but it is here to give you an idea.

export TEST_BIN=$(perl -wE 'use FindBin qw($Bin); say $Bin;')
export TEST_LIB=$TEST_BIN"/lib"

echo "TEST_LIB:"$TEST_LIB;
echo "TEST_BIN:"$TEST_BIN;

cd eg/workflows

perl -I$TEST_LIB \
-MCarp::Always \
-MData::Dumper \

eg/workflows/cpan-sample-workflow/get-config.pl  view on Meta::CPAN

# ---------------------------------------------------------------------------- #

INFO 'Starting to collect information';

if ( $OPT{nosleep} ) {
    INFO "Skipping sleep ...";
}
else {
    #
    # A sleep might increase randomization of some settings, if lets say you
    # are collecting some database node addresses from a service which can
    # shuffle result sets based on the load it detects.
    #
    # This can especially be useful for jobs creating too many fork paths
    # and calling this program to collect configuration, which might lead to
    # a thundering herd situation.
    #
    my @sleep = map { $_ * 5 } 1..20;
    my $secs = $sleep[ rand @sleep ];

perlcritic.rc  view on Meta::CPAN

# You can test the policies manually, but it will
# also be an author test under dzil
#
#    perlcritic --profile perlcritic.rc --quiet lib
#
# Some policies are temporarily disabled until
# some refactoring happens.
#
# You can also de-duplicate the entries in here:
#
#    cat perlcritic.rc | perl -anE 'chomp; next if $_!~ m{^\[};s/[\[\]]//g;s/\-//; $n{$_}++ }{ for(keys %n){next if $n{$_}<2; say $_,"\t" ,$n{$_}}'
# ===================================================== #

# ================= Configuration ===================== #

severity = brutal
verbose  = [%p] %m at line %l, column %c. (Severity: %s) - %f - %r\n


# =============== Temporarily Disabled ================ #