| line |
true |
false |
branch |
|
26
|
5948 |
2980 |
if exists $opts{$_} |
|
35
|
0 |
2975 |
if not exists $$self{'record_length'} && defined $$self{'record_length'} && $$self{'record_length'} =~ /^\d+$/ or $$self{'record_length'} == 0 |
|
41
|
2975 |
0 |
unless defined $$self{'pad_dir'} |
|
42
|
2 |
2973 |
unless defined $$self{'pad_char'} |
|
51
|
5 |
543 |
unless defined $rec |
|
52
|
0 |
548 |
if $DEBUG |
|
62
|
0 |
548 |
if $rl > $$self{'record_length'} |
|
65
|
548 |
0 |
if (length $rec != $$self{'record_length'}) |
|
69
|
0 |
548 |
if ($$self{'pad_dir'} eq 'right') { } |
|
77
|
6 |
542 |
if $has_recsep |
|
78
|
0 |
548 |
if $DEBUG |
|
85
|
0 |
656 |
unless defined $rec |
|
86
|
0 |
656 |
if $DEBUG |
|
95
|
0 |
656 |
if $rl != $$self{'record_length'} |
|
98
|
0 |
656 |
if ($$self{'pad_dir'} eq 'right') { } |
|
110
|
428 |
228 |
if $has_recsep |
|
111
|
0 |
656 |
if $DEBUG |
|
122
|
5 |
378 |
unless defined $rec |
|
152
|
80 |
59 |
@result ? : |
|
|
143 |
139 |
wantarray ? : |
|
160
|
5 |
7 |
$len > $self->FETCHSIZE ? : |
|
161
|
0 |
12 |
if $DEBUG |
|
168
|
20 |
6 |
$len > $self->FETCHSIZE ? : |
|
169
|
0 |
26 |
if $DEBUG |
|
193
|
2 |
824 |
if $size % $totreclen != 0 |
|
197
|
0 |
824 |
if $DEBUG |
|
213
|
21 |
646 |
if $n > $#{$off;} |
|
233
|
0 |
70 |
if $DEBUG |
|
235
|
0 |
140 |
if $DEBUG |