File Coverage

blib/lib/Dist/Zilla/Role/Author/VDB/ProgramRunner.pm

Criterion	Covered	Total	%
statement	15	37	40.5
branch	0	12	0.0
condition	0	3	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	21	59	35.5

#   ---------------------------------------------------------------------- copyright and license ---
#
#   file: lib/Dist/Zilla/Role/ProgramRunner.pm
#
#   Copyright © 2015 Van de Bugger
#
#   This file is part of perl-Dist-Zilla-PluginBundle-Author-VDB.
#
#   perl-Dist-Zilla-PluginBundle-Author-VDB is free software: you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by the Free Software
#   Foundation, either version 3 of the License, or (at your option) any later version.
#
#   perl-Dist-Zilla-PluginBundle-Author-VDB is distributed in the hope that it will be useful, but
#   WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
#   PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License along with
#   perl-Dist-Zilla-PluginBundle-Author-VDB. If not, see <http://www.gnu.org/licenses/>.
#
#   ---------------------------------------------------------------------- copyright and license ---

package Dist::Zilla::Role::Author::VDB::ProgramRunner;

use Moose::Role;
use namespace::autoclean;
use version 0.77;

# ABSTRACT: TODO
our $VERSION = 'v0.11.2_05'; # TRIAL VERSION

with 'Dist::Zilla::Role::ErrorLogger';

use IPC::Run3 qw{};
use String::ShellQuote;

# --------------------------------------------------------------------------------------------------

#pod =method run_program
#pod
#pod     @stdout = @{ $self->run_program( $program, @arguments ) };
#pod
#pod =cut

sub run_program {
    my ( $self, @cmd ) = @_;
    my ( @stdout, @stderr );
    my $program = shell_quote( $cmd[ 0 ] );
    IPC::Run3::run3( \@cmd, \undef, \@stdout, \@stderr, { return_if_system_error => 1 } );
    if ( $? < 0 ) {
        my $err = $!;
        $self->abort( [ "Can't run program %s: %s", $program, $err ] );
    };
    my $signal = $? & 0xFE;
    my $status = $? >> 8;
    chomp( @stdout );
    chomp( @stderr );
    my $method = $signal || $status ? 'log_error' : 'log_debug';
    $self->$method( [ "\$ %s", shell_quote( @cmd ) ] );
    $self->$method( @stdout ? 'stdout:' : 'stdout is empty' );
    $self->$method( "    $_" ) for @stdout;
    $self->$method( @stderr ? 'stderr:' : 'stderr is empty' );
    $self->$method( "    $_" ) for @stderr;
    if ( $signal ) {
        $self->abort( [ "Program %s died with signal %s", $program, $signal ] );
    };
    if ( $status ) {
        $self->abort( [ "Program %s exited with status %s", $program, $status ] );
    };
    return \@stdout;
};

# --------------------------------------------------------------------------------------------------

1;

# --------------------------------------------------------------------------------------------------

#pod =head1 COPYRIGHT AND LICENSE
#pod
#pod Copyright (C) 2015 Van de Bugger
#pod
#pod License GPLv3+: The GNU General Public License version 3 or later
#pod <http://www.gnu.org/licenses/gpl-3.0.txt>.
#pod
#pod This is free software: you are free to change and redistribute it. There is
#pod NO WARRANTY, to the extent permitted by law.
#pod
#pod
#pod =cut

# end of file #

__END__

=pod

=encoding UTF-8

=head1 NAME

Dist::Zilla::Role::Author::VDB::ProgramRunner - TODO

=head1 VERSION

Version v0.11.2_05, released on 2016-12-08 00:45 UTC.
This is a B<trial release>.

=head1 OBJECT METHODS

=head2 run_program

    @stdout = @{ $self->run_program( $program, @arguments ) };

=head1 AUTHOR

Van de Bugger <[e-mail]>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2015 Van de Bugger

License GPLv3+: The GNU General Public License version 3 or later
<http://www.gnu.org/licenses/gpl-3.0.txt>.

This is free software: you are free to change and redistribute it. There is
NO WARRANTY, to the extent permitted by law.

=cut