Hi,
No, with process_msg the program not gows.
I've investigating more an I detect that the problem could be in the get_msg funtion that looks like:
sub get_msg {
my $self = shift;
my ($param) = @_;
my $consulta_stack = qq{
SELECT *
FROM out
WHERE app = $param
ORDER BY id DESC LIMIT 100;
};
my $sth = $self->{dbh}->prepare($consulta_stack);
$sth->execute();
my $msgs = $sth->fetchall_hashref('id');
$sth->finish;
return $msgs;
}
I also observ that when there's no record in the resultset memory consumption is highter than when there's sontehing.