| line |
true |
false |
branch |
|
15
|
0 |
0 |
if @_ & 1 |
|
25
|
0 |
0 |
unless exists $params{'file'} |
|
36
|
0 |
0 |
if $$self{'sep_length'} > $$self{'block_size'} |
|
41
|
0 |
0 |
unless $$self{'queue'} = 'IO::File'->new($queue_file, 66, $mode) |
|
42
|
0 |
0 |
unless $$self{'idx'} = 'IO::File'->new($idx_file, 66, $mode) |
|
47
|
0 |
0 |
unless $$self{'ptr'} |
|
49
|
0 |
0 |
if ($$self{'ptr'} > -s $queue_file) |
|
53
|
0 |
0 |
unless $$self{'idx'}->truncate(0) |
|
55
|
0 |
0 |
unless $$self{'idx'}->syswrite('0') |
|
68
|
0 |
0 |
if (ref $element) |
|
73
|
0 |
0 |
if ($element =~ s/$$self{'seperator'}//g) |
|
78
|
0 |
0 |
unless $$self{'queue'}->syswrite("$element$$self{'seperator'}") |
|
93
|
0 |
0 |
if ($i != -1) { } |
|
111
|
0 |
0 |
if ($$self{'queue'}->sysread($_, 1) == 0) |
|
113
|
0 |
0 |
unless $$self{'queue'}->truncate(0) |
|
118
|
0 |
0 |
unless $$self{'idx'}->truncate(0) |
|
120
|
0 |
0 |
unless $$self{'idx'}->syswrite($$self{'ptr'}) |
|
128
|
0 |
0 |
unless $count > 0 |
|
138
|
0 |
0 |
if (defined $remainder) |
|
149
|
0 |
0 |
if $count == @$elements |
|
160
|
0 |
0 |
unless $$self{'idx'}->truncate(0) |
|
162
|
0 |
0 |
unless $$self{'idx'}->syswrite('0') |