File Coverage

blib/lib/ShellQuote/Any/Tiny.pm

Criterion	Covered	Total	%
statement	12	16	75.0
branch	3	6	50.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	19	26	73.0

package ShellQuote::Any::Tiny;

our $DATE = '2017-08-16'; # DATE
our $VERSION = '0.005'; # VERSION

use strict;
#use warnings;

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

sub shell_quote {
    my $arg = shift;

    if ($^O eq 'MSWin32') {
        if ($arg =~ /\A\w+\z/) {
            return $arg;
        }
        $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__