| line |
true |
false |
branch |
|
31
|
0 |
0 |
unless (@ARGV) |
|
36
|
0 |
0 |
if ($ARGV[0] =~ m[^(https?|ftp)\://]) |
|
41
|
0 |
0 |
unless defined $h |
|
44
|
0 |
0 |
if (-f $ARGV[0]) |
|
56
|
0 |
0 |
if ($uri =~ /\.(?:par|zip|tar\.gz)$/) |
|
67
|
0 |
0 |
if ($uri =~ /\.p5i$/) |
|
77
|
0 |
0 |
if ($uri =~ /\.p5z$/) |
|
98
|
0 |
0 |
if ($param =~ /\.(?:zip|tar\.gz|tgz)$/) |
|
103
|
0 |
0 |
if ($param =~ /\.par$/) |
|
108
|
0 |
0 |
if ($param =~ /\.p5i$/) |
|
113
|
0 |
0 |
if ($param =~ /\.p5z$/) |
|
122
|
0 |
0 |
@_ ? : |
|
123
|
0 |
0 |
if (-d $pip) |
|
127
|
0 |
0 |
unless (-f $pip) |
|
135
|
0 |
0 |
if ($@) |
|
136
|
0 |
0 |
unless ($@ =~ /The sources directory is not owned by the current user/) |
|
145
|
0 |
0 |
if (File::Which::which('sudo')) |
|
159
|
0 |
0 |
unless (-f $archive) |
|
171
|
0 |
0 |
unless (-f $p5z) |
|
182
|
0 |
0 |
unless (@files) |
|
188
|
0 |
0 |
unless (-f $path) |