| line |
true |
false |
branch |
|
404
|
0 |
30 |
if ($] < 5.003) { } |
|
412
|
0 |
30 |
if ($iswin32) { } |
|
431
|
0 |
30 |
unless ($Test::Cmd::TMPDIR) |
|
433
|
0 |
0 |
unless defined $_ and -d $_ and -w $_ |
|
455
|
0 |
30 |
if (defined $ENV{'PRESERVE'}) { } |
|
474
|
0 |
30 |
if $SIG{'HUP'} |
|
520
|
37 |
15 |
if (defined $$self{'workdir'}) |
|
521
|
1 |
36 |
unless ($self->workdir($$self{'workdir'})) |
|
526
|
7 |
44 |
if (defined $$self{'subdir'}) |
|
527
|
1 |
6 |
unless ($self->subdir($$self{'subdir'})) |
|
564
|
12 |
46 |
if ($prog) |
|
566
|
12 |
0 |
unless ($self->file_name_is_absolute($prog)) |
|
586
|
1 |
4 |
unless $$self{'prog'} |
|
601
|
1 |
0 |
if defined $interpreter |
|
616
|
1 |
3 |
if defined $string |
|
630
|
37 |
0 |
unless -e $name |
|
648
|
42 |
43 |
if (defined $workdir) |
|
651
|
2 |
40 |
unless (mkdir $wdir, 493) |
|
679
|
1 |
25 |
unless $$self{'workdir'} |
|
703
|
8 |
9 |
ref $_ ? : |
|
704
|
15 |
2 |
unless ($self->file_name_is_absolute($newdir)) |
|
707
|
15 |
2 |
if (mkdir $newdir, 493) |
|
729
|
5 |
28 |
if ref $file |
|
730
|
28 |
5 |
unless ($self->file_name_is_absolute($file)) |
|
733
|
3 |
30 |
unless (open OUT, ">$file") |
|
736
|
0 |
30 |
unless (print OUT @_) |
|
760
|
0 |
41 |
if ref $destref ne 'SCALAR' and ref $destref ne 'ARRAY' |
|
761
|
4 |
37 |
if ref $file |
|
762
|
8 |
33 |
unless ($self->file_name_is_absolute($file)) |
|
765
|
2 |
39 |
unless (open IN, "<$file") |
|
769
|
0 |
39 |
unless (close IN) |
|
772
|
5 |
34 |
if (ref $destref eq 'SCALAR') { } |
|
797
|
1 |
43 |
unless defined $flag |
|
799
|
42 |
2 |
if ($flag) { } |
|
801
|
0 |
196 |
if (not chmod(0755, $_)) |
|
808
|
0 |
8 |
if (not chmod(0555, $_)) |
|
830
|
3 |
0 |
@_ ? : |
|
842
|
130 |
58 |
unless -d $_ |
|
843
|
18 |
170 |
if -d $_ and $_ ne '.' |
|
869
|
4 |
0 |
$$self{'failed'} == 0 ? : |
|
|
4 |
58 |
unless $cond |
|
870
|
5 |
57 |
if ($$self{'preserve'}{$cond}) |
|
871
|
0 |
5 |
if $$self{'verbose'} |
|
950
|
6 |
24 |
if ($args{'chdir'}) |
|
952
|
6 |
0 |
unless ($self->file_name_is_absolute($args{'chdir'})) |
|
955
|
0 |
6 |
if $$self{'verbose'} |
|
956
|
2 |
4 |
unless (chdir $args{'chdir'}) |
|
964
|
7 |
21 |
if ($args{'prog'}) { } |
|
965
|
7 |
0 |
unless ($self->file_name_is_absolute($args{'prog'})) |
|
969
|
4 |
3 |
if $args{'interpreter'} |
|
972
|
2 |
19 |
if ($args{'interpreter'}) { } |
|
|
15 |
4 |
elsif ($$self{'interpreter'}) { } |
|
978
|
12 |
16 |
if $args{'args'} |
|
981
|
0 |
28 |
if $$self{'verbose'} |
|
982
|
0 |
28 |
unless (open RUN, $cmd) |
|
987
|
3 |
25 |
if ($args{'stdin'}) |
|
988
|
1 |
2 |
ref $args{'stdin'} ? : |
|
992
|
4 |
24 |
if $oldcwd |
|
1000
|
0 |
0 |
(ref $v || '') eq 'CODE' ? : |
|
1016
|
0 |
0 |
if @_ == 0 |
|
1018
|
0 |
0 |
unless _to_value($cond) |
|
1019
|
0 |
0 |
if $funcref |
|
1040
|
0 |
0 |
if @_ == 0 |
|
1042
|
0 |
0 |
unless _to_value($cond) |
|
1043
|
0 |
0 |
if $funcref |
|
1044
|
0 |
0 |
unless defined $caller |
|
1046
|
0 |
0 |
if (ref $self) |
|
1048
|
0 |
0 |
if ($basename) |
|
1050
|
0 |
0 |
if ($$self{'string'}) |
|
1085
|
0 |
0 |
if @_ == 0 |
|
1087
|
0 |
0 |
unless _to_value($cond) |
|
1088
|
0 |
0 |
if $funcref |
|
1089
|
0 |
0 |
unless defined $caller |
|
1091
|
0 |
0 |
if (ref $self) |
|
1093
|
0 |
0 |
if ($basename) |
|
1095
|
0 |
0 |
if ($$self{'string'}) |
|
1142
|
1 |
18 |
@_ ? : |
|
1143
|
2 |
17 |
unless $Run_Count |
|
1145
|
0 |
17 |
unless ($self->read(\@lines, $self->_stdout_file($count))) |
|
1148
|
0 |
17 |
wantarray ? : |
|
1165
|
1 |
12 |
@_ ? : |
|
1166
|
1 |
12 |
unless $Run_Count |
|
1168
|
0 |
12 |
unless ($self->read(\@lines, $self->_stderr_file($count))) |
|
1171
|
0 |
12 |
wantarray ? : |
|
1180
|
31 |
40 |
if (ref $lines) { } |
|
1186
|
31 |
40 |
if (ref $matches) { } |
|
1218
|
2 |
50 |
if @$lines != @$matches |
|
1223
|
20 |
56 |
unless (&{$sub;}($$lines[$i], $$matches[$i])) |
|
1278
|
0 |
0 |
@_ == 1 ? : |
|
1293
|
0 |
0 |
if defined $output |
|
1295
|
0 |
0 |
if @diffs == 0 |
|
1296
|
0 |
0 |
if (defined $output) |
|
1302
|
0 |
0 |
if (not @deletions) { } |
|
|
0 |
0 |
elsif (not @additions) { } |
|
1334
|
19 |
0 |
if defined $output |
|
1335
|
8 |
11 |
if _matcher($matches, $lines, $sub) |
|
1336
|
11 |
0 |
if (defined $output) |
|
1462
|
55 |
0 |
if defined $funcref |