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
52 0 3 unless @_ == 1
56 3 0 if (exists do { *$master }->{'io_pty_slave'})
63 0 2 unless @_ == 1
67 2 0 if (exists do { *$master }->{'io_pty_slave'})
75 0 0 unless $slave->open($tty, 258)
82 0 0 unless @_ == 1
88 0 0 if (defined 21538)
89 0 0 if (open \*DEVTTY, '/dev/tty')
96 0 0 if (POSIX::setsid() == -1)
97 0 0 if $^W
100 0 0 if (open \*DEVTTY, '/dev/tty')
101 0 0 if $^W
108 0 0 unless $slv->open($ttyname, 2)
111 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
124 0 0 unless (defined ioctl(do { *$self }->{'io_pty_slave'}, undef, 0))
125 0 0 if $^W
128 0 0 if $^W
133 0 0 if (not open(\*DEVTTY, '/dev/tty')) { }