| line |
true |
false |
branch |
|
30
|
0 |
0 |
if ($self->cmd('ping ' . $host)) |
|
32
|
0 |
0 |
if ($l =~ /Success Rate is (\d+) percent/) { } |
|
43
|
0 |
0 |
exists $$stream{'last_prompt'} ? : |
|
51
|
0 |
0 |
exists $$stream{'last_cmd'} ? : |
|
57
|
0 |
0 |
if ($self->ha_mode ne '') { } |
|
58
|
0 |
0 |
$self->last_prompt =~ /\(([\w.-]+)\)\(\w+\)/ ? : |
|
60
|
0 |
0 |
$self->last_prompt =~ /\(([\w.-]+)\)/ ? : |
|
67
|
0 |
0 |
if ($self->current_vsys) |
|
71
|
0 |
0 |
if (exists $vsys{$vsys}) { } |
|
72
|
0 |
0 |
if ($self->cmd('enter vsys ' . $vsys)) { } |
|
90
|
0 |
0 |
if ($self->current_vsys) { } |
|
91
|
0 |
0 |
if $$stream{'changed'} |
|
95
|
0 |
0 |
if $$stream{'changed'} |
|
104
|
0 |
0 |
if ($self->current_vsys) |
|
109
|
0 |
0 |
if ($backupsys) |
|
111
|
0 |
0 |
if ($result =~ /([\w.-]+)\s+(\d+)\s+/) |
|
121
|
0 |
0 |
unless $setting |
|
123
|
0 |
0 |
if ($self->lastline =~ /\$\$Ambigious command!!/) |
|
132
|
0 |
0 |
unless $setting |
|
133
|
0 |
0 |
unless $value |
|
137
|
0 |
0 |
if ($result =~ /\w+/) |
|
150
|
0 |
0 |
if ($self->current_vsys) |
|
161
|
0 |
0 |
unless my $self = $class->SUPER::new('prompt', '/[\\w().-]*\\(?([\\w.-])?\\)?\\s*->\\s*$/', @_) |
|
193
|
0 |
0 |
if (@_ == 2) { } |
|
|
0 |
0 |
elsif (@_ > 2) { } |
|
194
|
0 |
0 |
unless defined $prompt |
|
196
|
0 |
0 |
unless $prompt =~ m[^\s*/] |
|
240
|
0 |
0 |
if $self->SUPER::eof |
|
243
|
0 |
0 |
if (@_ == 2) { } |
|
|
0 |
0 |
elsif (@_ > 2) { } |
|
249
|
0 |
0 |
if (/^-?cmd_remove/i) { } |
|
|
0 |
0 |
elsif (/^-?output$/i) { } |
|
|
0 |
0 |
elsif (/^-?prompt$/i) { } |
|
|
0 |
0 |
elsif (/^-?string$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
251
|
0 |
0 |
if $cmd_remove_mode =~ /^auto/i |
|
256
|
0 |
0 |
if (defined $output_ref and ref $output_ref eq 'ARRAY') |
|
283
|
0 |
0 |
if defined $prompt |
|
292
|
0 |
0 |
if eval '$match =~ ' . $self->prompt |
|
301
|
0 |
0 |
if defined $orig_prompt |
|
304
|
0 |
0 |
if $self->SUPER::timed_out |
|
305
|
0 |
0 |
if $self->SUPER::errmsg ne '' |
|
306
|
0 |
0 |
if $self->SUPER::eof |
|
318
|
0 |
0 |
if ($firstpos < length $lines) |
|
342
|
0 |
0 |
unless (@$output) |
|
347
|
0 |
0 |
if (defined $output_ref) |
|
348
|
0 |
0 |
if (ref $output_ref eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $output_ref eq 'HASH') { } |
|
356
|
0 |
0 |
wantarray ? : |
|
367
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_ >= 2) { } |
|
372
|
0 |
0 |
if $k =~ /^-?[Ss]tring$/ |
|
377
|
0 |
0 |
if $cmd =~ /^\s*(set|unset)/ |
|
387
|
0 |
0 |
if ($output[$i] =~ /^\s*\^-+/) |
|
389
|
0 |
0 |
if ($output[$i] =~ /unknown keyword (\w+)$/) { } |
|
413
|
0 |
0 |
wantarray ? : |
|
418
|
0 |
0 |
unless @_ |
|
434
|
0 |
0 |
if (@_ >= 2) { } |
|
|
0 |
0 |
elsif (@_ == 1) { } |
|
437
|
0 |
0 |
if ($k =~ /^-?[Mm]atch$/ and $v =~ /($promptish)/) |
|
438
|
0 |
0 |
if (my $addme = re_sans_delims($1)) { } |
|
439
|
0 |
0 |
$isa_prompt ? : |
|
447
|
0 |
0 |
if ($_[0] =~ /($promptish)/ and my $addme = re_sans_delims($1)) { } |
|
448
|
0 |
0 |
$isa_prompt ? : |
|
456
|
0 |
0 |
if (index($isa_prompt, $self->prompt) != -1 and my $addme = re_sans_delims($self->prompt)) |
|
465
|
0 |
0 |
if ($isa_prompt and defined $match) |
|
469
|
0 |
0 |
wantarray ? : |
|
496
|
0 |
0 |
if $self->eof |
|
501
|
0 |
0 |
if (@_ == 3) { } |
|
510
|
0 |
0 |
if (/^-?name$/i) { } |
|
|
0 |
0 |
elsif (/^-?pass/i) { } |
|
|
0 |
0 |
elsif (/^-?prompt$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
512
|
0 |
0 |
unless defined $username |
|
517
|
0 |
0 |
unless defined $passwd |
|
522
|
0 |
0 |
unless defined $cmd_prompt |
|
524
|
0 |
0 |
unless $cmd_prompt =~ m[^\s*/] or $cmd_prompt =~ /^\s*m\s*\W/ |
|
539
|
0 |
0 |
unless defined $username and defined $passwd |
|
561
|
0 |
0 |
if ($self->timed_out) { } |
|
|
0 |
0 |
elsif ($self->eof) { } |
|
577
|
0 |
0 |
unless (($prematch, $match) = $self->waitfor(-'match', '/[Ll]ogin[:\\s]*$/', -'match', '/[Uu]sername[:\\s]*$/', -'match', '/[Pp]assword[:\\s]*$/')) |
|
578
|
0 |
0 |
if $self->eof |
|
583
|
0 |
0 |
unless ($match =~ /[Pp]ass/) |
|
585
|
0 |
0 |
unless $self->print($username) |
|
590
|
0 |
0 |
unless ($self->waitfor(-'match', '/[Pp]assword[: ]*$/')) |
|
591
|
0 |
0 |
if $self->eof |
|
598
|
0 |
0 |
unless $self->print($passwd) |
|
606
|
0 |
0 |
unless (($prematch, $match) = $self->waitfor(-'match', '/[Ll]ogin[:\\s]*$/', -'match', '/[Uu]sername[:\\s]*$/', -'match', '/[Pp]assword[:\\s]*$/', -'match', $cmd_prompt)) |
|
607
|
0 |
0 |
if $self->eof |
|
616
|
0 |
0 |
if $match =~ /(?:[Ll]ogin|[Uu]sername|[Pp]assword)[: ]*$/ |
|
620
|
0 |
0 |
if $match =~ /\((\w+)\)/ |
|
636
|
0 |
0 |
if ref $self |