| line |
true |
false |
branch |
|
23
|
0 |
145 |
if $Debug |
|
33
|
1 |
2 |
if (/^-tie$/) |
|
38
|
0 |
2 |
if (/^-debug$/) |
|
47
|
2 |
0 |
if (not /^_/ and /[^[:upper:]]/ and exists &{"${from}::$_";}) |
|
55
|
0 |
3 |
if (@carp) |
|
68
|
14 |
22 |
unless openhandle $fh |
|
70
|
0 |
22 |
unless _check_fh $fh |
|
81
|
14 |
18 |
unless my $fh = _get_fh(shift()) |
|
83
|
16 |
2 |
@_ ? : |
|
84
|
2 |
16 |
unless length $str |
|
88
|
8 |
8 |
if ($USE_PERLIO) { } |
|
98
|
0 |
16 |
if ($@) |
|
99
|
0 |
0 |
if warnings::enabled('io') |
|
102
|
0 |
16 |
unless defined $rv |
|
103
|
0 |
16 |
unless $rv |
|
108
|
0 |
4 |
unless my $fh = _get_fh(shift()) |
|
110
|
3 |
1 |
@_ ? : |
|
111
|
1 |
3 |
unless length $str |
|
114
|
0 |
3 |
unless defined $rv |
|
130
|
0 |
8 |
if $handle eq 'RETIE' |
|
131
|
0 |
8 |
unless length $data |
|
154
|
0 |
0 |
unless (length $$s{'data'}) |
|
157
|
0 |
0 |
if defined $rv |
|
171
|
0 |
8 |
unless (defined $/) |
|
176
|
0 |
8 |
if ($/ eq '') { } |
|
178
|
0 |
0 |
$rv ? : |
|
182
|
0 |
8 |
$rv ? : |
|
185
|
0 |
8 |
defined $rv ? : |
|
187
|
8 |
0 |
unless (defined $rv) |
|
192
|
8 |
0 |
if ($$s{'data'} eq '') |
|
196
|
0 |
8 |
if ($/ eq '') |
|
202
|
8 |
0 |
unless $done |