App-ppll

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  },

  module_name => 'App::ppll',

  recursive_test_files => 1,

  release_status => 'stable',

  requires => {

    'DateTime'           => 1.50,
    'IPC::Run'           => '20180523.0',
    'List::Flatten'      => 0.01,
    'Readonly'           => 2.05,
    'String::ShellQuote' => 1.04,
    'Sys::CPU'           => 0,
    'Term::ReadKey'      => 2.38,
    'Time::Duration'     => 1.20,
    'perl'               => 'v5.20',
    'utf8::all'          => 0.024,

META.json  view on Meta::CPAN

   },
   "name" : "App-ppll",
   "prereqs" : {
      "configure" : {
         "requires" : {
            "Module::Build" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "DateTime" : "1.5",
            "IPC::Run" : "20180523.0",
            "List::Flatten" : "0.01",
            "Readonly" : "2.05",
            "String::ShellQuote" : "1.04",
            "Sys::CPU" : "0",
            "Term::ReadKey" : "2.38",
            "Time::Duration" : "1.2",
            "perl" : "v5.20.0",
            "utf8::all" : "0.024"
         }

META.yml  view on Meta::CPAN

  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: App-ppll
provides:
  App::ppll:
    file: lib/App/ppll.pm
    version: v0.0.1
  App::ppll::Worker:
    file: lib/App/ppll/Worker.pm
requires:
  DateTime: '1.5'
  IPC::Run: '20180523.0'
  List::Flatten: '0.01'
  Readonly: '2.05'
  String::ShellQuote: '1.04'
  Sys::CPU: '0'
  Term::ReadKey: '2.38'
  Time::Duration: '1.2'
  perl: v5.20.0
  utf8::all: '0.024'
resources:

bin/ppll  view on Meta::CPAN

=item B<-S>

=item B<--no-summary>

Print (the default if there’s more than one parameter), or don’t print, a
summary of how many jobs ran and which of them failed.

=item B<--timestamp-format> I<FORMAT>

Format timestamps using I<FORMAT>. See L<DateTime::strftime|DateTime::strftime>.

The default is C<%T.%3N>.

Implies B<--timestamps>.

=item B<--timestamps>

=item B<-t>

Prefix lines from jobs’ output with a timestamp. The time printed will be the

lib/App/ppll.pm  view on Meta::CPAN

=cut

use autodie;
use strict;
use utf8::all;
use v5.20;
use warnings;

use Carp;
use DateTime;
use Digest::MD5 qw( md5 );
use English qw( -no_match_vars );
use Getopt::Long;
use List::Flatten qw( flat );
use List::Util qw( max shuffle );
use POSIX qw( isatty );
use Pod::Usage qw( pod2usage );
use Readonly;
use String::ShellQuote qw( shell_quote );
use Sys::CPU qw( cpu_count );

lib/App/ppll.pm  view on Meta::CPAN

  $dest->autoflush( 1 );

  my @subs;

  push @subs, sub {$prefix}
    if defined $prefix
    and $self->{prefix};

  push @subs, sub {
    $self->_coloured(
      DateTime->from_epoch(
        epoch     => time,
        time_zone => 'local',
      )->strftime( $self->{timestamp_format} ),
      'reverse faint',
    );
    }
    if $self->{timestamp_format};

  push @subs, sub { $self->_coloured( $marker, 'faint' ) }
    if $self->{markers};