Branch Coverage

blib/lib/IO/Stty.pm
Criterion Covered Total %
branch 51 270 18.8


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)$/) { }
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 19 146 if not defined $val or $val == 0 or $val == 255
715 18 128 if $val == 127
716 126 2 if $val >= 0 and $val < 32
730 17 0 if (exists $BAUD_SPEEDS{$ospeed})
738 0 17 $c_cflag & 2048 ? :
739 0 17 $c_cflag & 128 ? :
740 0 17 $c_cflag & 64 ? :
741 0 17 $c_cflag & 1024 ? :
742 0 17 $c_cflag & 256 ? :
743 0 17 $c_cflag & 512 ? :
746 1 16 if ($c_cflag == 48) { }
0 16 elsif ($c_cflag == 32) { }
0 16 elsif ($c_cflag == 16) { }
760 0 17 $c_lflag & 8 ? :
761 0 17 $c_lflag & 16 ? :
762 0 17 $c_lflag & 32 ? :
763 0 17 $c_lflag & 64 ? :
764 0 17 $c_lflag & 2 ? :
765 0 17 $c_lflag & 1 ? :
766 0 17 $c_lflag & 128 ? :
767 0 17 $c_lflag & 256 ? :
768 0 17 $c_lflag & 32768 ? :
771 0 17 $c_oflag & 1 ? :
774 0 17 $c_iflag & 2 ? :
775 0 17 $c_iflag & 1 ? :
776 0 17 $c_iflag & 4 ? :
777 0 17 $c_iflag & 8 ? :
778 0 17 $c_iflag & 16 ? :
779 0 17 $c_iflag & 32 ? :
780 0 17 $c_iflag & 64 ? :
781 0 17 $c_iflag & 256 ? :
782 0 17 $c_iflag & 1024 ? :
783 0 17 $c_iflag & 4096 ? :