| line |
true |
false |
branch |
|
123
|
0 |
0 |
if ($buf eq "\n") |
|
142
|
0 |
0 |
if ($buf eq "\r") |
|
145
|
0 |
0 |
if ($line =~ /$cmd\n/s) |
|
149
|
0 |
0 |
if ($line =~ /$cmd\n/s and $counter == 2) |
|
153
|
0 |
0 |
if ($buf eq "\n") |
|
202
|
0 |
0 |
if ($buf eq "\r") |
|
207
|
0 |
0 |
if ($self->_check_patterns($line, @match_patterns)) |
|
213
|
0 |
0 |
if ($line =~ /^___END___0_/) |
|
219
|
0 |
0 |
if $$self{'__log_stdout'} |
|
222
|
0 |
0 |
if ($buf eq "\n") |
|
230
|
0 |
0 |
if ($$self{'output'}[0] =~ /^\s*$/) |
|
234
|
0 |
0 |
unless (eval {
do {
my $success = 0;
local $SIG{'ALRM'} = sub {
die;
}
;
alarm $timeout;
my $line = '';
while (1) {
my $buf;
$self->shell->read($buf, 1);
if ($buf eq "\r") {
next;
} ;
$line .= $buf;
if ($self->_check_patterns($line, @match_patterns)) {
$line = '';
alarm $timeout;
next;
} ;
if ($line =~ /^___END___0_/) {
$? = 0;
$success = 1;
last;
} ;
print $buf if $$self{'__log_stdout'};
$self->_log($buf);
if ($buf eq "\n") {
chomp $line;
push @{$$self{'output'};}, $line;
$line = '';
} ;
} ;
if ($$self{'output'}[0] =~ /^\s*$/) {
shift @{$$self{'output'};};
} ;
return $success
}
}) |
|
256
|
0 |
0 |
if ($line =~ /$pattern/) |
|
269
|
0 |
0 |
if (ref $log_to eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $log_to eq 'GLOB') { } |
|
277
|
0 |
0 |
unless open my $fh, '>>', $log_to |