| line |
true |
false |
branch |
|
39
|
1 |
139 |
unless defined $list_context
|
|
51
|
108 |
139 |
unless my $type = ref $_[$i]
|
|
54
|
48 |
91 |
if ($type eq 'HASH') { }
|
|
|
3 |
88 |
elsif ($type eq 'ARRAY') { }
|
|
67
|
0 |
6 |
unless $value
|
|
79
|
6 |
133 |
unless (defined $mode)
|
|
80
|
1 |
0 |
@ARGV ? :
|
|
|
5 |
1 |
defined $default ? :
|
|
86
|
53 |
86 |
if (ref $mode) { }
|
|
|
25 |
61 |
elsif (not $mode =~ /$mode_plus_layers/x) { }
|
|
94
|
1 |
16 |
$source =~ s/ \| \s* $//x ? :
|
|
|
8 |
17 |
$source =~ s/$mode_pat//x ? :
|
|
102
|
89 |
50 |
if ($ref)
|
|
106
|
0 |
43 |
unless $ref eq 'SCALAR' or $ref eq 'GLOB' or eval {
do {
$source->isa('IO::Handle')
}
}
|
|
122
|
30 |
24 |
if (exists $$_{'irs'})
|
|
124
|
24 |
6 |
unless ref $IRS
|
|
130
|
26 |
28 |
if (exists $$_{'chomp'})
|
|
134
|
14 |
12 |
if (defined $$_{'chomp'} and not is_pure_num($$_{'chomp'}))
|
|
152
|
43 |
96 |
if ($ref and $ref ne 'SCALAR') { }
|
|
|
0 |
96 |
elsif (not $source) { }
|
|
159
|
0 |
0 |
unless open $FH, '<-'
|
|
166
|
2 |
94 |
unless open $FH, $mode, $source, @args
|
|
171
|
0 |
137 |
ref $chomp_to eq 'CODE' ? :
|
|
174
|
36 |
101 |
if ($list_context and $optimized)
|
|
179
|
1 |
100 |
refaddr $FH == \*ARGV ? :
|
|
182
|
90 |
5 |
defined $IRS ? :
|
|
|
6 |
95 |
ref $IRS ? :
|
|
187
|
14 |
87 |
if ($list_context) { }
|
|
189
|
0 |
14 |
unless defined $data
|
|
202
|
50 |
6 |
if (defined $sep and length $sep)
|
|
203
|
45 |
5 |
$chomp ? :
|
|
212
|
9 |
78 |
unless defined $data
|
|
215
|
13 |
65 |
if ($chomp)
|