File Coverage

blib/lib/IPC/PrettyPipe/Render/Struct.pm

Criterion	Covered	Total	%
statement	47	47	100.0
branch	9	10	90.0
condition			n/a
subroutine	12	12	100.0
pod	1	1	100.0
total	69	70	98.5

package IPC::PrettyPipe::Render::Struct;

# ABSTRACT: rendering a pipe as Perl structures

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

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

use Moo;


our $VERSION = '0.13';

use namespace::clean;
















sub render {
    my ( $self, $pipe ) = @_;
    return _render_pipe( $pipe);
}

sub _render_pipe {
    my $pipe = shift;

    my @elements;

    for my $element ( @{ $pipe->cmds->elements } ) {
        if ( $element->isa( 'IPC::PrettyPipe' ) ) {
            push @elements, _render_pipe( $element );
        }
        else {
            push @elements, _render_cmd( $element );
        }
    }

    return {
            elements => \@elements,
             do {
                 my $streams = _render_streams( $pipe->streams );
                 @$streams ? (streams => $streams) : ();
             },
           };
}

sub _render_cmd {
    my ( $cmd ) = @_;

    return { cmd => $cmd->cmd,
             do {
                 my $args = [ map { $_->render } @{ $cmd->args->elements } ];
                 @$args ? ( args => $args) : ();
                 },

             do {
                 my $streams = _render_streams( $cmd->streams );
                 @$streams ? (streams => $streams) : ();
             },
           }
}

sub _render_streams {
    my $streams = shift;
    return [ map { _render_stream( $_ ) } @{ $streams->elements } ];
}

sub _render_stream {
    my $stream = shift;
    return [ $stream->spec, $stream->has_file ? $stream->file : () ];
}

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__