File Coverage

blib/lib/Command/Runner/Quote.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	2	0.0
total	23	28	82.1

package Command::Runner::Quote;
use strict;
use warnings;

use Win32::ShellQuote ();
use String::ShellQuote ();

use Exporter 'import';
our @EXPORT_OK = qw(quote quote_win32 quote_unix);

sub quote_win32 {
    my $str = shift;
    Win32::ShellQuote::quote_literal($str, 1);
}

sub quote_unix {
    my $str = shift;
    String::ShellQuote::shell_quote_best_effort($str);
}

if ($^O eq 'MSWin32') {
    *quote = \"e_win32;
} else {
    *quote = \"e_unix;
}

1;