| line |
true |
false |
branch |
|
12
|
0 |
0 |
unless defined $arguments
|
|
20
|
36 |
0 |
if @_ == 1
|
|
29
|
0 |
0 |
unless @_
|
|
30
|
0 |
0 |
if (ref $_[0] eq 'ARRAY')
|
|
46
|
0 |
0 |
unless @_
|
|
47
|
0 |
0 |
if (ref $_[0] eq 'ARRAY')
|
|
48
|
0 |
0 |
if (ref $_[0][0] eq 'ARRAY')
|
|
116
|
0 |
0 |
if $@
|
|
156
|
0 |
0 |
unless open my $execution, "$^X $tmpfile 2>&1 |"
|
|
161
|
0 |
0 |
unless unlink $tmpfile
|
|
169
|
0 |
0 |
if (ref $ref eq 'HASH')
|
|
174
|
0 |
0 |
if (ref $ref eq 'ARRAY')
|
|
199
|
0 |
0 |
unless defined $string
|
|
206
|
0 |
0 |
unless length $text
|
|
214
|
0 |
36 |
unless defined $text
|
|
229
|
0 |
0 |
unless open my $fh, $file
|
|
238
|
0 |
0 |
if ($text =~ /\n.*?\n/s) { }
|
|
239
|
0 |
0 |
unless defined $flags
|
|
247
|
0 |
0 |
if $@
|
|
256
|
0 |
0 |
unless $self->current_arguments =~ /^(\d+)(?:,(\d))?$/
|
|
259
|
0 |
0 |
unless defined $y
|
|
260
|
0 |
0 |
if $x > $y
|
|
272
|
0 |
0 |
if (defined $separator and $separator =~ s[^/(.*)/$][$1])
|
|
276
|
0 |
0 |
unless $separator
|
|
306
|
0 |
0 |
unless my $file = $self->current_arguments
|
|
308
|
0 |
0 |
if ($file =~ m[(.*)[\\/]])
|
|
310
|
0 |
0 |
unless (-e $dir)
|
|
312
|
0 |
0 |
unless File::Path::mkpath($dir)
|
|
316
|
0 |
0 |
unless open my $fh, ">$file"
|
|
331
|
0 |
0 |
unless open my $script, ">$filename"
|
|
334
|
0 |
0 |
unless close $script
|