App-ppll

 view release on metacpan or  search on metacpan

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

  $self->{prefix}  //= $self->{total_parameters} > 1;
  $self->{summary} //= $self->{total_parameters} > 1;

  return $self;
} ## end sub new

=head2 stop

=cut

sub stop( $self ) {
  $self->{parameters} = [];

  for my $worker ( @{ $self->{pool} } ) {
    $worker->stop;
  }

  return;
}

sub _coloured ( $self, $str, @args ) {

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

  return sub {
    for ( @_ ) {
      chomp;
      say {$dest} join( '', map { $_->() } @subs ) . $_;
    }
    return;
  };
} ## end sub _printer

sub _ps_four() {
  state $ps_four;

  unless ( defined $ps_four ) {
    $ps_four = $ENV{PS4};
    utf8::decode(              ## no critic [Subroutines::ProhibitCallsToUnexportedSubs]
      $ps_four,
    ) if $ps_four;
    $ps_four //= '+ ';
  }

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

  push @{ $self->{parameters}->[-1] }, @parameters;

  return;
}

sub _split_fields ( $self, $str ) {
  return split( $self->{delimiter}, $str );
}

sub _string_colour( $str ) {
  return $COLOURS[ unpack( 'L', substr( md5( $str ), 0, 2 * 2 ) ) %
    scalar @COLOURS ];
}

sub _width( $self ) {
  return $ENV{COLUMNS}
    if $ENV{COLUMNS};

  return ( GetTerminalSize() )[0] // $WIDTH;
}

=head1 AUTHOR

Theo -q Willows, C<< <theo@willows.se> >>

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

  $self{harness} = harness( @harness_args );

  return bless \%self, $class;
}

=head2 result

=cut

sub result( $self ) {
  if ( $self->{harness}->pumpable ) {
    $self->{harness}->pump_nb;
    return;
  }

  $self->{harness}->finish;
  $self->{finished} = 1;
  my $result = $self->{harness}->result;

  return $result;
}

=head2 start

=cut

sub start( $self ) {
  $self->{harness}->start;
  return;
}

=head2 stop

=cut

sub stop( $self ) {
  $self->{harness}->kill_kill;
  $self->{harness}->finish;
  $self->{finished} = 1;
  return;
}

=head2 str

=cut