| line |
true |
false |
branch |
|
89
|
0 |
4 |
unless ($fh->print(@_))
|
|
109
|
1 |
2 |
if (defined $thing and not ref $thing) { }
|
|
124
|
0 |
2 |
unless wantarray
|
|
127
|
1 |
1 |
if (ref $thing eq 'ARRAY') { }
|
|
138
|
1 |
1 |
if (ref $thing eq 'ARRAY') { }
|
|
152
|
1 |
13 |
if (ref $fh eq 'GLOB' or ref $fh eq 'IO::Handle') { }
|
|
168
|
26 |
1 |
if (ref $thing) { }
|
|
178
|
14 |
12 |
if (&Scalar::Util::blessed($ref)) { }
|
|
|
8 |
4 |
elsif (ref $ref eq 'GLOB' and *{$ref;}{'IO'}) { }
|
|
|
2 |
2 |
elsif (ref $ref eq 'ARRAY') { }
|
|
|
2 |
0 |
elsif (ref $ref eq 'SCALAR') { }
|
|
|
0 |
0 |
elsif (ref $ref eq 'CODE') { }
|
|
198
|
14 |
0 |
if ($obj->isa('IO::Handle') or $obj->can('getline') and $obj->can('print')) { }
|
|
|
0 |
0 |
elsif ($obj->isa('Path::Class::File')) { }
|
|
223
|
18 |
5 |
if (@array) { }
|
|
245
|
2 |
3 |
if ($thunk)
|
|
250
|
3 |
2 |
if (@lines) { }
|
|
289
|
5 |
0 |
if ($reftype eq 'IO' or $reftype eq 'GLOB' and *{$fh;}{'IO'}) { }
|
|
301
|
2 |
3 |
unless defined $m_fileno
|
|
302
|
2 |
1 |
unless $m_fileno >= 0
|
|
306
|
0 |
1 |
unless defined $f_fileno
|
|
307
|
0 |
1 |
unless $f_fileno >= 0
|