| line |
true |
false |
branch |
|
72
|
0 |
6 |
if (@_ == 1) { } |
|
85
|
6 |
0 |
if ref $self |
|
87
|
0 |
6 |
defined $decode ? : |
|
423
|
0 |
42 |
unless my($method) = our $AUTOLOAD =~ /^.*::(\w+)$/ |
|
426
|
0 |
42 |
if (exists $ALIASES{$method}) |
|
431
|
0 |
42 |
if (exists $COMMANDS{$method}) |
|
437
|
0 |
0 |
if @_ == 1 |
|
441
|
42 |
0 |
if (exists $ACCESS{$method}) |
|
444
|
24 |
18 |
if @_ |
|
465
|
0 |
0 |
unless ($self->SUPER::open(@_)) |
|
471
|
0 |
0 |
unless ($self->waitfor(-'match', '/password: ?$/i', -'errmode', 'return')) |
|
503
|
0 |
0 |
unless ($self->is_connected) |
|
504
|
0 |
0 |
unless $self->open |
|
510
|
0 |
0 |
unless ($self->waitfor(-'match', $self->prompt, -'errmode', 'return')) |
|
539
|
6 |
0 |
if (@_) |
|
610
|
0 |
0 |
unless (defined $new_pass) |
|
642
|
0 |
0 |
if (@_ == 3) |
|
651
|
0 |
0 |
if ($line =~ s/New \s configuration:\s+//msx) |
|
681
|
0 |
0 |
if ($suid =~ /\D/) |
|
685
|
0 |
0 |
unless ($new_ip) |
|
689
|
0 |
0 |
unless ($new_subnet) |
|
693
|
0 |
0 |
unless ($new_gateway) |
|
726
|
0 |
0 |
unless @{$lines;} |
|
729
|
0 |
0 |
unless $$s{'Decode'} |
|
733
|
0 |
0 |
unless $_ |
|
734
|
0 |
0 |
if (/^
\[(\d+)\]
\s+
[[:xdigit:]]{2}
([[:xdigit:]])
([[:xdigit:]])
\s+
(\d+)
\s+
(\d+)
\s+
([[:xdigit:]\s]+)
$/imsx) |
|
749
|
0 |
0 |
$2 ? : |
|
|
0 |
0 |
$3 == 5 ? : |
|
|
0 |
0 |
$3 == 1 ? : |
|
797
|
0 |
0 |
if ($suid =~ /\D/) |
|
802
|
0 |
0 |
unless (lc $type eq 'reg' or lc $type eq 'pr') |
|
807
|
0 |
0 |
if ($cir =~ /\D/) |
|
812
|
0 |
0 |
if ($mir =~ /\D/) |
|
819
|
0 |
0 |
unless (length $new_mac == 12) |
|
859
|
0 |
0 |
if ($suid =~ /\D/) |
|
892
|
0 |
0 |
if ($suid =~ /\D/) |
|
897
|
0 |
0 |
if (lc $opt eq 'cir' or lc $opt eq 'mir') { } |
|
|
0 |
0 |
elsif (lc $opt eq 'su2su') { } |
|
898
|
0 |
0 |
if ($value =~ /\D/) |
|
904
|
0 |
0 |
if ($value =~ /[^0-9A-Za-f]/) |
|
932
|
0 |
0 |
if (ref $vals eq 'HASH' and $$vals{'Tftpd'} eq 'listen') { } |
|
953
|
0 |
0 |
if (ref $vals eq 'HASH' and $$vals{'Tftpd'} eq 'disabled') { } |
|
1019
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_ > 1) { } |
|
1028
|
0 |
0 |
unless ($cfg{'String'}) |
|
1033
|
0 |
0 |
unless ($self->is_connected) |
|
1038
|
0 |
0 |
unless ($self->logged_in) |
|
1045
|
0 |
0 |
if (exists $cfg{$_}) |
|
1049
|
0 |
0 |
if ($cfg{'args'}) |
|
1055
|
0 |
0 |
if ($cfg{'no_prompt'}) { } |
|
1076
|
0 |
0 |
if ($$s{'Decode'} and $cfg{'decode'}) |
|
1077
|
0 |
0 |
if ($cfg{'decode'} eq 'each') { } |
|
|
0 |
0 |
elsif ($cfg{'decode'} eq 'sulog') { } |
|
|
0 |
0 |
elsif ($cfg{'decode'} eq 'maclist') { } |
|
|
0 |
0 |
elsif ($cfg{'decode'} eq 'linktest') { } |
|
|
0 |
0 |
elsif ($cfg{'decode'} eq 'freq') { } |
|
1085
|
0 |
0 |
unless ($vals) |
|
1091
|
0 |
0 |
unless ($vals) |
|
1102
|
0 |
0 |
if (ref $vals eq 'HASH') |
|
1107
|
0 |
0 |
if (not $cfg{'expect'} or $last =~ /$cfg{'expect'}$/) { } |
|
1108
|
0 |
0 |
if ($cfg{'cmd_disconnects'}) |
|
1114
|
0 |
0 |
if ($$s{'Decode'} and $cfg{'decode'}) { } |
|
1123
|
0 |
0 |
if (grep {/\[ERR\]/;} @lines) |
|
1127
|
0 |
0 |
if (ref $err eq 'HASH' and $$err{'ERR'}) { } |
|
1151
|
0 |
20 |
if $line =~ /$success\Z/ |
|
1152
|
0 |
20 |
if $line =~ /^ \*+ \s+ \d+ \s+ \*+ \Z/msx |
|
1155
|
0 |
20 |
if ($line =~ /^(.* Channel \s+ Table):\s*(.*)\Z/msx) { } |
|
|
0 |
20 |
elsif ($line =~ /^
RF \s Band \s \#
(\d+) \s+
\( ([^\)]+) \) \s*
(.*)$
/msx) { } |
|
1161
|
0 |
0 |
if ($line =~ /^\Z/) |
|
1168
|
0 |
0 |
if ($decoded) |
|
1188
|
0 |
0 |
if ($extra =~ /\[/) { } |
|
1203
|
63 |
592 |
if ($c eq '[' or $c eq "\r" or $c eq "\n") { } |
|
|
43 |
549 |
elsif ($c eq ']') { } |
|
|
348 |
201 |
elsif ($in_key) { } |
|
|
201 |
0 |
elsif ($in_val) { } |
|
1204
|
43 |
20 |
if ($c eq '[') { } |
|
1213
|
43 |
20 |
if ($key) { } |
|
|
0 |
20 |
elsif ($val) { } |
|
1217
|
38 |
5 |
if ($val) |
|
1222
|
0 |
43 |
if ($key eq 'Checksum' and $last_key) |
|
1256
|
20 |
0 |
unless ($key) |
|
1261
|
0 |
20 |
if (defined $val and length $val) |
|
1267
|
20 |
0 |
if (@vals == 1) { } |
|
|
0 |
0 |
elsif (@vals) { } |
|
1277
|
15 |
5 |
if (%conf) { } |
|
1278
|
0 |
15 |
if $val |
|
1293
|
0 |
0 |
if defined $decoded and length $decoded |
|
1305
|
5 |
15 |
if ($line =~ s/^(\d+) \s+ //msx) { } |
|
1308
|
5 |
0 |
if ($line =~ s/\s+ (\d+ \s+ \w+) \s* $//msx) |
|
1311
|
5 |
0 |
if ($line =~ s/\s+ (\d+ \s+ \w+) \s* $//msx) |
|
1323
|
10 |
5 |
if ($d) |
|
1343
|
0 |
0 |
if (defined $decoded) |
|
1344
|
0 |
0 |
if ($$decoded{'tm'}) { } |
|
1351
|
0 |
0 |
unless $last_tm |
|
1353
|
0 |
0 |
if defined $decoded |
|
1375
|
0 |
0 |
if ($mac) { } |
|
|
0 |
0 |
elsif ($line =~ /(\d+)\s+entries/) { } |
|
|
0 |
0 |
elsif ($line =~ /current tm = (\d+)\s+sec/) { } |
|
1381
|
0 |
0 |
if ($loc =~ /suid\s+=\s+(\d+)/) |
|
1404
|
0 |
0 |
if (scalar @decoded == $total_entries) { } |
|
1418
|
0 |
0 |
if ($decoded and $$decoded{'ERR'}) |
|
1423
|
0 |
0 |
if (my($channel, $polarity, $freq) = $line =~ /
Ch \s+ \#(\d+)
\s+
(\w+)
\s+
\[ (\d+) \s+ MHz\]
/imsx) |