| line |
true |
false |
branch |
|
386
|
4 |
0 |
if (defined $possoptions{uc $opt} or defined($opt = $optposs{$opt})) |
|
390
|
4 |
20 |
if (exists $opts{$orgopt}{$opttype}) |
|
397
|
1 |
3 |
if $active |
|
409
|
0 |
1 |
@opts == 1 ? : |
|
412
|
1 |
0 |
if (defined $possoptions{uc $opt} or defined($opt = $optposs{$opt})) |
|
428
|
0 |
0 |
@opts == 1 ? : |
|
431
|
0 |
0 |
if (defined $possoptions{uc $opt} or defined($opt = $optposs{$opt})) |
|
447
|
0 |
1 |
@opts == 1 ? : |
|
450
|
1 |
0 |
if (defined $possoptions{uc $opt} or defined($opt = $optposs{$opt})) |
|
467
|
0 |
0 |
@opts == 1 ? : |
|
470
|
0 |
0 |
if (defined $possoptions{uc $opt} or defined($opt = $optposs{$opt})) |
|
486
|
1 |
0 |
if (defined $possoptions{uc $opt} or defined($opt = $optposs{$opt})) |
|
488
|
1 |
0 |
if (exists $$mod{'telnetopts'}{uc $opt}) |
|
505
|
1 |
0 |
if ($$mod{'telnetopts'}{$opt}{'ACTIVE'}) |
|
507
|
1 |
0 |
if ($$mod{'telnetopts'}{$opt}{'WILL'}) { } |
|
|
0 |
0 |
elsif ($$mod{'telnetopts'}{$opt}{'DO'}) { } |
|
525
|
0 |
1 |
unless $possoptions{uc $opt} |
|
526
|
0 |
1 |
unless $opt |
|
528
|
1 |
0 |
if (exists $$mod{'telnetopts'}{uc $opt}) |
|
555
|
1 |
6 |
unless (length $nextchar) |
|
561
|
2 |
4 |
if ($nextchar eq $chIAC) { } |
|
|
2 |
2 |
elsif ($nextchar eq $chDONT or $nextchar eq $chDO or $nextchar eq $chWONT or $nextchar eq $chWILL) { } |
|
|
2 |
0 |
elsif ($nextchar eq $chSB) { } |
|
570
|
0 |
2 |
unless (length $option) |
|
584
|
0 |
2 |
if ($endpos == -1) |
|
606
|
0 |
0 |
if ($commposs{ord $nextchar} and $$mod{'telnetopts'}{$commposs{ord $nextchar}} and my $coderef = $$mod{'telnetopts'}{$commposs{ord $nextchar}}{'RAW'}) |
|
627
|
1 |
1 |
if ($opt_req eq $chDO) { } |
|
|
1 |
0 |
elsif ($opt_req eq $chWILL) { } |
|
|
0 |
0 |
elsif ($opt_req eq $chWONT) { } |
|
|
0 |
0 |
elsif ($opt_req eq $chDONT) { } |
|
630
|
1 |
0 |
if (exists $$mod{'telnetopts'}{$optposs{$opt}} and $$mod{'telnetopts'}{$optposs{$opt}}{'DO'}) { } |
|
633
|
1 |
0 |
if ($$mod{'telnetopts'}{$optposs{$opt}}{'STATUS_ME'} ne 'ASKING') |
|
640
|
0 |
1 |
if defined $res |
|
650
|
1 |
0 |
if (exists $$mod{'telnetopts'}{$optposs{$opt}} and $$mod{'telnetopts'}{$optposs{$opt}}{'WILL'}) { } |
|
653
|
0 |
1 |
if ($$mod{'telnetopts'}{$optposs{$opt}}{'STATUS_YOU'} ne 'ASKING') |
|
660
|
0 |
1 |
if defined $res |
|
670
|
0 |
0 |
if (exists $$mod{'telnetopts'}{$optposs{$opt}} and $$mod{'telnetopts'}{$optposs{$opt}}{'WONT'}) { } |
|
673
|
0 |
0 |
if ($$mod{'telnetopts'}{$optposs{$opt}}{'STATUS_YOU'} eq 'ASKING') |
|
680
|
0 |
0 |
if defined $res |
|
690
|
0 |
0 |
if (exists $$mod{'telnetopts'}{$optposs{$opt}} and $$mod{'telnetopts'}{$optposs{$opt}}{'DONT'}) { } |
|
693
|
0 |
0 |
if ($$mod{'telnetopts'}{$optposs{$opt}}{'STATUS_ME'} eq 'ASKING') |
|
700
|
0 |
0 |
if defined $res |
|
721
|
0 |
2 |
unless exists $$mod{'telnetopts'}{$optposs{ord $option}} |
|
723
|
2 |
0 |
if ($$mod{'telnetopts'}{$optposs{ord $option}}{'STATUS_ME'} eq 'WILL' or $$mod{'telnetopts'}{$optposs{ord $option}}{'STATUS_YOU'} eq 'WILL') |
|
727
|
0 |
2 |
unless $coderef |
|
728
|
1 |
1 |
if (substr($cmd, 1, 1) eq $chSEND) { } |
|
|
1 |
0 |
elsif (substr($cmd, 1, 1) eq $chIS) { } |
|
731
|
0 |
1 |
if defined $res |
|
736
|
0 |
1 |
if defined $res |
|
741
|
0 |
0 |
if defined $res |
|
757
|
2 |
0 |
if (defined $possoptions{uc $opt} or $opt = $optposs{$opt}) |
|
761
|
0 |
2 |
if ($req eq 'WILL') |
|
763
|
0 |
0 |
if ($$mod{'telnetopts'}{$opt}{'STATUS_ME'} eq 'ASKING' or $$mod{'telnetopts'}{$opt}{'STATUS_ME'} eq 'WILL') |
|
772
|
0 |
2 |
if ($req eq 'WONT') |
|
774
|
0 |
0 |
if ($$mod{'telnetopts'}{$opt}{'STATUS_ME'} ne 'WILL' and $$mod{'telnetopts'}{$opt}{'STATUS_ME'} ne 'ASKING') |
|
783
|
1 |
1 |
if ($req eq 'DO') |
|
785
|
0 |
1 |
if ($$mod{'telnetopts'}{$opt}{'STATUS_YOU'} eq 'WILL' or $$mod{'telnetopts'}{$opt}{'STATUS_YOU'} eq 'ASKING') |
|
794
|
0 |
2 |
if ($req eq 'DONT') |
|
796
|
0 |
0 |
if ($$mod{'telnetopts'}{$opt}{'STATUS_YOU'} ne 'WILL' and $$mod{'telnetopts'}{$opt}{'STATUS_YOU'} ne 'ASKING') |
|
805
|
1 |
1 |
if ($req eq 'SB') |
|
808
|
0 |
1 |
if ($$mod{'telnetopts'}{$opt}{'STATUS_YOU'} eq 'WILL' and $subopt1 eq 'SEND') { } |
|
|
1 |
0 |
elsif ($$mod{'telnetopts'}{$opt}{'STATUS_ME'} eq 'WILL' and $subopt1 eq 'IS') { } |
|
|
0 |
0 |
elsif ($$mod{'telnetopts'}{$opt} and $$mod{'telnetopts'}{$opt}{'STATUS_YOU'} eq 'WILL' || $$mod{'telnetopts'}{$opt}{'STATUS_ME'} eq 'WILL') { } |
|
845
|
0 |
13 |
if $DEBUG |