| line |
true |
false |
branch |
|
18
|
5 |
0 |
unless ('IO::String'->isa('IO::Handle')) |
|
27
|
1 |
7 |
if (defined $_[0] and not ref $_[0] and length $_[0]) |
|
32
|
1 |
6 |
if (&Params::Util::_SCALAR0($_[0])) |
|
39
|
5 |
1 |
if (defined fileno $_[0]) |
|
45
|
1 |
0 |
if (&Params::Util::_INSTANCE($_[0], 'IO::Handle')) |
|
48
|
0 |
1 |
unless $iohandle->print('pst0') |
|
49
|
0 |
1 |
unless $iohandle->print($string) |
|
62
|
0 |
7 |
unless &Params::Util::_INSTANCE($self, $class) |
|
71
|
1 |
6 |
if (defined $_[0] and not ref $_[0] and length $_[0]) |
|
76
|
1 |
5 |
if (&Params::Util::_SCALAR0($_[0])) |
|
80
|
1 |
0 |
if (substr($$string, 0, 4) eq 'pst0') |
|
88
|
4 |
1 |
if (defined fileno $_[0]) |
|
93
|
1 |
0 |
if (&Params::Util::_INSTANCE($_[0], 'IO::Handle')) |
|
98
|
1 |
0 |
if (substr($string, 0, 4) eq 'pst0') |