File Coverage

blib/lib/IPC/PrettyPipe/Render/Template/Tiny.pm

Criterion	Covered	Total	%
statement	74	80	92.5
branch	7	10	70.0
condition	1	2	50.0
subroutine	13	13	100.0
pod	1	1	100.0
total	96	106	90.5

package IPC::PrettyPipe::Render::Template::Tiny;

# ABSTRACT: rendering backend using B

use Carp;
use Template::Tiny;
use Safe::Isa;

use Text::Tabs qw[ expand ];
use Types::Standard -all;
use Type::Params qw[ validate ];

use Moo;


our $VERSION = '0.12';

BEGIN {
    if ( $^O =~ /Win32/i ) {
        require Win32::Console::ANSI;
    }
}
use Term::ANSIColor ();

use namespace::clean;


























has pipe => (
    is       => 'rw',
    isa      => InstanceOf ['IPC::PrettyPipe'],
    required => 1,
);
















has colors => (
    is      => 'rw',
    isa     => HashRef,
    default => sub {
        {
            cmd => {
                cmd    => 'blue',
                stream => {
                    spec => 'red',
                    file => 'green',
                },
                arg => {
                    name  => 'red',
                    sep   => 'yellow',
                    value => 'green',
                },
            },
            pipe => {
                stream => {
                    spec => 'red',
                    file => 'green',
                },
            },
        };
    },
);



















has cmd_template => (
    is      => 'rw',
    default => <<"EOT",
[%- indent %][% color.cmd.cmd %][% cmd.quoted_cmd %][% color.reset %]
[%- FOREACH arg IN cmd.args.elements %]\\
[% indent %][% indent %][% color.cmd.arg.pfx %][% arg.pfx %][% color.cmd.arg.name %][% arg.quoted_name %]
[%- IF arg.has_value %][%- IF arg.sep %][% color.cmd.arg.sep %][% arg.sep %][% ELSE %] [% END %]
[%- color.cmd.arg.value %][% arg.quoted_value %][% END %][% color.reset %]
[%- END %]
[%- FOREACH stream IN cmd.streams.elements %]\\
[% indent %][% indent %][% color.cmd.stream.spec %][% stream.spec -%]
[% IF stream.has_file %] [% color.cmd.stream.file %][% stream.quoted_file %][% color.reset %][% END %]
[%- END -%]
EOT
);


















has pipe_template => (

    is => 'rw',

    default => <<"EOT",
[% indent %][% IF pipe.streams.empty %][% ELSE %](\\
[% END %][% cmds %]
[%- IF pipe.streams.empty %][% ELSE %]\\
[% indent %])[% FOREACH stream IN pipe.streams.elements -%]
[% IF stream.first %]\t[% ELSE %]\\
\t[% indent %][% END -%]
[% color.pipe.stream.spec %][% stream.spec -%]
[% IF stream.has_file %] [% color.pipe.stream.file %][% stream.quoted_file %][% color.reset %][% END %]
[%- END -%]
[%- END -%]
EOT
);

sub _colorize {

    my ( $tmpl, $colors ) = @_;

    ## no critic (ProhibitAccessOfPrivateData)

    while ( my ( $node, $value ) = each %$tmpl ) {

        if ( ref $value ) {

            $colors->{$node} = {};
            _colorize( $value, $colors->{$node} );

        }

        else {
            $colors->{$node} = Term::ANSIColor::color( $value );
        }

    }

}



















sub render {

    my $self = shift;

    my ( $args ) = validate(
        \@_,
        slurpy Dict [
            colorize => Optional [Bool],
        ] );

    $args->{colorize} //= 1;    ## no critic (ProhibitAccessOfPrivateData)

    my %color;
    _colorize( $self->colors, \%color );

    $color{reset} = Term::ANSIColor::color( 'reset' )
      if keys %color;

    local $Text::Tabs::tabstop = 2;

    # generate non-colorized version so can get length of records to
    # pad out any continuation lines
    my @output;
    $self->_render_pipe( $self->pipe, { indent => '' },  \@output);

    my @records = map { expand( $_ ) } map { split( /\n/, $_ ) } @output;
    my @lengths = map { length } @records;
    my $max = List::Util::max( @lengths ) + 4;

    if ( $args->{colorize} ) {
        @output = ();
        $self->_render_pipe( $self->pipe, { indent => '', color => \%color },  \@output);
        @records = map { expand( $_ ) } map { split( /\n/, $_ ) } @output;
    }

    foreach ( @records ) {
        my $pad =  ' ' x ($max - shift @lengths);
        s/\\$/$pad \\/;
    }

    return join ("\n", @records ) . "\n";
}

sub _render_pipe {

    my $self = shift;

    my ( $pipe, $process_args, $output ) = @_;

    my %process_args = %{$process_args};

    my @output;

    for my $cmd ( @{ $pipe->cmds->elements } ) {
        if ( $cmd->isa( 'IPC::PrettyPipe' ) ) {
            local $process_args{indent} = $process_args{indent} . "\t";
            $self->_render_pipe( $cmd, \%process_args, \@output );
        }
        else {
            local $process_args{indent} = $process_args{indent} . "\t";
            push @output, '';
            local $process_args{cmd} = $cmd;
            Template::Tiny->new->process( \$self->cmd_template, \%process_args,
                \( $output[-1] ) );
        }
    }

    $process_args{cmds} = join( "\\\n|", @output );
    $process_args{pipe} = $pipe;
    push @{$output}, '';
    Template::Tiny->new->process( \$self->pipe_template, \%process_args,
        \( $output->[-1] ) );
    return;
}


with 'IPC::PrettyPipe::Renderer';

1;

#
# This file is part of IPC-PrettyPipe
#
# This software is Copyright (c) 2018 by Smithsonian Astrophysical Observatory.
#
# This is free software, licensed under:
#
#   The GNU General Public License, Version 3, June 2007
#

__END__