Branch Coverage

blib/lib/IO/Pty.pm
Criterion Covered Total %
branch 9 58 15.5


line true false branch
21 0 6 if ref $class
22 0 6 unless @_ <= 1
26 0 6 unless defined $ptyfd
29 0 6 unless $pty
34 0 6 unless $slave
45 0 0 unless @_ == 1
51 0 3 unless @_ == 1
55 3 0 if (exists do { *$master }->{'io_pty_slave'})
62 0 2 unless @_ == 1
66 2 0 if (exists do { *$master }->{'io_pty_slave'})
74 0 0 unless $slave->open($tty, 258)
81 0 0 unless @_ == 1
87 0 0 if (defined 21538)
88 0 0 if (open \*DEVTTY, "/dev/tty")
95 0 0 if (POSIX::setsid() == -1)
96 0 0 if $^W
99 0 0 if (open \*DEVTTY, "/dev/tty")
100 0 0 if $^W
107 0 0 unless $slv->open($ttyname, 2)
110 0 0 if (not exists do { *$self }->{'io_pty_slave'}) { }
118 0 0 unless (open \*DEVTTY, "/dev/tty")
119 0 0 if (defined 21518) { }
0 0 elsif (defined undef) { }
120 0 0 unless (defined ioctl(do { *$self }->{'io_pty_slave'}, 21518, 0))
121 0 0 if $^W
125 0 0 unless (defined ioctl(do { *$self }->{'io_pty_slave'}, undef, 0))
126 0 0 if $^W
130 0 0 if $^W
135 0 0 if (not open(\*DEVTTY, '/dev/tty')) { }