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


line stmt bran cond sub pod time code
1             package Command::Runner::Quote;
2 12     12   89 use strict;
  12         18  
  12         324  
3 12     12   60 use warnings;
  12         24  
  12         271  
4              
5 12     12   5136 use Win32::ShellQuote ();
  12         17185  
  12         278  
6 12     12   4998 use String::ShellQuote ();
  12         10134  
  12         332  
7              
8 12     12   84 use Exporter 'import';
  12         29  
  12         1504  
9             our @EXPORT_OK = qw(quote quote_win32 quote_unix);
10              
11             sub quote_win32 {
12 0     0 0 0 my $str = shift;
13 0         0 Win32::ShellQuote::quote_literal($str, 1);
14             }
15              
16             sub quote_unix {
17 22     22 0 50 my $str = shift;
18 22         85 String::ShellQuote::shell_quote_best_effort($str);
19             }
20              
21             if ($^O eq 'MSWin32') {
22             *quote = \"e_win32;
23             } else {
24             *quote = \"e_unix;
25             }
26              
27             1;