File Coverage

blib/lib/ShellQuote/Any/PERLANCAR.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch	2	2	100.0
condition			n/a
subroutine	2	2	100.0
pod	1	1	100.0
total	13	13	100.0

package ShellQuote::Any::PERLANCAR;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-03-10'; # DATE
our $DIST = 'ShellQuote-Any-PERLANCAR'; # DIST
our $VERSION = '0.003'; # VERSION

# Be lean.
#use 5.010001;
#use strict 'subs', 'vars';
#use warnings;

sub import {
    my $caller = caller;

    *{"$caller\::shell_quote"} = \&shell_quote;
}

sub shell_quote {
    if ($^O eq 'MSWin32') {
        require Win32::ShellQuote;
        Win32::ShellQuote::quote_system_string(@_);
    } else {
        require String::ShellQuote;
        String::ShellQuote::shell_quote(@_);
    }
}

1;
# ABSTRACT: Escape strings for the shell on Unix or MSWin32

__END__