| line |
true |
false |
branch |
|
45
|
2 |
3 |
if (ref_tainted(\$wb)) |
|
67
|
2 |
0 |
if ($$self{'_writebuf'} =~ s/^(.*?)$delim//s) { } |
|
81
|
0 |
1 |
unless my $readh = shift() || 'IO::Handle'->new_from_fd(fileno STDIN, 'r') |
|
83
|
0 |
1 |
unless my $writeh = shift() || shift() || 'IO::Handle'->new_from_fd(fileno STDOUT, 'w') |
|
91
|
0 |
1 |
$$self{'_writebuf'} ? : |
|
|
0 |
0 |
unless my($readable, $writable, undef) = 'IO::Select'->select($readsel, $$self{'_writebuf'} ? $writesel : undef, undef) |
|
93
|
0 |
0 |
if (@$readable) |
|
96
|
0 |
0 |
unless sysread $$readable[0], $readbuf, 8192 |
|
102
|
0 |
0 |
if (@$writable) |
|
104
|
0 |
0 |
unless my $wrote = syswrite($$writable[0], $$self{'_writebuf'}) |