line |
true |
false |
branch |
15
|
2 |
0 |
unless defined $arguments |
23
|
39 |
0 |
if @_ == 1 |
32
|
0 |
0 |
unless @_ |
33
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') |
49
|
0 |
0 |
unless @_ |
50
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') |
51
|
0 |
0 |
if (ref $_[0][0] eq 'ARRAY') |
119
|
0 |
0 |
if $@ |
159
|
0 |
0 |
unless open my $execution, "$^X $tmpfile 2>&1 |" |
164
|
0 |
0 |
unless unlink $tmpfile |
172
|
0 |
0 |
if (ref $ref eq 'HASH') |
177
|
0 |
0 |
if (ref $ref eq 'ARRAY') |
202
|
0 |
0 |
unless defined $string |
209
|
0 |
0 |
unless length $text |
231
|
0 |
0 |
unless open my $fh, $file |
240
|
0 |
2 |
if ($text =~ /\n.*?\n/s) { } |
241
|
0 |
0 |
unless defined $flags |
249
|
0 |
2 |
if $@ |
258
|
0 |
0 |
unless $self->current_arguments =~ /^(\d+)(?:,(\d))?$/ |
261
|
0 |
0 |
unless defined $y |
262
|
0 |
0 |
if $x > $y |
274
|
0 |
0 |
if (defined $separator and $separator =~ s[^/(.*)/$][$1]) |
278
|
0 |
0 |
unless $separator |
308
|
0 |
0 |
unless my $file = $self->current_arguments |
310
|
0 |
0 |
if ($file =~ m[(.*)[\\/]]) |
312
|
0 |
0 |
unless (-e $dir) |
314
|
0 |
0 |
unless File::Path::mkpath($dir) |
318
|
0 |
0 |
unless open my $fh, ">$file" |
333
|
0 |
0 |
unless open my $script, ">$filename" |
336
|
0 |
0 |
unless close $script |