| line |
true |
false |
branch |
|
25
|
0 |
12 |
if ref($args)->can("getline") |
|
40
|
0 |
14 |
if (defined $enc) |
|
46
|
0 |
14 |
if (($enc) = grep({/^encoding|^utf/;} @layers)) |
|
48
|
0 |
0 |
if $enc eq "utf8" |
|
49
|
0 |
0 |
if $enc =~ /encoding\(([^)]+)\)/ |
|
54
|
14 |
0 |
if ($self->autodetect_encoding and not defined $self->_fh_start_pos) |
|
56
|
6 |
7 |
if ($enc = $self->_autodetect_bom($fh)) |
|
72
|
1 |
15 |
if $self->_iterator |
|
77
|
14 |
1 |
if (not $row_ref) { } |
|
|
0 |
1 |
elsif ($$row_ref) { } |
|
87
|
0 |
0 |
unless seek $fh, $self->_fh_start_pos, 0 |
|
93
|
12 |
48 |
unless my $r = $parser->getline($fh) |
|
95
|
7 |
41 |
if $_[0] |
|
119
|
0 |
14 |
unless read $fh, my $buf, 1 |
|
120
|
6 |
6 |
if ($buf eq "\377" or $buf eq "\376" or $buf eq "\357") |
|
121
|
8 |
0 |
if (read $fh, $buf, 1, 1) |
|
122
|
2 |
6 |
if ($buf eq "\377\376") { } |
|
|
2 |
4 |
elsif ($buf eq "\376\377") { } |
|
|
2 |
2 |
elsif ($buf eq "\357\273" and read $fh, $buf, 1, 2 and $buf eq "\357\273\277") { } |
|
134
|
6 |
2 |
if (length $buf == 1) { } |
|
|
1 |
1 |
elsif (not seek($fh, $fpos, 0)) { } |
|
138
|
0 |
1 |
if ($fh->can('ungets')) { } |
|
164
|
0 |
0 |
unless (exists $f->{'file_size'}) |
|
166
|
0 |
0 |
if (defined $pos and $pos >= 0 and seek $f->{'fh'}, 0, 2) { } |
|
168
|
0 |
0 |
unless seek $f->{'fh'}, $pos, 0 |
|
173
|
0 |
0 |
$f->{'file_size'} ? : |
|
179
|
0 |
0 |
unless defined $pos and $pos >= 0 |
|
186
|
0 |
7 |
$to ? : |
|
|
0 |
7 |
unless seek $f->{'fh'}, $to ? $to->[0] : $f->{'origin'}, 0 |
|
187
|
0 |
7 |
$to ? : |