| line |
true |
false |
branch |
|
181
|
10 |
1 |
unless exists $$arg{'inherit'}
|
|
183
|
1 |
10 |
defined $$arg{'encoding'} ? :
|
|
191
|
0 |
47 |
ref $self ? :
|
|
193
|
32 |
15 |
if $stash{$pkg}
|
|
198
|
1 |
14 |
unless defined fileno $dh
|
|
202
|
1 |
13 |
if ($$arg{'default_name'})
|
|
207
|
27 |
30 |
if ($line =~ /$header_re/)
|
|
214
|
1 |
29 |
if $line =~ /^__END__/
|
|
215
|
3 |
26 |
if not defined $current and $line =~ /^\s*$/
|
|
217
|
0 |
26 |
unless defined $current
|
|
221
|
26 |
0 |
unless ($default_encoding eq 'bytes')
|
|
222
|
0 |
26 |
unless my $decoded_line = eval {
do {
decode $default_encoding, $line, &Encode::FB_CROAK()
}
}
|
|
224
|
26 |
0 |
if defined $decoded_line
|
|
244
|
0 |
12 |
ref $self ? :
|
|
251
|
5 |
20 |
unless $class->isa($base)
|
|
260
|
1 |
10 |
!$$arg{'inherit'} ? :
|
|
270
|
0 |
11 |
ref $self ? :
|
|
272
|
7 |
4 |
$$arg{'inherit'} ? :
|
|
283
|
2 |
2 |
$$arg{'inherit'} ? :
|