File Coverage

blib/lib/ShellQuote/Any/Tiny.pm

Criterion	Covered	Total	%
statement	13	17	76.4
branch	3	6	50.0
condition	1	3	33.3
subroutine	3	3	100.0
pod	1	1	100.0
total	21	30	70.0

package ShellQuote::Any::Tiny;

our $DATE = '2017-09-19'; # DATE
our $VERSION = '0.006'; # VERSION

use strict;
#use warnings;

use Exporter qw(import);
our @EXPORT_OK = qw(shell_quote);
our $OS;

sub shell_quote {
    my $arg = shift;

    my $os = $OS || $^O;

    if ($os eq 'MSWin32') {
        if ($arg =~ /\A\w+\z/) {
            return $arg;
        }
        # escape backslash that is followed by a backslash, or the last
        # backslash
        $arg =~ s/(\\(?!.*\\)|\\(?=\\)|")/\\$1/g;
        return qq("$arg");
    } else {
        if ($arg =~ /\A\w+\z/) {
            return $arg;
        }
        $arg =~ s/'/'"'"'/g;
        return "'$arg'";
    }
}

1;
# ABSTRACT: Escape string for the Unix/Windows shell

__END__