File Coverage

blib/lib/shellwords.pl
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             ;# shellwords.pl
2             ;#
3             ;# Usage:
4             ;# require 'shellwords.pl';
5             ;# @words = shellwords($line);
6             ;# or
7             ;# @words = shellwords(@lines);
8             ;# or
9             ;# @words = shellwords(); # defaults to $_ (and clobbers it)
10              
11 1     1   1676 use Text::ParseWords 3.25 ();
  1         1576  
  1         39  
12             *shellwords = \&Text::ParseWords::old_shellwords;
13              
14             1;