File Coverage

blib/lib/Text/Shellwords.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 22 25 88.0


line stmt bran cond sub pod time code
1             package Text::Shellwords;
2              
3             # simple wrapper around perl4-based shellwords.pl
4              
5 1     1   5456 use strict;
  1         2  
  1         40  
6             require Exporter;
7              
8 1     1   833 use Text::ParseWords();
  1         1357  
  1         27  
9              
10              
11 1     1   7 use vars qw(@ISA @EXPORT $VERSION);
  1         7  
  1         184  
12             @ISA = 'Exporter';
13             $VERSION = '1.08';
14              
15             @EXPORT = qw(shellwords);
16              
17             sub shellwords {
18 5     5 0 693 my @args = @_;
19 5 50       11 return unless @args;
20 5         8 foreach(@args) {
21 6 50       12 $_ = '' unless defined $_;
22 6         10 s/^\s+//;
23 6         18 s/\s+$//;
24             }
25 5         15 Text::ParseWords::shellwords(@args);
26             }
27              
28             1;
29              
30             __END__