11 |
|
|
12 |
=head1 VERSION |
=head1 VERSION |
13 |
|
|
14 |
Version 0.02 |
Version 0.03 |
15 |
|
|
16 |
=cut |
=cut |
17 |
|
|
18 |
our $VERSION = '0.02'; |
our $VERSION = '0.03'; |
19 |
|
|
20 |
|
|
21 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
73 |
if ($mfn > $self->{size}) { |
if ($mfn > $self->{size}) { |
74 |
$self->_get_logger()->warn("seek beyond database size $self->{size} to $mfn"); |
$self->_get_logger()->warn("seek beyond database size $self->{size} to $mfn"); |
75 |
} else { |
} else { |
76 |
my $row = $db->fetch($mfn); |
my $row = $db->to_hash($mfn); |
77 |
push @{$row->{'000'}}, $mfn; |
push @{$row->{'000'}}, $mfn; |
78 |
return $row; |
return $row; |
79 |
} |
} |