view release on metacpan or  search on metacpan

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

  push @subs, sub {' '}
    if @subs;

  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 //= '+ ';
  }

  return $ps_four;
}

sub _push_parameters ( $self, @parameters ) {
  $self->{parameters} //= [ [] ];

  @parameters = grep {m/./} @parameters
    unless $self->{empty};

  confess unless $self->{parameters};

  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> >>

=head1 BUGS AND LIMITATIONS

Please report any bugs or feature requests through the web interface at
L<https://gitlab.com/munkei-software/ppll/issues>.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc ppll

Or:

    ppll --help

You can also look for information at:

=over

=item * MetaCPAN

L<https://metacpan.org/pod/App::ppll>

=item * GitLab

L<https://gitlab.com/munkei-software/ppll>

=back

=head1 LICENSE AND COPYRIGHT

Copyright 2019 Theo Willows.

This program is free software; you can redistribute it and/or modify it under
the terms of either: the GNU General Public License as published by the Free
Software Foundation; or the Artistic License.

See L<http://dev.perl.org/licenses/> for more information.

=cut

1;