Branch Coverage

blib/lib/IO/Pty.pm
Criterion Covered Total %
branch 13 60 21.6


line true false branch
19 0 22 if ref $class
20 0 22 unless @_ <= 1
24 0 22 unless defined $ptyfd
27 0 22 unless $pty
32 0 22 unless $slave
43 0 2 unless @_ == 1
49 0 5 unless @_ == 1
53 5 0 if (exists do { *$master }->{'io_pty_slave'})
60 0 20 unless @_ == 1
64 18 2 if (exists do { *$master }->{'io_pty_slave'})
71 0 2 if $slave_fd < 0
74 0 2 unless $slave
84 0 0 unless @_ == 1
90 0 0 if (defined 21538)
91 0 0 if (open \*DEVTTY, "/dev/tty")
98 0 0 if (POSIX::setsid() == -1)
99 0 0 if $^W
102 0 0 if (open \*DEVTTY, "/dev/tty")
103 0 0 if $^W
110 0 0 unless $slv->open($ttyname, 2)
113 0 0 if (not exists do { *$self }->{'io_pty_slave'}) { }
121 0 0 unless (open \*DEVTTY, "/dev/tty")
122 0 0 if (defined 21518) { }
0 0 elsif (defined undef) { }
123 0 0 unless (defined ioctl(do { *$self }->{'io_pty_slave'}, 21518, 0))
124 0 0 if $^W
128 0 0 unless (defined ioctl(do { *$self }->{'io_pty_slave'}, undef, 0))
129 0 0 if $^W
133 0 0 if $^W
138 0 0 if (not open(\*DEVTTY, '/dev/tty')) { }