| line |
true |
false |
branch |
|
25
|
0 |
16 |
if ref($args)->can('getline') |
|
40
|
0 |
18 |
if (defined $enc) |
|
46
|
0 |
18 |
if (($enc) = grep({/^encoding|^utf/;} @layers)) |
|
48
|
0 |
0 |
if $enc eq 'utf8' |
|
49
|
0 |
0 |
if $enc =~ /encoding\(([^)]+)\)/ |
|
54
|
18 |
0 |
if ($self->autodetect_encoding and not defined $self->_fh_start_pos) |
|
56
|
6 |
11 |
if ($enc = $self->_autodetect_bom($fh)) |
|
72
|
1 |
19 |
if $self->_iterator |
|
77
|
18 |
1 |
if (not $row_ref) { } |
|
|
0 |
1 |
elsif ($$row_ref) { } |
|
87
|
0 |
0 |
unless seek $fh, $self->_fh_start_pos, 0 |
|
94
|
16 |
71 |
unless my $r = $parser->getline($fh) |
|
95
|
26 |
45 |
if $_[0] |
|
119
|
0 |
18 |
unless read $fh, my $buf, 1 |
|
120
|
6 |
10 |
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
|
10 |
2 |
if (length $buf == 1) { } |
|
|
1 |
1 |
elsif (not seek($fh, $fpos, 0)) { } |
|
138
|
0 |
1 |
if ($fh->can('ungets')) { } |
|
160
|
0 |
0 |
unless (exists $f->{'file_size'}) |
|
162
|
0 |
0 |
if (defined $pos and $pos >= 0 and seek $f->{'fh'}, 0, 2) { } |
|
164
|
0 |
0 |
unless seek $f->{'fh'}, $pos, 0 |
|
169
|
0 |
0 |
$f->{'file_size'} ? : |
|
175
|
0 |
4 |
unless defined $pos and $pos >= 0 |
|
182
|
0 |
7 |
$to ? : |
|
|
0 |
7 |
unless seek $f->{'fh'}, $to ? $to->[0] : $f->{'origin'}, 0 |
|
183
|
0 |
7 |
$to ? : |