| line |
true |
false |
branch |
|
403
|
0 |
42 |
if ($] < 5.003) { } |
|
411
|
0 |
42 |
if ($iswin32) { } |
|
430
|
0 |
42 |
unless ($Test::Cmd::TMPDIR) |
|
432
|
0 |
0 |
unless defined $_ and -d $_ and -w $_ |
|
454
|
0 |
42 |
if (defined $ENV{'PRESERVE'}) { } |
|
473
|
0 |
42 |
if $SIG{'HUP'} |
|
519
|
49 |
15 |
if (defined $self->{'workdir'}) |
|
520
|
1 |
48 |
unless ($self->workdir($self->{'workdir'})) |
|
525
|
7 |
56 |
if (defined $self->{'subdir'}) |
|
526
|
1 |
6 |
unless ($self->subdir($self->{'subdir'})) |
|
563
|
12 |
58 |
if ($prog) |
|
565
|
12 |
0 |
unless ($self->file_name_is_absolute($prog)) |
|
585
|
1 |
4 |
unless $self->{'prog'} |
|
600
|
1 |
0 |
if defined $interpreter |
|
615
|
1 |
3 |
if defined $string |
|
629
|
49 |
0 |
unless -e $name |
|
647
|
54 |
43 |
if (defined $workdir) |
|
650
|
2 |
52 |
unless (mkdir $wdir, 493) |
|
678
|
1 |
29 |
unless $self->{'workdir'} |
|
702
|
8 |
9 |
ref $_ ? : |
|
703
|
15 |
2 |
unless ($self->file_name_is_absolute($newdir)) |
|
706
|
15 |
2 |
if (mkdir $newdir, 493) |
|
728
|
5 |
32 |
if ref $file |
|
729
|
28 |
9 |
unless ($self->file_name_is_absolute($file)) |
|
732
|
3 |
34 |
unless (open OUT, ">$file") |
|
735
|
0 |
34 |
unless (print OUT @_) |
|
759
|
0 |
115 |
if ref $destref ne 'SCALAR' and ref $destref ne 'ARRAY' |
|
760
|
4 |
111 |
if ref $file |
|
761
|
8 |
107 |
unless ($self->file_name_is_absolute($file)) |
|
764
|
2 |
113 |
unless (open IN, "<$file") |
|
768
|
0 |
113 |
unless (close IN) |
|
771
|
5 |
108 |
if (ref $destref eq 'SCALAR') { } |
|
796
|
1 |
55 |
unless defined $flag |
|
798
|
54 |
2 |
if ($flag) { } |
|
800
|
0 |
286 |
if (not chmod(0755, $_)) |
|
807
|
0 |
8 |
if (not chmod(0555, $_)) |
|
829
|
3 |
0 |
@_ ? : |
|
841
|
208 |
70 |
unless -d $_ |
|
842
|
18 |
260 |
if -d $_ and $_ ne '.' |
|
868
|
4 |
0 |
$self->{'failed'} == 0 ? : |
|
|
4 |
70 |
unless $cond |
|
869
|
5 |
69 |
if ($self->{'preserve'}{$cond}) |
|
870
|
0 |
5 |
if $self->{'verbose'} |
|
949
|
6 |
61 |
if ($args{'chdir'}) |
|
951
|
6 |
0 |
unless ($self->file_name_is_absolute($args{'chdir'})) |
|
954
|
0 |
6 |
if $self->{'verbose'} |
|
955
|
2 |
4 |
unless (chdir $args{'chdir'}) |
|
963
|
44 |
21 |
if ($args{'prog'}) { } |
|
964
|
7 |
37 |
unless ($self->file_name_is_absolute($args{'prog'})) |
|
968
|
4 |
40 |
if $args{'interpreter'} |
|
971
|
2 |
19 |
if ($args{'interpreter'}) { } |
|
|
15 |
4 |
elsif ($self->{'interpreter'}) { } |
|
977
|
12 |
53 |
if $args{'args'} |
|
980
|
0 |
65 |
if $self->{'verbose'} |
|
981
|
0 |
65 |
unless (open RUN, $cmd) |
|
986
|
40 |
25 |
if ($args{'stdin'}) |
|
987
|
1 |
39 |
ref $args{'stdin'} ? : |
|
991
|
4 |
61 |
if $oldcwd |
|
999
|
0 |
0 |
(ref $v || '') eq 'CODE' ? : |
|
1015
|
0 |
0 |
if @_ == 0 |
|
1017
|
0 |
0 |
unless _to_value($cond) |
|
1018
|
0 |
0 |
if $funcref |
|
1039
|
0 |
0 |
if @_ == 0 |
|
1041
|
0 |
0 |
unless _to_value($cond) |
|
1042
|
0 |
0 |
if $funcref |
|
1043
|
0 |
0 |
unless defined $caller |
|
1045
|
0 |
0 |
if (ref $self) |
|
1047
|
0 |
0 |
if ($basename) |
|
1049
|
0 |
0 |
if ($self->{'string'}) |
|
1084
|
0 |
0 |
if @_ == 0 |
|
1086
|
0 |
0 |
unless _to_value($cond) |
|
1087
|
0 |
0 |
if $funcref |
|
1088
|
0 |
0 |
unless defined $caller |
|
1090
|
0 |
0 |
if (ref $self) |
|
1092
|
0 |
0 |
if ($basename) |
|
1094
|
0 |
0 |
if ($self->{'string'}) |
|
1141
|
1 |
55 |
@_ ? : |
|
1142
|
2 |
54 |
unless $Run_Count |
|
1144
|
0 |
54 |
unless ($self->read(\@lines, $self->_stdout_file($count))) |
|
1147
|
0 |
54 |
wantarray ? : |
|
1164
|
1 |
49 |
@_ ? : |
|
1165
|
1 |
49 |
unless $Run_Count |
|
1167
|
0 |
49 |
unless ($self->read(\@lines, $self->_stderr_file($count))) |
|
1170
|
0 |
49 |
wantarray ? : |
|
1179
|
31 |
40 |
if (ref $lines) { } |
|
1185
|
31 |
40 |
if (ref $matches) { } |
|
1217
|
2 |
50 |
if @$lines != @$matches |
|
1222
|
20 |
56 |
unless (&{$sub;}($lines->[$i], $matches->[$i])) |
|
1277
|
0 |
0 |
@_ == 1 ? : |
|
1292
|
0 |
0 |
if defined $output |
|
1294
|
0 |
0 |
if @diffs == 0 |
|
1295
|
0 |
0 |
if (defined $output) |
|
1301
|
0 |
0 |
if (not @deletions) { } |
|
|
0 |
0 |
elsif (not @additions) { } |
|
1333
|
19 |
0 |
if defined $output |
|
1334
|
8 |
11 |
if _matcher($matches, $lines, $sub) |
|
1335
|
11 |
0 |
if (defined $output) |
|
1461
|
67 |
0 |
if defined $funcref |