File Coverage

blib/lib/Text/Markup/Cmd.pm

Criterion	Covered	Total	%
statement	39	56	69.6
branch	2	12	16.6
condition	1	3	33.3
subroutine	10	12	83.3
pod	3	3	100.0
total	55	86	63.9

package Text::Markup::Cmd;

use strict;
use warnings;
use Symbol;
use IPC::Open3;
use File::Spec;
use Carp;use constant WIN32  => $^O eq 'MSWin32';
use Exporter 'import';
our @EXPORT = qw(find_cmd exec_or_die open_pipe WIN32);

sub find_cmd {
    my ($names, @opts) = @_;
    my $cli;
    EXE: {
        for my $exe (@{ $names }) {
            for my $p (File::Spec->path) {
                my $path = File::Spec->catfile($p, $exe);
                next unless -f $path && -x $path;
                $cli = $path;
                last EXE;
            }
        }
    }

    unless ($cli) {
        my $list = join(', ', @{ $names }[0..$#$names-1]) . ", or $names->[-1]";
        Carp::croak( "Cannot find $list in path $ENV{PATH}" );
    }

    # Make sure it looks like it will work.
    exec_or_die("$cli will not execute", $cli, @opts);
    return $cli;
}

sub exec_or_die {
    my $err = shift;
    my $output = gensym;
    my $pid = open3(undef, $output, $output, @_);
    waitpid $pid, 0;
    return 1 unless $?;
    use Carp;
    local $/;
    Carp::croak( qq{$err\n}, <$output> );
}

# Stolen from SVN::Notify.
sub open_pipe {
    # Ignored; looks like docutils always emits UTF-8.
    if (WIN32) {
        my $cmd = q{"} . join(q{" "}, @_) . q{"|};
        open my $fh, $cmd or die "Cannot fork: $!\n";
        return $fh;
    }

    my $pid = open my $fh, '-|';
    die "Cannot fork: $!\n" unless defined $pid;

    if ($pid) {
        # Parent process, return the file handle.
        return $fh;
    } else {
        # Child process. Execute the commands.
        exec @_ or die "Cannot exec $_[0]: $!\n";
        # Not reached.
    }
}

1;
__END__