Branch Coverage

blib/lib/IO/Pty.pm
Criterion Covered Total %
branch 13 52 25.0


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)
36 0 22 unless ($slave)
50 0 2 unless @_ == 1
56 0 5 unless @_ == 1
60 5 0 if (exists do { *$master }->{'io_pty_slave'})
67 0 20 unless @_ == 1
71 18 2 if (exists do { *$master }->{'io_pty_slave'})
78 0 2 if $slave_fd < 0
81 0 2 unless ($slave)
94 0 0 unless @_ == 1
100 0 0 if (defined 21538)
101 0 0 if (open \*DEVTTY, "/dev/tty")
108 0 0 if (POSIX::setsid() == -1)
112 0 0 if (open \*DEVTTY, "/dev/tty")
122 0 0 if $slave_fd < 0
124 0 0 unless $slv
127 0 0 if (not exists do { *$self }->{'io_pty_slave'}) { }
135 0 0 unless (open \*DEVTTY, "/dev/tty")
136 0 0 if (defined 21518) { }
0 0 elsif (defined undef) { }
137 0 0 unless (defined ioctl(do { *$self }->{'io_pty_slave'}, 21518, 0))
142 0 0 unless (defined ioctl(do { *$self }->{'io_pty_slave'}, undef, 0))
152 0 0 if (not open(\*DEVTTY, '/dev/tty')) { }