File Coverage

blib/lib/ShellQuote/Any.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	10	14	71.4
condition			n/a
subroutine	10	10	100.0
pod	1	1	100.0
total	54	59	91.5

package ShellQuote::Any;
use strict;
use warnings;

our $VERSION = '0.04';

sub import {
    my $caller = caller;

    no strict 'refs'; ## no critic
    *{"${caller}::shell_quote"} = \&shell_quote;
}

sub shell_quote {
    my ($cmd, $os) = @_;

    if ($os) {
        _require($os);
        return _is_win32($os) ? _win32_quote($cmd) : _bourne_quote($cmd);
    }
    else {
        _q()->($cmd);
    }
}

my $Q;
sub _q {
    return $Q if $Q;

    _require($^O);

    if ( _is_win32($^O) ) {
        $Q = \&_win32_quote;
    }
    else {
        $Q = \&_bourne_quote;
    }

    return $Q;
}

my %K;
sub _require {
    my ($os) = @_;

    return $K{$os} if $K{$os};

    my $klass = _is_win32($os) ? 'Win32/ShellQuote.pm' : 'String/ShellQuote.pm';
    $K{$os} = $klass;

    require "$klass"; ## no critic
}

sub _win32_quote {
    my ($cmd) = @_;
    Win32::ShellQuote::cmd_escape(join ' ', @$cmd);
}

sub _bourne_quote {
    my ($cmd) = @_;
    String::ShellQuote::shell_quote(@$cmd);
}

sub _is_win32 {
    my ($os) = @_;

    return $os =~ m!^(?:MS)?Win(?:32)?$!i ? 1 : 0;
}

1;

__END__