| 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/x) |
|
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, 1)
}
} |
|
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'} ? : |