| line |
true |
false |
branch |
|
18
|
108 |
1 |
if ($prefix) |
|
19
|
61 |
47 |
unless ($class =~ s/^\+// or $class =~ /^$prefix/) |
|
36
|
2 |
11 |
if -p $fh or -c _ or -b _ |
|
39
|
2 |
9 |
unless my $reftype = &Scalar::Util::reftype($fh) |
|
40
|
7 |
2 |
if ($reftype eq 'IO' or $reftype eq 'GLOB' and *{$fh;}{'IO'}) { } |
|
50
|
0 |
7 |
unless defined $m_fileno |
|
51
|
3 |
4 |
unless $m_fileno >= 0 |
|
54
|
0 |
4 |
unless defined $f_fileno |
|
55
|
0 |
4 |
unless $f_fileno >= 0 |
|
74
|
0 |
598 |
unless defined $body |
|
76
|
595 |
3 |
if (ref $body eq 'ARRAY') { } |
|
|
2 |
1 |
elsif (&is_real_fh($body)) { } |
|
92
|
701 |
12 |
if (ref $body eq 'ARRAY') { } |
|
94
|
758 |
0 |
if length $line |
|
97
|
12 |
0 |
unless ref $/ |
|
99
|
10 |
0 |
if length $line |
|
135
|
1 |
8 |
$stuff =~ /^[a-zA-Z0-9\_\:]+$/ ? : |
|
137
|
2 |
7 |
if $@ |
|
177
|
2 |
24 |
unless @$headers |
|
181
|
2 |
22 |
if (wantarray) |
|
183
|
3 |
1 |
$key eq lc $$headers[$i++] ? : |
|
188
|
22 |
5 |
if $key eq lc $headers->[$i] |
|
198
|
2 |
28 |
unless @$headers |
|
204
|
8 |
27 |
if $_key eq lc $headers->[$i] |
|
208
|
20 |
8 |
if ($i > $#$headers) |
|
215
|
4 |
4 |
if $i > $#$headers |
|
222
|
5 |
5 |
$_ & 1 ? : |
|
226
|
3 |
1 |
if @keep == $remainder |
|
245
|
89 |
3274 |
if $check = !$check and $key eq lc $_ |
|
254
|
1 |
39 |
unless @$headers |
|
258
|
62 |
62 |
$_ & 1 ? : |
|
261
|
14 |
25 |
if @keep < @$headers |
|
292
|
9 |
751 |
if (defined $filter_cb and ref $filter_cb eq 'CODE') |
|
294
|
2 |
7 |
if (defined $res->[2]) { } |
|
295
|
2 |
0 |
if (ref $res->[2] eq 'ARRAY') { } |
|
301
|
0 |
2 |
if defined $eof |
|
315
|
741 |
21 |
if (ref $res eq 'ARRAY') { } |
|
|
21 |
0 |
elsif (ref $res eq 'CODE') { } |
|
325
|
7 |
12 |
if ($filter_cb) { } |
|
327
|
7 |
0 |
if ($writer) |
|
332
|
0 |
7 |
if defined $chunk |
|
350
|
3 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
358
|
1996 |
1 |
if (ref $self->{$attr} eq 'CODE') { } |
|
372
|
19 |
2 |
if (@_) |