File Coverage

blib/lib/Shell/Cap.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	23	24	95.8

package Shell::Cap;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-03-10'; # DATE
our $DIST = 'Shell-Cap'; # DIST
our $VERSION = '0.002'; # VERSION

use strict 'vars', 'subs';
use warnings;
use Log::ger;

use Exporter qw(import);
our @EXPORT_OK = qw(
    shell_supports_pipe
);

sub shell_supports_pipe {
    require ShellQuote::Any::PERLANCAR;

    my $cmd = join(
        " ",
        ShellQuote::Any::PERLANCAR::shell_quote($^X),
        "-e", ShellQuote::Any::PERLANCAR::shell_quote("print 2"),
        "|",
        ShellQuote::Any::PERLANCAR::shell_quote($^X),
        "-e", ShellQuote::Any::PERLANCAR::shell_quote("print *3"),
    );
    log_trace "Checking whether shell supports pipe with command $cmd";
    `$cmd` == 6 ? 1:0;
}

1;
# ABSTRACT: Probe shell's capabilities

__END__