line |
true |
false |
branch |
39
|
0 |
0 |
unless grep /^-?prompt$/i, @_ |
44
|
0 |
0 |
unless $self = $class->SUPER::new(@_) |
71
|
0 |
0 |
if (@_ == 2) { } |
|
0 |
0 |
elsif (@_ > 2) { } |
79
|
0 |
0 |
if /^-?errmode$/i |
85
|
0 |
0 |
if (/^-?always_waitfor_prompt$/i) { } |
|
0 |
0 |
elsif (/^-?waitfor_pause$/i) { } |
|
0 |
0 |
elsif (/^-?more_prompt$/i) { } |
|
0 |
0 |
elsif (/^-?autopage$/i) { } |
|
0 |
0 |
elsif (/^-?normalize_cmd$/i) { } |
|
0 |
0 |
elsif (/^-?send_wakeup$/i) { } |
127
|
0 |
0 |
if (@_ == 2) { } |
|
0 |
0 |
elsif (@_ > 2) { } |
128
|
0 |
0 |
unless defined $prompt |
160
|
0 |
0 |
if (@_ == 1) { } |
|
0 |
0 |
elsif (@_ >= 2) { } |
165
|
0 |
0 |
if $k =~ /^-?[Ss]tring$/ |
166
|
0 |
0 |
if $k =~ /^-?[Nn]ormalize_cmd$/ |
177
|
0 |
0 |
if ($need_more) { } |
187
|
0 |
0 |
if ($self->normalize_cmd) { } |
203
|
0 |
0 |
if (substr($out[$i], 0, 1) eq '%') |
204
|
0 |
0 |
if ($out[$i] =~ /'\^' marker/) { } |
232
|
0 |
0 |
if ($self->autopage and $self->last_prompt =~ /$more_re/) { } |
239
|
0 |
0 |
wantarray ? : |
247
|
0 |
0 |
unless @_ |
262
|
0 |
0 |
if (@_ >= 2) { } |
|
0 |
0 |
elsif (@_ == 1) { } |
265
|
0 |
0 |
if ($k =~ /^-?[Ss]tring$/) { } |
|
0 |
0 |
elsif ($k =~ /^-?[Mm]atch$/) { } |
283
|
0 |
0 |
if ($self->always_waitfor_prompt and index($all_re, $prompt_re) == -1) |
284
|
0 |
0 |
if @_ == 1 |
293
|
0 |
0 |
if ($self->autopage and index($all_re, $more_re) == -1) |
294
|
0 |
0 |
if @_ == 1 |
301
|
0 |
0 |
unless $all_prompts or @literals |
311
|
0 |
0 |
if ($match) |
313
|
0 |
0 |
if (index $match, $_) |
314
|
0 |
0 |
wantarray ? : |
318
|
0 |
0 |
if ($match =~ /($all_re)/m) |
320
|
0 |
0 |
wantarray ? : |
323
|
0 |
0 |
wantarray ? : |
351
|
0 |
0 |
if $self->eof |
355
|
0 |
0 |
if $Net::Telnet::Cisco::DEBUG |
360
|
0 |
0 |
if (@_ == 3) { } |
369
|
0 |
0 |
if (/^-?name$/i) { } |
|
0 |
0 |
elsif (/^-?passw/i) { } |
|
0 |
0 |
elsif (/^-?passcode/i) { } |
|
0 |
0 |
elsif (/^-?prompt$/i) { } |
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
387
|
0 |
0 |
if $Net::Telnet::Cisco::DEBUG |
408
|
0 |
0 |
if ($self->timed_out) { } |
|
0 |
0 |
elsif ($self->eof) { } |
420
|
0 |
0 |
if ($self->send_wakeup eq 'connect') |
439
|
0 |
0 |
unless ($_) |
440
|
0 |
0 |
if $self->eof |
444
|
0 |
0 |
if ($sent_wakeup == 0 and $self->send_wakeup eq 'timeout') |
462
|
0 |
0 |
if (not defined $_) { } |
|
0 |
0 |
elsif (/sername|ogin/) { } |
|
0 |
0 |
elsif (/[Pp]assw/) { } |
|
0 |
0 |
elsif (/(?i:Passcode)/) { } |
|
0 |
0 |
elsif (/($cmd_prompt_re)/) { } |
465
|
0 |
0 |
unless $self->print($username) |
466
|
0 |
0 |
if $seen{'login'}++ |
468
|
0 |
0 |
unless $self->print($password) |
469
|
0 |
0 |
if $seen{'passwd'}++ |
471
|
0 |
0 |
unless $self->print($passcode) |
472
|
0 |
0 |
if $seen{'passcode'}++ |
490
|
0 |
0 |
if ($self->ignore_warnings) |
493
|
0 |
0 |
if $errmsg =~ /$warnings_re/ |
508
|
0 |
0 |
if (@_ == 1) { } |
514
|
0 |
0 |
if (/^-?name$|^-?login$|^-?user/i) { } |
|
0 |
0 |
elsif (/^-?passw/i) { } |
|
0 |
0 |
elsif (/^-?passc/i) { } |
|
0 |
0 |
elsif (/^-?level$/i) { } |
532
|
0 |
0 |
if ($self->timed_out) { } |
|
0 |
0 |
elsif ($self->eof) { } |
559
|
0 |
0 |
unless (my($prematch, $match) = $self->waitfor(-'match', '/[Ll]ogin[:\\s]*$/', -'match', '/[Uu]sername[:\\s]*$/', -'match', '/[Pp]assw(?:or)?d[:\\s]*$/', -'match', '/(?i:Passcode)[:\\s]*$/', -'match', "/$old_prompt/")) |
560
|
0 |
0 |
if $self->eof |
565
|
0 |
0 |
if (not defined $match) { } |
|
0 |
0 |
elsif ($match =~ /sername|ogin/) { } |
|
0 |
0 |
elsif ($match =~ /[Pp]assw/) { } |
|
0 |
0 |
elsif ($match =~ /(?i:Passcode)/) { } |
|
0 |
0 |
elsif ($match =~ /$old_prompt/) { } |
568
|
0 |
0 |
unless $self->print($en_username) |
569
|
0 |
0 |
if $seen{'login'}++ |
573
|
0 |
0 |
unless $self->print($en_password) |
574
|
0 |
0 |
if $seen{'passwd'}++ |
578
|
0 |
0 |
unless $self->print($en_passcode) |
579
|
0 |
0 |
if $seen{'passcode'}++ |
590
|
0 |
0 |
if (not defined $en_level or $en_level =~ /^[1-9]/) { } |
592
|
0 |
0 |
$self->is_enabled ? : |
603
|
0 |
0 |
$self->is_enabled ? : |
622
|
0 |
0 |
exists $$stream{'last_prompt'} ? : |
629
|
0 |
0 |
exists $$stream{'last_cmd'} ? : |
637
|
0 |
0 |
$_[0]->last_prompt =~ /\#|enable|config/ ? : |
643
|
0 |
0 |
if defined $arg |
651
|
0 |
0 |
if defined $arg |
659
|
0 |
0 |
if defined $arg |
667
|
0 |
0 |
if defined $arg |
675
|
0 |
0 |
if defined $arg |
683
|
0 |
0 |
if defined $arg |
691
|
0 |
0 |
if (defined $arg) |
702
|
0 |
0 |
unless @_ |
705
|
0 |
0 |
if $Net::Telnet::Cisco::DEBUG |
707
|
0 |
0 |
if ($orig) |
708
|
0 |
0 |
if ($self->_match_check($orig)) |
710
|
0 |
0 |
unless $orig |
715
|
0 |
0 |
if $Net::Telnet::Cisco::DEBUG |
716
|
0 |
0 |
if ($self->_match_check($_)) |
719
|
0 |
0 |
unless ($re) |
724
|
0 |
0 |
$orig ? : |
728
|
0 |
0 |
if $Net::Telnet::Cisco::DEBUG |
736
|
0 |
0 |
unless $str |
756
|
0 |
0 |
wantarray ? : |
762
|
0 |
0 |
unless $code |
767
|
0 |
0 |
if $Net::Telnet::Cisco::DEBUG |
777
|
0 |
0 |
if ($@) { } |
|
0 |
0 |
elsif (@warns) { } |
801
|
0 |
0 |
if ref $self |