Branch Coverage

blib/lib/IO/Stty.pm
Criterion Covered Total %
branch 56 274 20.4


line true false branch
20 24 128 unless $val and ref $val eq "CODE"
22 128 0 if (defined $val)
382 2 22 if ($val eq "undef" or $val eq "^-")
387 8 14 if ($val =~ /^\^(.)$/)
389 1 7 if ($ch eq "?")
396 6 8 if ($val =~ /^0x([0-9a-fA-F]+)$/)
401 4 4 if ($val =~ /^0(\d+)$/)
406 4 0 if ($val =~ /^\d+$/)
411 0 0 if (length $val == 1)
436 0 0 unless @_
443 0 0 unless isatty($file_num)
448 0 0 unless $termios->getattr($file_num)
472 0 0 if (@_ == 1) { }
476 0 0 if ($_[0] =~ /^(-v|--version|version)$/) { }
0 0 elsif ($_[0] =~ /^\d+$/) { }
0 0 elsif ($_[0] eq '-a') { }
0 0 elsif ($_[0] eq '-g') { }
514 0 0 if (@g_params == 17) { }
549 0 0 if ($_ eq "ek")
553 0 0 if ($_ eq "sane")
565 0 0 if ($_ eq "cooked" or $_ eq "-raw")
576 0 0 if ($_ eq "raw" or $_ eq "-cooked")
584 0 0 if ($_ eq "pass8")
588 0 0 if ($_ eq "-pass8")
592 0 0 if ($_ eq "crt")
596 0 0 if ($_ eq "dec")
604 0 0 if s/^\-//
609 0 0 if ($_ eq "intr")
610 0 0 if ($_ eq "quit")
611 0 0 if ($_ eq "erase")
612 0 0 if ($_ eq "kill")
613 0 0 if ($_ eq "eof")
614 0 0 if ($_ eq "eol")
615 0 0 if ($_ eq "start")
616 0 0 if ($_ eq "stop")
617 0 0 if ($_ eq "susp")
618 0 0 if ($_ eq "min")
619 0 0 if ($_ eq "time")
622 0 0 $set_value ? :
0 0 if ($_ eq "clocal")
623 0 0 $set_value ? :
0 0 if ($_ eq "cread")
627 0 0 if ($_ eq "cs5")
628 0 0 if ($_ eq "cs6")
629 0 0 if ($_ eq "cs7")
630 0 0 if ($_ eq "cs8")
631 0 0 $set_value ? :
0 0 if ($_ eq "cstopb")
632 0 0 $set_value ? :
0 0 if ($_ eq "hupcl" or $_ eq "hup")
633 0 0 $set_value ? :
0 0 if ($_ eq "parenb")
634 0 0 $set_value ? :
0 0 if ($_ eq "parodd")
637 0 0 $set_value ? :
0 0 if ($_ eq "brkint")
638 0 0 $set_value ? :
0 0 if ($_ eq "icrnl")
639 0 0 $set_value ? :
0 0 if ($_ eq "ignbrk")
640 0 0 $set_value ? :
0 0 if ($_ eq "igncr")
641 0 0 $set_value ? :
0 0 if ($_ eq "ignpar")
642 0 0 $set_value ? :
0 0 if ($_ eq "inlcr")
643 0 0 $set_value ? :
0 0 if ($_ eq "inpck")
644 0 0 $set_value ? :
0 0 if ($_ eq "istrip")
645 0 0 $set_value ? :
0 0 if ($_ eq "ixoff")
646 0 0 $set_value ? :
0 0 if ($_ eq "ixon")
647 0 0 $set_value ? :
0 0 if ($_ eq "parmrk")
651 0 0 $set_value ? :
0 0 if ($_ eq "echo")
652 0 0 $set_value ? :
0 0 if ($_ eq "echoe")
653 0 0 $set_value ? :
0 0 if ($_ eq "echok")
654 0 0 $set_value ? :
0 0 if ($_ eq "echonl")
655 0 0 $set_value ? :
0 0 if ($_ eq "icanon")
656 0 0 $set_value ? :
0 0 if ($_ eq "iexten")
657 0 0 $set_value ? :
0 0 if ($_ eq "isig")
658 0 0 $set_value ? :
0 0 if ($_ eq "noflsh")
659 0 0 $set_value ? :
0 0 if ($_ eq "tostop")
663 0 0 $set_value ? :
0 0 if ($_ eq "opost")
666 0 0 if ($_ eq "ospeed")
668 0 0 unless exists $BAUD_RATES{$rate}
669 0 0 if exists $BAUD_RATES{$rate}
672 0 0 if ($_ eq "ispeed")
674 0 0 unless exists $BAUD_RATES{$rate}
675 0 0 if exists $BAUD_RATES{$rate}
714 23 178 if not defined $val or $val == 0 or $val == 255
715 22 156 if $val == 127
716 154 2 if $val >= 0 and $val < 32
730 20 1 if (exists $BAUD_SPEEDS{$ospeed}) { }
737 2 19 if ($ispeed != $ospeed)
739 1 1 if (exists $BAUD_SPEEDS{$ispeed}) { }
752 0 21 $c_cflag & 2048 ? :
753 0 21 $c_cflag & 128 ? :
754 0 21 $c_cflag & 64 ? :
755 0 21 $c_cflag & 1024 ? :
756 0 21 $c_cflag & 256 ? :
757 0 21 $c_cflag & 512 ? :
760 5 16 if ($c_cflag == 48) { }
0 16 elsif ($c_cflag == 32) { }
0 16 elsif ($c_cflag == 16) { }
774 0 21 $c_lflag & 8 ? :
775 0 21 $c_lflag & 16 ? :
776 0 21 $c_lflag & 32 ? :
777 0 21 $c_lflag & 64 ? :
778 0 21 $c_lflag & 2 ? :
779 0 21 $c_lflag & 1 ? :
780 0 21 $c_lflag & 128 ? :
781 0 21 $c_lflag & 256 ? :
782 0 21 $c_lflag & 32768 ? :
785 0 21 $c_oflag & 1 ? :
788 0 21 $c_iflag & 2 ? :
789 0 21 $c_iflag & 1 ? :
790 0 21 $c_iflag & 4 ? :
791 0 21 $c_iflag & 8 ? :
792 0 21 $c_iflag & 16 ? :
793 0 21 $c_iflag & 32 ? :
794 0 21 $c_iflag & 64 ? :
795 0 21 $c_iflag & 256 ? :
796 0 21 $c_iflag & 1024 ? :
797 0 21 $c_iflag & 4096 ? :